resetCycles -- Electro-jazz grille du blues snakish do setcps (70/60/4) let f2 = (# djfbus 2 (range 0.1 0.9 "^29")) let f1 = (# djfbus 1 (range 0.1 0.9 "^49")) let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "c", "g"] let chord = "c'maj" let chordAug = "c'maj'8" d1 -- Kick rarement doublé $ f1 $ midiOn "^41" (fast 2) -- Cause this is REPETITIVE MUSIC $ midiOn "^42" ((<| "k*4") . (superimpose (# "909"))) $ midiOff "^42" (<| "k . k(<1 3 1 3 1 3 3 5 1 3 1 3 1 3 3 5 3 5 3 5 1 3 3 5>,8)") $ "jazz" # legato 2 # room 0.2 # midiG' "^78" 0 1.1 d2 $ f1 $ midiOn "^43" (fast 4) $ "~ [jazz:4,cp]" # hpf (slow 4 $ range 0 10000 perlin) # room 0.6 # sz 0.6 # dry 0.99 # midiG' "^79" 0 1.9 d3 $ f1 -- Snakes $ midiOn "^41" (fast 2) -- Cause this is REPETITIVE MUSIC $ juxBy (slow 8 $ range 0.1 0.9 sine) rev $ fast 2 $ "s . s <s!3 ~> <~!3 s>" # "hh*6" # pan 0.7 # midiG' "^80" 0 1.5 d4 $ f2 $ midiOn "^89" (slice 4 "0 1 2 3*<2 <4 [4 8]>>") $ midiOn "^57" (juxBy 0.2 ( -- ply "<2 4 [4 8] 8>" . arp "pinkyup" . (often (ply 2)) -- . (|* gain 0.8) -- . (# pan 0.6) -- . (# crush 16) -- . (|+ note 12) )) $ note ( cat blues - 24 ) # "bassWarsaw" # pan 0.3 # room 0.1 # voice 0.8 # crushbus 41 (range 10 3 "^53") # midiG' "^81" 0 1.3 d5 $ f2 -- Choeurs $ juxBy 0.5 ( (0.5 ~>) . midiOn "^58" (superimpose ( arp "<converge!8 diverge!4>" . (|+ note ("[0,12]")) . (|+ pan 0.05) -- . (|* gain 0.85) ) . (|* gain 0.95) . (# legato 0.5) . (|+ pan 0.05)) ) $ note (cat blues) # "moogBass" # octave 3 # midiG' "^82" 0 1.4 # room 0.4 # size 0.7 # dry 1.05 d9 $ f1 $ loopAt (2 + (2 * "^92")) $ midiOn "^60" (slice 8 (run ("<8!4 [8!3 16] [8 16] [16 8] [16 32 8 ~]>"))) -- Rush $ midiOff "^60" (slice 8 (run ("<8!4 16 [8 . 32 16] [8 . 16 8] [8 4]>"))) -- Decroissance $ "fbreak80" # cut 42 # midiG' "^84" 0 1.8 # pan 0.3