-- Beat do -- region Nova Utils let maxG = 1.5 let gG a = (gain ("^77" * (min maxG a))) -- gain Global let gM' l h a = (gG (range l h a)) -- gain Modéré let gM a = (gM' 0.2 0.9 a) -- gain Modéré doux let gDelay = ((# delay 0.125) . (# delayfb (range 0 0.8 "^13"))) let gLPF = (# lpf (min 10000 ((range 200 19800 ("^49"))))) let gHPF = (# hpf (max 0 (min 10000 ((range "-9000" 9000 ("^49")))))) let gDJF = (gLPF . gHPF) setcps (80/60/4) let g = id -- endregion Nova Utils let g = gDJF 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 $ g $ (0.01 <~) $ sometimesBy ("^73") (fast 2) $ somecyclesBy "^41" ((<| "k*4") . (|* gain 1.1)) $ somecyclesBy (1 - "^41") (<| "k . k(<3 5>,8)") $ "[jazz,808bd:1]" # gM' 0 0.95 "^78" -- Break d2 $ g $ loopAt 1 $ someCyclesBy "^74" -- Leg (slice 8 "0 ~ 2 ~ 4 ~ <6!3 ~> ~") $ someCyclesBy "^75" -- Med (slice 8 "0 ~ 2 3 4 <5 6> 6 4") $ someCyclesBy "^76" -- Heavy (slice 8 "0 1 2 3 4 3 6 6*2") $ "fbreak80:2" # cut 1 # lpf 5000 # gM' 0 1.4 "^79" d3 -- Drumroll masked $ g $ someCyclesBy "^44" (fast 2) $ sometimesBy "^52" (mask "t f!6 [t f]") $ "drum*<8!3 [8 16]>" # "gretsch:4" # gM' 0.2 1.2 "^80" d4 $ sometimesBy "^57" (superimpose ( ply "<2 4 [4 8] 8>" . mask "t(1,4)" . arpeggiate . (# "superpwm") . (|* gain 0.8) . (# pan 0.6) . (# crush 16) . (# voice 0.2) . (# octave 5) )) $ sometimesBy "^89" (chop 8) $ note (cat blues + chord) # "bassWarsaw" # pan 0.75 # room 0.1 # octave 4 # crush (range 11 6 "^53") # voice 0.8 # room 0.1 # gM' 0.6 1.1 ("^81") d5 -- Choeurs $ sometimesBy "^90" (rev) $ superimpose ( (0.5 ~>) . superimpose ( sometimesBy "^58" ((euclid (slow 4 "<3 3 3 5>") 8) . (|+ gain 0.1)) . arpeggiate . (|+ note chordAug) . (# pan 0.55) . (|* gain 0.95) ) . (|+ note 12) . (|* gain 0.95) . (# legato 0.5) . (# pan 0.45) ) $ note (cat blues) # "moogBass" # gM' 0 1.2 "^82" # octave 3 # room 0.4 # size 0.7 # dry 1.05 d7 $ sometimesBy "^59" (# lpf 2000) $ g $ sometimesBy "^91" (fast 2) $ whenmod 4 2 (superimpose ((# "clap") . (# lpf 4500) . (|* gain 0.8))) $ fast 2 $ "~ cp" # gM' 0 1.5 "^83" # room 0.2 # dry 0.9 # lpf 2000 once $ "dr" # gain 0.8 gain once j