-- TECHNO HOP

d1 -- beat
$ someCycles (0.25 ~>)
$ s "<b b b b?> <b? b b? <~ <~ b>>>"
# s "kick:5"

d2  -- snare
$ jux rev
-- $ whenmod 64 48 (# silence)
$ whenmod 8 6 (someCycles (fast 2))
$ s "<~ ~ ~ s?> <~ ~ ~ [~ s?]> <s s s s?> ~"
# s "sn:1"

d3 -- drumroll
$ sometimesBy "<0.1 .. 0.5 0.5 0.1>" (fast 2 . degrade)
$ s "d*2 [<~ d?*2> d? ~] d?*2 d*2"
# s "dr"
-- # gain (slow 64 $ sine * 0.7 + 0.4)

d4 -- ploink electrique
$ whenmod 32 30 ((degradeBy 0.8) . (# gain (slow 2 $ 1 - tri * 0.8)))
$ whenmod 32 28 (rev . degrade)
$ whenmod 32 26 (rev . fast 2 . degradeBy 0.1 . (# release 0.3))
$ superimpose ((# lpf 2000) . (|- note 12))
$ degradeBy "0.5 0.9 0 0.2 0.1 0.5 0.05 0.01"
$ note (scale "aeolian" (run 8))
# s "ade:1"
# release 0.8
|- note 12

d5 -- fourchette folle
$ whenmod 128 96 (# silence)
$ whenmod 16 10 (superimpose (fast 2))
$ whenmod 16 8 (off 0.25 (|- note "<5 7>"))
$ n "0"
# s "superfork"
# room (slow 256 $ 2 - sine * 1.8)
# size (slow 128 $ sine * 0.4 + 0.45)
# dry (irand 4)