-- Dark dub base reguliere do resetCycles setcps (90/4/60) let mel = ("<c!3 <as4 ds5>>") let gF = (whenmod 32 16 (# lpf (slow 16 $ range 0 1 sine))) d1 $ gF $ whenmod 16 8 (off "s" id) $ "[electro1:6,reverbkick]" # lpf 2000 # gain 0.8 d2 $ gF $ off "e" (|* gain 0.7) $ fast "<4!3 [4 <[8 4] <8 16>>]>" $ "h2ogmhh" # gain 0.45 d3 $ ("0.25" ~>) $ superimpose ( (|- pan 0.1) . (# "bassWarsaw") . (|- note 24) . (|* gain 0.8) . (# legato 1) ) $ note ("c [c d] c ~ ~ ~ <b4!4 f b4!2 f>") # "bass3:1" # legato 0.95 # room 0.2 # pan 0.8 # gain 0.65 d4 -- Aigu contretemps -- $ mask "<f!4 t!8 f!4 t!16 f!8 t!8>" $ superimpose ( (# "superpiano") . (|<| "p(<4!4 8!4 12!4 16!4>,8)") . (# velocity 0.45) ) $ fast 2 $ "~ p" # note (mel) # octave 7 # "pluck" # gain 0.65 d5 -- Piano grave temps -- $ mask "<f!8 t!16 f!4 t!4>" $ off "e" id $ fast 2 $ note mel # "superpiano" # octave 3 # room 4 # dry 0.99 # sz 0.9 # legato 2 # pan 0.25 # velocity (slow 64 $ range 0.35 0.55 sine) resetCycles do d1 $ whenmod 64 32 ( fast "4 4 4 <4 4 2 <2 [4 8]>>" ) $ "jazz" # lpf (slow 8 $ "<10000 2000 [1750 1500] [1250 1000] [750 500] [400 200] 150 50>") # gain 0.8 d2 $ superimpose ( const $ jux rev $ euclid 3 8 $ "808mt" # cut 21 # gain (slow 16 $ range 0.8 0.6 perlin) ) $ fast "4 . 4 4 <8 8 <6 12> 8>" $ "808lt" # gain (slow 32 $ range 0.6 0.9 perlin) d3 -- Trompettes de la mort $ n "0 <5 5 6 7 5 5 6 7 8 8 9 7 8 8 9 9>" # "trump" # room 0.5 # dry 0.9 # sz 0.8 # pan 0.8 # cut 1 # gain 0.35 d4 -- Bassline elastique $ "b*2 ~ b . b*<1!4 2!4 [8 4]!4>" # "bass3" # n "0" # note ("<d g f d>") # room (slow 32 $ range 0 0.25 saw) # sz 0.2 # pan 0.2 # cut 4 # gain (slow 16 $ range 0.4 0.68 sine) d1 $ "hand:15" # cut 1 once $ "fbass" # note (-2) once $ "electro1:6"