-- Techno - 80s - aerian
setcps 0.4

d1
-- $ fast 4 . (off 0.5 (# s "<~ clap>"))
$ (fast 2) . (off 0.5 ((# s "clap:1") . (# room 0.5) . (# dry 1)))
$ s "kick:2"
# gain 1

d2 -- batterie, FIXME too loud
$ fix (# s "electro1:0") (n 1)
$ n "3 1 3 [[1 ~ 1?] 1]"
# s "jazz"
# gain 0.8
-- # note (irand 7)

d3 -- drums
$ whenmod 16 10 ( -- 80s drumroll
  const $ every 4 (off 0.25 (# n 2))
  $ n "[2 3] . 2 . 3 . 2 2 3 2" # s "electro1"
  -- const $ n "[2 <[3 2] [2 3]> ~] [3 2 <3? ~>]" # s "electro1"
)
$ whenmod 32 16 (degrade)
$ whenmod 16 8 (off 0.125 id)
$ sometimes (# s "dr")
$ s "hh(<4 4 3 4>,8)"

d4
$ every 8 (fast 2)
$ s "[~ electro1:1]*4"
# gain 0.8

d5
$ whenmod 8 4 (|- note 2)
-- $ off 0.125 (degrade . (# room 0.2) . (# size 0.8))
$ superimpose ((# s "bass3:2") . (|+ note 7))
$ note "0 [~ 0 ~] . <0 <[0 3] [0 -2]>>"
|- note 14
# s "bassWarsaw"

d7 -- piano lead
$ whenmod 8 0 (off (1/8) (# s "jazz:6")) -- scratched
$ off (3/8) (|+ note 7)
$ s "jazz:5?*16"
# note (scale "major" "11")
|+ note "7 0 -7"
# gain 0.8

d6 -- piano second
$ whenmod 32 30 ((# s "control") . (# gain 0.8)) -- transition synth: violent
$ whenmod 8 4 (|- note 2)
$ sometimes (off 0.125 (|+ note 7))
$ superimpose ((# s "FMRhodes2") . (|+ note 7))
$ note "0 [~ 0 ~] . <0 <[0 3] [0 -2]>>"
# s "FMRhodes1"

d9 -- noise
$ sometimes (# crush 6)
$ whenmod 32 28 (often $ (# gain 0.7))
$ whenmod 32 0 (almostNever $ (# gain 0.7))
$ s "~ cosmicg:2/2"
# gain 0

d8 -- white noise
$ someCycles (# silence)
$ sometimes (jux rev)
$ (# speed (rand / 2))
$ s "glitch:2" -- # n (run 8)
# cut 1
# gain 1.2

--- SANDBOX

d6 -- lead synth? too low currently
$ whenmod 32 30 ((# s "control") . (# gain 0.8)) -- transition synth: violent
$ whenmod 8 7 (# note (scale "major" "1 3 5 7"))
$ whenmod 8 6 (|+ note 7)
$ whenmod 8 2 (|- note 7)
-- $ whenmod 32 24 (degradeBy 0.8)
-- $ whenmod 32 16 (degrade)
$ superimpose ((# s "moogBass") . (# gain 0.8))
$ s "FMRhodes1*8"
# note (scale "major" "1 3 7 <5 ~>")
