-- Metronome do let gF = 1.5 setcps (100/60/4) d1 $ "m*4" # "gretsch:11" # gain gF * 0.55 d2 $ every' 4 3 (off (1 - "e") (|* gain 0.8) . (# lpf 2000) ) $ "[bd,gretsch:12]" # release 1 # gain gF * "<0.55 0.5!3>" d1 $ slow 2 $ stitch "t . t(3,8)" (n "0 .. 7" # sound "bd") (sound "arpy") # gain 0.7 -- TECHNO do setcps (120/60/4) let gG = (# gain 0.95) d1 $ gG $ "jazz*4" d3 $ gG $ sometimesBy (slow 16 $ range 0.2 0.8saw) (off "s" id) $ "hh*8" d2 $ gG $ "~ cp" # lpf 2000 -- Techno hh(13/16) PIANO prog+MIDI"note" degrade1 do d1 $ "jazz*4" d4 $ "hh(13,16)" d2 $ (1 ~>) $ degradeBy (1 - (cF 0 "1")) $ note "<0 5 7>" # "superpiano" # velocity 0.7 # legato 4 d3 $ degradeBy (1 - (cF 0 "1")) $ euclid "<8!2 16!2>" 16 $ note (cF (0) "note") # "superpiano" # velocity 0.7 # legato 4 -- BREAKS do d1 $ "" -- Lucy's Broken Diamond do let gD = (degradeBy 0.1) setcps (80/60/4) d1 $ superimpose (const $ "k . <~!16 k!4 k(3,8)!4 k(3,8,3)!4>" # "reverbkick" # lpf 200 # gain 1.1 ) $ gD $ slice 4 ("0 <0 1> <2 0> 3*<1 2 4 4>") $ loopAt 1 $ "fbreak80:5" # cut 1 # gain (slow 32 $ range 0.85 1.25 sine) d2 $ fast "<1!8 2!8>" $ "~ cp" # gain 0.8 # lpf 2000 d3 $ whenmod 64 32 (iter 4) $ slice 2 ("<<0 1>!16 0!4 1!4 [0 1]!4 [0*2 1*2]!4>") $ "fbass:8" # cut 3 # gain (slow 16 $ range 0.85 1.2 sine) -- rare 9 -- 1 4 -- 5 6 7 8 -- BreakBeat Echographie do let gD = degradeBy "0" setcps (80/60/4) d1 $ gD $ sometimesBy "0 0" (swing 2) $ "k . <~!4 k(<1 2 3 5>,8)!4>" # "[jazz,bd]" -- # lpf 1500 d2 $ gD $ jux (rev . (# cut 21)) $ whenmod 8 4 (ply "<1 <2 [2|4]>>") $ slice (slow 4 "<2 4>") ("0 <0 1>") $ "fbreak80:5" # cut 2 # gain 1 # lpf (slow 24 $ range 10000 200 sine) d3 $ gD $ "~ ~ ~ cp/2" # djf (slow 16 cosine) d10 $ fix (|* gain 0.75) (n 4) -- $ often (fast "<[2|4] [4|8]>") $ n (stack ([ "4(1,8)", "<5 6>(<5 3>,8,<0!3 4>)" ])) # "space" # cut 10 # gain 0.8 -- setcps 0 -- TODO record with SEQ 6: jazz impro All the things you are left hand -- Noisy Snake Hats do setcps 0.55 -- resetCycles let dg = id d1 $ dg $ someCyclesBy (slow 16 $ "<0 0.25>") (off "e" id) $ "[jazz,cpu]" # gain (slow 16 $ range 0.8 0.4 isaw) # lpf 2000 # release 0.2 # pan 0.45 # dry 0.9 d2 -- Snares / claps: accel 16/8, djf/64 $ dg $ whenmod 16 8 (fast ("2 <4!8 <8!8 [4 . 8 [2|4]]!8>>")) $ superimpose ((# "clap:2") . (|* gain 0.7)) $ "~ snare" # n "[1,2]" # gain (slow 32 $ range 0.8 0.5 isaw) # pan 0.3 # djf (slow 64 (cosine + perlin/4)) d3 -- Hats snake-ish $ dg $ (|+ pan (slow 10 $ range 0 0.25 saw)) $ juxBy 0.2 (rev . (|* gain 0.85)) $ fast 2 -- $ sometimesBy "0 1" (off "e" id) $ "h . h ~ <h!3 h?> ~ ~ <~!3 h?>" # "808oh" # n "<0 3>" # gain (slow 32 $ range 0.6 0.4 (sine + isaw/4)) d10 -- DELICI0US N0153 $ dg $ whenmod 64 48 (juxBy 0.25 (# crush 5)) $ whenmod 8 6 (rarely (loopAt 2)) $ "~ ~ ~ <n!3 [~ n] n [~ n] n [~ n]>" # "psr" # n "<1!8 10!4 11!4 12!7 2>" -- 1 10 11 12 rare 2 # lpf (slow 2 $ range 2000 1000 perlin) # pan (slow 4 $ range 0.2 0.9 perlin) # gain (slow 32 $ range 0.25 0.45 (saw + perlin)) # cut 10 -- Hip Beat rebond k k([3|5],8) do setcps (120/60/4) d1 $ whenmod 32 16 (# djf (slow 16 $ sine)) $ "k . k(<3 <5 1>>,8)" # "jazz" # gain 0.8 d2 $ "~ snare:8" d3 $ whenmod 16 8 (jux rev) $ fast "<4 4 8 4>" $ "drum:8" # gain (slow 16 $ range 0.6 0.85 saw) -- Space techno beat do setcps (115/60/4) d1 -- Kick techno $ s "k*4" # "jazz" # gain 0.525 d2 -- Snare contretemps $ mask "<f!2 t!30 t!32>" $ s "~ . <s!3 s*2> ~" # s "[snare,cp]" # gain 0.5 d7 -- Drumroll énergisant $ jux rev $ fast "<4!3 <8 [8 16 8]>>" $ "drum:2*[<2!3 4>]" # gain 0.65 -- LoopBack do setcps (60/60/4) d1 $ "[bd,jazz]*4" # gain (1.1) # djf (slow 32 $ range 0 0.5 cosine) d2 $ "drum:2*4" # note "0 1 0 1" # gain 0.6 d3 -- $ off 1 (jux (rev . chop 8)) -- $ chop 8 -- $ stut 4 1 0.25 $ "in" -- # room 0.1 -- # sz 0.8 -- # legato (slow 16 $ range 0.12 2 sine) -- # gain 2 -- Break maracas Mamoi do d3 $ "drum:2*4" # gain 0.5 d1 $ slow 2 $ "k*<1!3 2> . k(<3 3 [3 5] 3>,8,<0!6 4>)" # "reverbkick" # gain 0.75 # lpf 4000 d2 $ whenmod 16 10 (# lpf (slow 6 $ range 5000 200 saw)) $ loopAt 2 $ slice 4 "<0 0 3 <0 3>> 1*<1 1 2 <1 2>> 2*<1 2 2 4> 3" $ "breaks165" # cps (165/50/4) # gain (0.55 * "1 1 0.9 1") -- LoFi do setcps (60/60/4) let whenIntro pat = someCyclesBy "<t!8 f!24>" pat let whenNotIntro pat = someCyclesBy "<f!8 t!24>" pat let whenBrk pat = whenmod 16 10 pat let whenNotBrk pat = someCyclesBy "<t!10 f!6>" pat let whenBrkLPF = whenBrk (# lpf "<400 200 100 50 0 0>") d1 $ whenBrkLPF $ whenNotBrk (# sz "<0.8 0.9 0.95 0.99>") $ "k . k(3,8)" # "[jazz,reverbkick]" # gain 1 # lpf 1000 # room 0.23 # legato 2 # cut 1 d2 $ whenBrkLPF $ whenmod 16 8 (fast 2) $ whenmod 8 6 (mask "<f [f t]>") $ superimpose (# hpf 500) $ "~ s" # "snare:20" # gain 0.9 d3 $ whenBrk (slow "<2 2 4 4 8 8 16 16>") $ fast ("8" * "<[2 1!7] 1!3> <2 [2 1] [2 . 1 2] [2 4]>") $ "drum:2" # room 0.6 # gain 0.8 d5 $ swing 2 $ whenBrk (# crush (slow 6 $ range 16 3.5 saw)) $ whenNotBrk (off "<e q> . <q h>" (|+ note 7)) $ struct "t*<[1 0] 2 4 [12 . 8]>" $ note ("fs a" - 24) # "bassWarsaw" # gain 1 d4 -- Toy bogdan $ every' 16 15 (# "bogdan:4") $ every' 16 9 ((# "~ ~ ~ bogdan:2") . (|* gain 0.8)) $ "~ ~ ~ bogdan:0" # room 0.5 # legato 2 # hpf 200 # gain 1.1 once $ "bogdan:4" # cut 42 # gain 0.9