stup.tidal 1 KB
once $ ptits

do
resetCycles
let ptits = "stup" # cut 894 # end 0.19 # begin 0.03
let trucs = "stup" # cut 894 # begin 0.15 # end 0.19
let ensemble = "stup" # cut 894 # end 0.448
setcps (95/60/4)
d1
  $ "k . <k ~> <~ k> ~ ~"
  # "[jazz,reverbkick]"
  # lpf 5000
  # room 0.3 # dry 0.99
  # gain 0.7
d3
  $ "[d*<2 4 2 <1 [4 8]>>]*4"
  # "[drum:2,hh]"
  # pan 0.3 # gain 0.75
d2 $ loopAt 1
  $ slice 8 "0 1 <2!3 [2 ~ 1 2]> [<3!3 ~> <~ 3!3>]"
  $ "breaks125"
  # gain 0.7
d4
  $ somecyclesBy "<0 1 1 0>" (off "h" (
    stut 4 0.75 "<q e>" . (# cut 8941) . (# trucs))
    . (# pan 0.98) . (# room 0.1) . (|* gain 0.8)
  )
  $ someCyclesBy "<0!3 1>" (# ensemble)
  $ ptits # gain (slow 16 $ range 1 0.85 saw)
d5
  $ mask "<t!4 f t!27>"
  $ whenmod 16 4 (juxBy 0.8 (
    whenmod 32 16 (ply "<2 4>")
    . chop ("4 <4 <8 16>>")
  ))
  $ note ("<fs a>") # "supersaw"
  # gain 0.32
  # pan 0.2 # room 0.1
d6
  $ mask "<f!8 t!8>"
  $ note ("<b5 <c6 g5>>") # "supersaw"
  # gain (slow 4 $ range 0.35 0.42 saw)
  # pan 0.8
  # room 0.1