resetCycles

once $ "daft:1"

do
setcps (120/60/4)
let gHPF = (# hpf (max 0 (slow 128 $ range 100 "-100" cosine)) )
let gLPF = (# lpf (slow 32 $ range 50 10000 sine))
let g = (gLPF)
let g = (gHPF . gLPF)
d1 $ g
  $ mask "<t!32 f!8 t!6 f f t!16>"
  $ fast "<1!4 2!2 [2 8] 8 4!7 [4 8]>"
  $ "[jazz,cpu]"
  # gain 1.35
  # attack 0.9
  # release 0.8
d2 $ g
  $ mask "<f!12 t!116>"
  $ whenmod 2 1 (off 0.875 ((# "snare:20") . (|* gain 0.5)))
  $ superimpose ((# "snare") . (|* gain 0.64))
  $ "~ glitch"
  # gain 0.85
  # hpf 500
  # hpq 0.1
d3 $ g
  $ mask "<f!5 t!123>"
  $ whenmod 16 8 (superimpose(
    (>| "hh*8") . (# n "<[0!7 2]!3 [0!3 2!5]>")
    . (|* gain 0.85)
    . (# lpf 2000) . (# lpq (range 0.25 0.45 perlin))
  ))
  $ fast "<[16 8] 8!7> <8!3 <4!0 [4 . 4 16]>>" "drum:2"
  # gain ("<0.4!8 0.55!24>")
d7 $ g
  $ mask "<f!24 t!8 f!8 t!24>"
  $ "~ <c <~!3 c>>" # "clap" # note (-4)
  # attack 0.7
  # gain 0.75
d4 $ g -- Bass
  $ mask "<f!12 t!20 f!8 t!8 t!16>"
  $ whenmod 32 24 (|* gain 0.95) -- Ajustement superpos
  $ juxBy 0.8 ((|+ note 12) .
  (|* gain (slow 32 $ range 0.5 1 saw)))
  $ note (
  whenmod 32 24 (+ "[0,7,16]")
  "<[<cs5!3 e5> b4@3] [e4 cs5 d5]>"
  - 24)
  # "supersaw"
  # voice 0.01
  # lpf 500
  # pan 0.40
  -- # crush (slow 32 $ range 10 4 perlin)
  # gain 0.4
d5 $ g -- Choir
  $ mask "<t f!3 t!28 t!8 t f!3 t f t f t!16>"
  $ whenmod 16 12 (# silence)
  $ whenmod 16 11 (superimpose (
    stut' "<4!3 8>" "0.5" (
      (|+ cut 50)
      . (|* gain 0.95)
      . (|+ begin 0.02)
    ) . (|* gain 1.1)
  ))
  $ "daft/4"
  # speed 1
  # cut 5
  # pan 0.6
  # gain 0.48
d6 $ g -- Bassline arps
  $ mask "<f!24 t!8 f!12 t!3 f t!16>" -- TODO: Rework structure, too short first time
  $ note (
  "<[<cs5!3 e5> b4@3] [e4 cs5 d5]>"
  + (arp "up" "c'maj'4*4")
  - 12)
  # "supersaw"
  # voice 0.01
  # pan 0.8
  # room 0.2
  # gain (slow 16 $ range 0.25 0.35 saw)
d8 $ g -- strings
  $ mask "<f!32 f!8 t f!6 t f!4 t!12>"
  $ off "<q!4 h!4>" (
    (|+ note 12)
    . (# cut 51)
    . (# pan 0.3)
    . (|* gain 0.9)
  )
  $ loopAt 1
  $ slice 8 ("[<0!3 1> 1]*2")
  $ "daft" # cut 8
  # gain (0.2 + (slow 8 $ sine / 4))
  # pan 0.2
d9 $ g -- COSMIC NOISE
  $ (|+ lpf 200)
  $ mask "<f!16 t!48>"
  $ whenmod 32 16 (fast 4)
  $ whenmod 32 8  (chop 8)
  $ loopAt 4
  $ "cosmicg"
  # gain (slow 16 $ range 0.25 0.3 saw)
  # speed (slow 4 $ range 0.8 1.2 perlin)
  # room 0.8 # sz 0.7
  # cut 9
d10 $ g -- Bonus glitches
  $ mask "<f!8 t f!6 t f!4 t!12>"
  $ n "0 1(3,8,<0!8 2!8>)" # "glitch" # gain 0.8