-- Dark ANGEL FRAPPE -- Needs bass/more lead high? do -- region Nova Utils let gFactor = 1.4 let gG a = (gain (gFactor * "^77" * a)) -- gain Global let gM' l h a = (gG (range l h a)) -- gain Modéré let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49"))))) let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49")))))) let gDJF = (gLPF . gHPF) let gRes = (# hpq (range 0.01 0.5 "^29")) . (# lpq (range 0.01 0.5 "^30")) let novaOn ch pat = (someCyclesBy ch pat) let novaOff ch pat = someCyclesBy (1 - ch) pat -- endregion Nova Utils let g = (gDJF . gRes) setcps 0.5 d1 $ g $ midiOn "^42" (<| "k k k k") $ midiOn "^41" (<| "k k k <k [k k] k [~ k]>") $ midiNo "^42" "^41" (<| "k . k(<<3 [3 5]> 3 3 5>,8)") $ "[jazz,cpu,bd:8]" # room 0.2 # sz 0.8 # dry 1 # gM' 0 1.16 "^78" d2 $ g -- Clap $ novaOn "^92" (fast 2 . whenmod 4 3 (ply "1 2")) $ novaOff "^60" (# silence) $ "~ [clap,<cp!3 ~>]" # lpf 2500 # room 0 # dry 0.99 # gM' 0 1.13 "^84" d3 $ g -- Break 4/4 $ midiOn "^43" (slow 2) $ fix (|* gain 0.8) (n 2) $ n "2 3 0 <3!3 <[~ ~ 3 5] [3 3 ~ [5 ~]]>>" # "amencutup" # note (range "-12" 12 "^51") # pan 0.4 # gM' 0 1.4 "^79" d8 $ g -- Hats $ fix (|* gain 0.9) ("hh27") $ "d*[8 <[8 4 8] [8 16 8] [8 4] 16>]" # "[drum:2,hh27:4]" # pan (slow 16 $ range 0.4 0.6 saw) # gM' 0 1.45 "^80" d4 -- RESONANT BASSLINE $ g $ novaOn "^57" (slow "2 . 2 <1!3 0.5>") $ whenmod 16 12 ( degradeBy ("[0 1!3]*2" * (slow 17 $ range 0 0.5 perlin)) . (# legato 2) ) $ note "b2!6 <bs2!3 <a2 g2>> b2" # "supersaw" # gM' 0 1 ("^81" - 0.2 * "^53") # crush (range 10 1 "^53") # room 0.5 # sz 0.8 d5 $ g -- Synth voices $ novaOff "^58" (# silence) $ whenmod 8 4 (juxBy 0.25 (rev . (# cut 51))) $ loopAt 2 $ slice 8 ("0 1*<1 2 4> 2(<1 2 3 5>,8) <3 7 3 [6 7]>") $ "fsynth:47" # crush (range 10 2 "^54") # gM' 0 1 ("^82" - 0.2 * "^54") # cut 5 d7 $ g -- Side guitar $ sometimesBy "^35" (scramble 16) $ mask "<t!6 f!2>" $ loopAt 2 $ "fguitar:61" # cut 7 # pan 0.2 # crush (range 16 2 "^55") # gM' 0 1 "^83"