-- idm rythm

once "dr"

d4 $ degradeBy 0 $ n "~ 0 [~ 2] [<~ 0> 0]" # s "jazz"
  -- # gain (range 0.9 1 rand)
  -- # silence

d5 $ sometimesBy 0.3 (ply (choose [2]))
  -- $ (degradeBy 0)
  $ inside 6 (someCycles (fast 2))
  $ s "peri*6"
  # n (irand 6)
  # gain (range 0.7 1 rand)
  # cut 1
  -- # silence

d7
  $ sometimesBy 0.4 (ply (choose [2,3,4]))
  $ degradeBy 0
  $ n ("3 ~ 2 [4 ~]" + "<0 2 0 3>") # s "industrial"
  # cut 1
  # gain 1
-- # silence

-- idm jazz part

prog2 = "<0 3 9 7 5 4>"

prog2 = "<5 6 4 2 8 0>"

prog2 = "<0 4>"

d8 $ s "made(<3 4 5 6 7 8 9 10>,12,<0 3 1 2>)"
# n "<11>"
# note (scale "aeolian" (prog2 - 7 + "[-7,0,<4 5 4>,7,<9 10>]"))
# gain 0.6
# legato "2" -- "<1 1.25 1.5 2>"