-- Stolen choir variations
-- Accompagnement C#
do -- Break the Choir
-- region moogBass parameters
let cutoff = pF "cutoff"
let lagamount = pF "lagamount"
let rel = pF "rel"
let chorus = pF "chorus"
-- endregion
-- region Nova Utils
let gF = 1.5 -- gain factor
let gG a = (gain (gF * "^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 novaOn  ch pat = someCyclesBy ch pat
let novaOff ch pat = someCyclesBy (1 - ch) pat
aqlet gReverb = ((# room "^29") . (# sz (range 0 0.9 "^30")) . (# dry (range 0 2 "^13")))
let gLPF = (# lpf (min 10000 ((range 200 20400 ("^49")))))
let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49"))))))
let gDJF = (gLPF . gHPF)
-- endregion Nova Utils
let g = (gDJF . gReverb)
let chords = "<gs4'min gs4'maj>"
setcps (80/60/4)
d1 $ g
  $ "k ~ . k*2 ~"
  # "jazz"
  # gM' 0 1.1 "^78"
d2 $ g
  $ (# gM' 0.35 0.9 "^79")
  $ novaOn "^43" (slow 2)
  $ novaOn  "^75" (const $ loopAt 1
    $ slice 4 ("<0 0 2 0> <1 1 3 1> 2 3")
    $ "breaks165")
  $ novaOff "^75" (slice 8 "[~ <0 1>]*4" )
  $ loopAt 2
  $ "fbreak80:1"
d3 $ g
  $ sometimesBy "<f!8 t!8 f!16>" (# cut 3)
  $ sometimesBy "<f!16 t!16>" (# legato "<1!8 2!8>")
  $ slice 4 ("<0!4 1!4>*4") $ "choir:4/4"
  # pan 0.4
  # legato "<1!8 2!8>"
  # gM' 0 1 "^80"
d4 $ g $ slice 8 ("<0!3 1 1 0 1 0>(<3 <1 5>>,8)") $ "choir:4"
  # pan 0.8
  # cut 4
  # gM' 0 0.8 "^81"
d5 $ g
  $ novaOn "^58" (chop (4 + ("12" * "^90")))
  $ whenmod 4 2 (stutWith 4 "e" (# legato 0.25))
  $ note (chords)
  # "moogBass"
  # gM' 0.2 0.5 ("^82" / (1 + (0.4) * "^54"))
  # crush (range 16 4 "^34")
  # chorus (range 0 4 "^54") -- 0.7

-- TODO REWORK ARABIC LOOP
do
-- resetCycles
setcps (85/60/4)
d1
  $ mask "<f!8 t!29>"
  $ "k . k(<3!3 5 5 5 3 [3 <1 5>]>,8)"
  # "[h2ogmbd:0,bd]"
d2
  $ superimpose (const $
    fast "<8!4 [16 <8 8 16 [16 <8 4>]>]!4>"
    $ "drum:2")
  $ mask "<f!7 t!25>"
  $ fast "<2!2 4!4 [4 8 4]!4 [8 4 8 4]!4>" $ "~ snare:21" # gain 0.8
d3
  $ whenmod 16 8 (scramble "<4 2 4 1> <1 4 8 16>")
  $ whenmod 4 3 (rev)
  $ note (scale "harmonic" ("0 1 2 3 3 2 1 <0!4 1 1 2 1>"))
  # "choir"
  # cut 3
  # room 0.5 # dry 0.8
  # pan 0.7
d4
  $ mask "<f!8 t!8>"
  $ off 2 (slice 4 ("0 <1 2> <2 1> 3"))
  $ "choir:2/4"
  # gain 0.6
  # pan 0.9
  # cut 4
d5
  $ mask "<f!16 t!16>"
  $ "c*<1 <<2 4> [8 4]>>" # "choir:3"
  # gain 1
  # cut 5
d5
  $ mask "<f!16 t!16>"
  $ "c*<1 <<2 4> [8 4]>>" # "choir:3"
  # gain 1
  # cut 5


do
d1 $ "tech:5*4" # gain 1.4
d2
  $ whenmod 16 14 (# note "<-1 -2>")
  $ fix (|* gain 0.95) (n 4)
  $ n "5!7 <4!3 5>"
  # "h2ogmcy"
  # gain 0.9
  # cut 2
d4
  -- $ superimpose ((|- note 12) . (# cut 41) . (|* gain 0.8))
  $ note (scale "harmonicMinor" ("0 2 . ~!<1!3 0 0!2 1!2> 3*[0|1] <4 <5 7>>"))
  # "choir:1" # gain 1.25
  # octave 4
  # pan 0.2
  # cut 4