-- Region marre, DUBNFONK
do
setcps 0.45
d1
  $ fix ((|* gain (range 0.8 0.6 sine))
  . (# cut 6))
  (n 7)
  $ fix ((|* gain (range 0.8 0.6 cosine))
  . (# cut 6))
  (n 6)
  $ fix (mask "<t!6 f!2>" . (|* gain 0.75))
  (n 0)
  $ fix (mask "<f!4 t!4>" . (|* gain 0.8))
  (n 4)
  $ fix (mask "<t!8 t?!4 f!4>" .(|* gain 0.9)) (n 2)
  $ fix (|* gain 0.65) (n 3)
  $ n (stack [
    "0 . ~ 0 ~ ~",
    "~ 2 ~ 2*<1!3 2>",
    "3*<<8!3 4!3 2 4>!3 [16 8]>",
    ("4 4 ~ 4 <~ ~ 4 ~> 4 4 <~!3 4>"),
    (fast "<4 <2 8>>" $ "[7 6]"),
    ""
  ])
  # s "cpu2"
  # gain 0.99
d4
  $ whenmod 64 48 (mask "f!3 t")
  $ jux (rev . segment 4)
  $ whenmod 32 16 (juxBy 0.75 (
    fast (slow 4 "<1 2 4>")
    . mask "t f!3"
    . (# cut 41)
    ))
  $ ply 2
  $ slice 4 "<0 1 2 3>"
  $ "fepiano:3"
  # gain (slow 16 $ range 0.7 0.6 sine)
  # room "<0.1!2 0.2 0.5>" # sz 0.5
  # cut 4

-- TECHNO-BASS
do
d1
  $ whenmod 16 12 (# lpf 200)
  $ whenmod 8 4 (# lpf 2000)
  $ "k k k [<~ k> k]"
  # "[techno,kick:5]"
  # gain 0.8
d2
  $ "~ ~ ~ cp*<1!3 <2!2 4>>"
  # gain (slow 60 $ range 0.5 1 sine)
  # gain (slow 16 $ "<0.85 0.95>")
  # lpf 5000
  # room "<0.2!3 0>"
d3
  $ whenmod 16 12 (# silence)
  $ stut 4 0.75 0.125
  $ "ho(<1!3 3>,8) hc(<1!4 2!4 3!4 4!4>,8)"
  # cut 3
  # gain (slow 60 $ range 0.6 0.9 cosine)
d4
  $ someCyclesBy "<f!16 t!8 f!8>" (|* gain 0.8)
  $ slice 8 "0 1 <2 6> 3"
  $ "fbass:3"
  # gain 1.1
  # pan 0.8
  # crush (slow 64 $ range 16 8 sine)
  # cut 4
d5
  $ whenmod 16 12 (# lpf 5000)
  $ whenmod 16 8 (juxBy 0.25 (fast 2 . (# cut 51)))
  $ mask "<f!16 t!16>"
  $ slice 8 "0 1 <2!4 6!4> 3*<1 [2|4]>"
  $ n "0/2"
  # note ("<0!3 [0 . -2 0]>")
  # "fpiano"
  # cut 5
  # pan 0.2
  -- # gain 0.95


-- region SANDBOX


once $ "psin"
# accelerate (-0.4)
# gain 0.6

d2
  $ note (scale "major" $ run 7 + 8)
  # "pmsin"
  # legato 2
  # attack 0.5
  # gain 0.5

d3
  $ note (scale "major" $ run 7 - 8)
  # "pmsin"
  # legato 2
  # attack 0.5
  # gain (range 0 0.5 saw)

do
d1 $ "jazz*2"
d2
  $ fast "<4!3 2>"
  $ "cp*<1!3 2> ~" # gain 1.4
  # lpf 200
d3 $ "hh*8"
d4
  -- $ chop 8
  -- $ jux rev
  $ "inr"
  # accelerate (-0.15)
  -- # lpf 200 # lpq 0.4
  # gain 0.75
  # crush 8

-- piano instru breakbof
do
d1
  $ mask "<t!8 f!8 t!12 f!4>"
  $ "k . k(<3!3 5>,8)" # "reverbkick" # gain 0.65
d2 $ slice 8 ("0") $ loopAt 2 $ "fbonus" # gain 1
d3
  $ whenmod 32 16 rev
  $ off "e" (rev . (|* gain 0.8))
  $ iter 4
  $ note ("<c'maj!3 c'min>" + "0 [12 <~!3 0>]"
  + "<c!4 d!4 g!4 c!4>"
  + "<0!16 12!16>")
  # "superpiano"
  # velocity 0.65