do -- bpm(60) -- resetCycles let fund = (quantise 1 $ slow 132 $ range 0 6 $ (isaw + sine) / 2) - 5 -- let gainMult = (trigger 1 $ range "0" "1" $ slow 20 $ envL) -- let gainMult = 1 let gainMult = (trigger 1 $ range "1" "0" $ slow 20 $ envL) d1 $ stutWith 3 0.12 ( (# pan (slow 57 $ sine)) .(sometimesBy (0.35) (# s "inr").(# accelerate (range 0 1.5 $ slow 53 $ sine))) ) $ s "in" # del' 0.9 0.21 0.21 # rvb' 0.99 0.7 # comb 0.3 # lp' 3500 0.1 # hp' 600 0.1 # gain 0.75 # orbit 0 d2 $ degradeBy (slow 45 $ (tri+saw)/2) $ every 3 (|/ n "1.125") $ juxBy (range "-1" "1" $ slow 12 $ sine) ( (|+ n (segment 1 $ choose [4/3, 5/4, 8/7])) .("0.3333" ~>) ) $ whenmod 60 30 (|- n "1.3333") $ foldEvery [4,7,13] (|+ n "1.125") $ s "pulsa*8" # n fund # legato 4 # lp' (range 600 2500 $ slow 32 $ cosine) 0.2 # rvb' 0.5 0.4 # octave 5 # gain (0.8 * gainMult) # ar' 0.6 2 # orbit 1 d3 $ slow 16 $ rarely (superimpose ((|+ octave 2).(0.08 ~>).(stut 3 0.4 0.08))) $ struct (binary "<98 98 102 [112|212]>") $ s "supergong" # n (scale "enigmatic" "4 3 6 2 1 6 2 3" + fund) # rvb' 0.9 0.9 # legato 8 # gain ((range 0.22 0.48 $ slow 36 $ sine) * gainMult) # octave "[6|7]" # pan (sine) # accelerate (range "-2" "2" $ rand) # orbit 2 d4 $ slow 4 $ (0.09 ~>) $ sometimes (stut 4 0.5 0.2) $ whenmod 38 37 ((fast 2).(euclid 4 4).(# ar' 0.01 0.5)) $ s "pitchednoise" # n fund # ar' 0.1 1.02 # rvb' 0.5 0.8 # gain (1.24 * gainMult) # orbit 3 d5 $ juxBy (range 0.3 0.6 $ slow 67 $ tri) (|- n 3) $ almostNever (# crush 3) $ s "gfreeze" # n fund # legato 4 # octave 3 # lp' (range 200 510 $ slow 145 $ cosine) (range 0.09 0.13 $ slow 32 $ pulse 0.13) # hp' 60 0.45 # orbit 4 # gain (0.87 * gainMult) # rmod' (slow 67 $ saw / 2) (range 1 15 $ slow 48 $ cosine) (slow 67 (saw+square)/3) d6 $ sometimes (superimpose (|+ octave 2).(stut 6 0.4 0.12).(|+ n "4")) $ s "superpiano" # n fund # octave 3 # smear (range 0.3 0.6 $ slow 126 $ cosine) # gain ((range 0 0.87 $ slow 32 $ tri) * gainMult) # pan (slow 37 $ perlin) # orbit 5 d7 $ sometimesBy 0.11 (# accelerate (rand - 0.7)) $ speed (segment 2 $ slow 6 $ (sine + square + isaw)/6 + 0.7) # s "censor" # gain ((range 0.1 0.65 $ slow 35 $ sine) * gainMult) # del' (slow 24 $ isaw) 0.3 0.1 # rmod' (slow 8 sine) (range 2 10 $ slow 12 $ cosine) (slow 13 isaw) # orbit 6 d8 $ striate (run 16 + 24) $ s "chair" # n fund # gain ((range 0.3 0.76 $ slow 47 $ sine) * gainMult) # pan (perlin) # rvb' 0.4 0.6 # lp' 1500 0.1 # speed (slow 4 $ sine/2 + 0.3) # orbit 7 all $ (every 33 (# crush (4)))

do -- bpm(60) -- resetCycles let fund = (quantise 1 $ slow 132 $ range 0 6 $ (isaw + sine) / 2) - 5 -- let gainMult = (trigger 1 $ range "0" "1" $ slow 20 $ envL) -- let gainMult = 1 let gainMult = (trigger 1 $ range "1" "0" $ slow 20 $ envL) d1 $ stutWith 3 0.12 ( (# pan (slow 57 $ sine)) .(sometimesBy (0.35) (# s "inr").(# accelerate (range 0 1.5 $ slow 53 $ sine))) ) $ s "in" # del' 0.9 0.21 0.21 # rvb' 0.99 0.7 # comb 0.3 # lp' 3500 0.1 # hp' 600 0.1 # gain 0.75 # orbit 0 d2 $ degradeBy (slow 45 $ (tri+saw)/2) $ every 3 (|/ n "1.125") $ juxBy (range "-1" "1" $ slow 12 $ sine) ( (|+ n (segment 1 $ choose [4/3, 5/4, 8/7])) .("0.3333" ~>) ) $ whenmod 60 30 (|- n "1.3333") $ foldEvery [4,7,13] (|+ n "1.125") $ s "pulsa*8" # n fund # legato 4 # lp' (range 600 2500 $ slow 32 $ cosine) 0.2 # rvb' 0.5 0.4 # octave 5 # gain (0.8 * gainMult) # ar' 0.6 2 # orbit 1 d3 $ slow 16 $ rarely (superimpose ((|+ octave 2).(0.08 ~>).(stut 3 0.4 0.08))) $ struct (binary "<98 98 102 [112|212]>") $ s "supergong" # n (scale "enigmatic" "4 3 6 2 1 6 2 3" + fund) # rvb' 0.9 0.9 # legato 8 # gain ((range 0.22 0.48 $ slow 36 $ sine) * gainMult) # octave "[6|7]" # pan (sine) # accelerate (range "-2" "2" $ rand) # orbit 2 d4 $ slow 4 $ (0.09 ~>) $ sometimes (stut 4 0.5 0.2) $ whenmod 38 37 ((fast 2).(euclid 4 4).(# ar' 0.01 0.5)) $ s "pitchednoise" # n fund # ar' 0.1 1.02 # rvb' 0.5 0.8 # gain (1.24 * gainMult) # orbit 3 d5 $ juxBy (range 0.3 0.6 $ slow 67 $ tri) (|- n 3) $ almostNever (# crush 3) $ s "gfreeze" # n fund # legato 4 # octave 3 # lp' (range 200 510 $ slow 145 $ cosine) (range 0.09 0.13 $ slow 32 $ pulse 0.13) # hp' 60 0.45 # orbit 4 # gain (0.87 * gainMult) # rmod' (slow 67 $ saw / 2) (range 1 15 $ slow 48 $ cosine) (slow 67 (saw+square)/3) d6 $ sometimes (superimpose (|+ octave 2).(stut 6 0.4 0.12).(|+ n "4")) $ s "superpiano" # n fund # octave 3 # smear (range 0.3 0.6 $ slow 126 $ cosine) # gain ((range 0 0.87 $ slow 32 $ tri) * gainMult) # pan (slow 37 $ perlin) # orbit 5 d7 $ sometimesBy 0.11 (# accelerate (rand - 0.7)) $ speed (segment 2 $ slow 6 $ (sine + square + isaw)/6 + 0.7) # s "censor" # gain ((range 0.1 0.65 $ slow 35 $ sine) * gainMult) # del' (slow 24 $ isaw) 0.3 0.1 # rmod' (slow 8 sine) (range 2 10 $ slow 12 $ cosine) (slow 13 isaw) # orbit 6 d8 $ striate (run 16 + 24) $ s "chair" # n fund # gain ((range 0.3 0.76 $ slow 47 $ sine) * gainMult) # pan (perlin) # rvb' 0.4 0.6 # lp' 1500 0.1 # speed (slow 4 $ sine/2 + 0.3) # orbit 7 all $ (every 33 (# crush (4)))