resetCycles -- Electro-jazz grille du blues snakish do setcps (80/60/4) let g = midiDJF "^49" 200 9800 0 1000 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é $ g $ midiOn "^41" (fast 2 . whenmod 4 3 (ply "2 1")) $ midiOn ("^42"-"^41") (fast "<1!8 2!20 1 0 0 2>") $ "k*4" # "jazz" # room 0.1 # dry 0.99 # sz 0.6 # midiG' "^78" 0 1.5 d2 $ g $ "~ [jazz:4,cp]" # hpf (range 0 10000 perlin) # midiG "^79" d3 -- Snakes $ juxBy (slow 8 $ range 0.1 0.9 sine) rev $ fast 4 $ "s . s <s!3 ~> <~!3 s>" # "hh*6" # midiG "^80" d4 $ midiOn "^57" (juxBy 0.2 ( -- ply "<2 4 [4 8] 8>" . arpeggiate -- . (# "supermandolin") -- . (|* gain 0.8) -- . (# pan 0.6) -- . (# crush 16) )) $ note ( cat blues + chord - 24 ) # "bassWarsaw" # pan 0.75 # room 0.1 # voice 0.8 # midiG' "^81" 0 1.3 d5 -- Choeurs $ juxBy 0.5 ( (0.5 ~>) . midiOn "^58" (superimpose ( arpeggiate . (|+ note chordAug) . (|+ pan 0.05) ) . (|+ note 12) . (|* 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