-- FUNKY 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 "^29") . (# lpq "^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
  -- $ mask "<t f f f t t f f t!8 f!6 t t t!16 f!16>"
  $ "k k k <k [k k] k [~ k]>"
  # "[jazz,cpu]"
  # room 0.8 # sz 0.8 # dry 1
  # gM' 0 1.5 "^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.3 "^84"
d3  $ g -- Break 4/4
  -- $ sometimes (off "e" id)
  $ fix (|* gain 0.8) (n 2)
  $ n "2 3 0 <3!3 <[~ ~ 3 5] [3 3 ~ [5 ~]]>>"
  # "amencutup"
  # gain 1.2
  # gM' 0 1.2 "^79"
  # pan 0.4
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.35 "^80"
d4 -- RESONANT BASSLINE
  -- $ (# lpq (range 0 0.8 "^53"))
  -- $ (# lpf (slow 32 $ min 10000 (range 500 15000 sine)))
  $ g
  $ novaOn "^81" (slow "2 . 2 <1!3 0.5>")
  $ whenmod 16 12 (
    degradeBy ("[0 1!3]*2" * (slow 17 $ range 0 0.5 perlin))
    . (# legato 2)
  )
  -- $ juxBy 0.8 (# crush (slow 16 $ range 16 5 isaw))
  $ note "b2!6 <bs2!3 <a2 g2>> b2" # "supersaw"
  -- # accelerate ("<0!60 -0.1 -0.1 -0.2 -0.2>")
  # gM' 0 1 "^81"
  # crush (range 10 3 "^33")
  # 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"
  # gM' 0 1 "^82"
  # cut 5



d7 $ g -- Fill drums
  $ (|* gain (slow 10 $ range 0.9 1.2 perlin))
  -- $ loopAt 2
  $ slice 16 "1 1 5*<1 2 4> 0*<1!7 2>"
  -- $ mask "<f!3 t>"
  $ "ffills:7"
  # cut 7
  # pan 0.6
  # gM' 0 1.5 "^83"