resetCycles -- Electro-jazz grille du blues snakish do setcps (80/60/4) let gLpf = (whenmod 16 8 (# lpf (slow 8 $ range 0 0.5 saw))) 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é $ gLpf $ every 8 (# gain 0) $ whenmod 8 6 (off "<-0.0675 -0.125>" id) $ fast 2 $ "jazz" # room 0.1 # dry 0.99 # sz 0.6 # gain 1 d2 $ gLpf $ "~ [jazz:4,cp]" # gain (slow 16 $ range 1.2 0.8 isaw) # hpf (range 0 10000 perlin) d3 -- Snakes $ juxBy (slow 8 $ range 0.1 0.9 sine) rev $ fast 4 $ "s . s <s!3 ~> <~!3 s>" # "hh*6" # gain (slow 32 $ range 0.5 1 saw) d4 $ superimpose ( ply "<2 4 [4 8] 8>" . mask "t(1,4)" . arpeggiate . (# "supermandolin") . (|* gain 0.8) . (# pan 0.6) . (# crush 16) ) $ note (cat blues + chord) -- # "supersaw" # voice 0.1 # "bassWarsaw" # pan 0.75 # room 0.1 # crush (slow 64 $ range 16 4 isaw) # voice 0.8 # gain 0.85 d5 -- Choeurs $ juxBy 0.5 ( (0.5 ~>) . superimpose ( arpeggiate . (|+ note chordAug) . (|+ pan 0.05) ) . (|+ note 12) . (|* gain 0.95) . (# legato 0.5) . (|+ pan 0.05) ) $ note (cat blues) # "moogBass" # octave 3 # gain 0.9 # room 0.4 # size 0.7 # dry 1.05 once $ arp "up" $ note "d'min" # "superpiano" # velocity 0.38 -- region BACASABL d4 $ note (cat [ -- FIXME dur a suivre! "c3'min", "c3'maj", "c3'min", "c3'min", "c3'maj", "c3'maj", "c3'min", "c3'min", "d3'min", "d3'maj", "d3'min", "d3'min", "d3'maj", "d3'min", "d3'maj", "d3'min", "g3'min", "g3'maj", "g3'min", "g3'min", "g3'maj", "g3'maj", "g3'min", "g3'maj" ]) # "bassWarsaw" # voice 0.8 # gain 0.92