import Sound.Tidal.ParVagues.Control

setcps (80/60/4)

resetCycles

do
let gF = (whenmod 32 24 (# djf (slow 8 $ range 0.15 0.5 sine)))
let gDJF = (midiDJF "^49" 200 9800 0 200)
let gFreqL = (# lpq (range 0 0.25 "^29"))
let gFreqH = (# hpq (range 0 0.25 "^30"))
let gFreqs = (gFreqH . gFreqL)
-- region Params Rhodes
let modIndex = pF "modIndex"
-- endregion
let g = (gF . gDJF . gFreqs)
d1 $ g -- KICK
  $ midiOn "^41" (<| "k <k!4 ~ k!3> k k*<1 <2 4>>")
  $ midiOn "^42" (<| "k*4 . k k k k*<1 2>") -- Run
  $ midiNo "^41" "^42" (<| "k*<1 1 2 1 2 2 2 1> . k(5,8)")
  $ "[hh27:6,jazz]"
  # midiG' "^78" 0 1.9
  # room 0.3 # sz 0.5 # dry 0.9
d2 -- Breakbeat
  $ g
  $ midiOn "^43" (fast "[1|2|0.5]" . loopAt 1)
  -- $ midiOn "^43" (fast 4 . often (scramble 2))
  -- $ sometimesBy "0 <0.5!3 0.95>" (ply "``[2|4]")
  $ slice 8 "0 <1 ~> 2*<2 1> 3" $ "break"
  # midiG' "^79" 0 1.75
d3 $ g
  $ midiOn "^44" (fast 2)
  $ "d ~ ~ d d ~ d <~!3 d>"
  # "snare:22"
  # midiG' "^80" 0 1.8
  # speed (range 0.5 1.5 "^52")
d4 -- Bassline
  $ g
  $ midiOn "^57" (-- + Arps aigus!
    superimpose (
      often (off "h" rev)
      . (|+ note (
        "[0 <12 <12 24>>]" -- spread
        + "0(5,8)" |+ "0 7"
        + 12
      ))
      . (|* gain (0.95 - (0.1 * "^53")))
      . (# crush (range 12 1.85 "^53"))
    )
  )
  $ note ("<0 [0 . 0 [0 3] 5 ~]>")
  # "bass1"
  # crush (range 10 5 "^53")
  # room 0.5 # sz 0.8 # orbit 4
  # pan 0.2
  # midiG' "^81" 0 1.4
d5 -- fmono
  $ g
  $ (# lpf (range 10000 5000 "^54"))
  $ slice 8 (
    "0 <1 1 0 0*2> 2 3*<1 <2 4>>" +
    "<0 3>")
  $ "fmono:40"
  # cut 4
  # crush (range 12 1.85 "^54")
  # midiG' ("^82" + 0.125 * "^54") 0 1.2
  # room 0.3 # sz 0.8 # dry 1
d9 -- Maracas Hats
  $ g
  $ fix (
    midiOff "^60" (slow 4)
    . whenmod 8 6 (fast "<2 [2 4]>")
    . (>| "hh*[<4 8 8 4> 8 8 16]")
    . (# cut 91)
  ) ("a")
  $ fix (
      midiOff "^60" (fast 2 . (<| "~ c"))
    . midiOn  "^60" (every' 4 3 (fast 2) . (<| "c*[8 16]"))
    . (# "hh27:2")
    ) ("b")
  $ "[a,b]"
  # orbit 9
  # midiG' "^84" 0.2 1.5
d6 -- Pwm steps
 $ g
 $ whenmod 32 16 (scramble 2)
 $ note (
   "0*2 . ~ 0*2"
   + "0 <0 12>"
   + (arp "up" "<c'minor'4!3 c'maj'4>")
   + "-24" -- Base gamme
 )
 # "superpwm"
 # voice (range 0.01 2 "^55")
 # pan 0.8
 # room 0.5
 # sz 0.4
 # midiG' "^83" 0 1.2
d7 -- Arps FMRhodes1
  $ stut 4 "q" "[0.95|0.8]"
  $ g
  $ superimpose (arp "down" .
  (|+ note ("c'maj'2" + "0 12" + 12)))
  $ note "<c4 ds4 c4 b3>/2"
  # "FMRhodes1"
  # pan 0.3
  # modIndex (range 0 100 "^34")
  # room 0.6 # sz 0.8
  # midiG' "^18" 0 1.8
d10 -- Follow claps
  $ g
  $ "~ clap"
  # midiG' "^56" 0.3 1.3
  # room 0.2



-- region Sandbox

d3
  $ whenmod 4 2 (someCycles $ ply 2)
  $ slice 4 "<0 1 0 1 2 3 2 3>" $ "break:1" # gain 0.85

d4
  $ note (
    scale "lydian" ("0 4 3 <4 1 5 3>" + "c'maj"
    + "<0 0 1 1 2 2 3 3>")
    - 12
  )
  # "FMRhodes1" # gain 0.9

once