-- Dub digitale? decouverte supersynths

setcps 0.5

d1
$ whenmod 32 30 (# silence)
$ whenmod 32 24 (degrade)
$ fast "4 <4!3 <8 [16 4]>>"
$ s "kick808"

d2 -- Snares
$ n "~ [s*[1|2] ~]"
# s "snare:3"

d3
$ someCycles (fast "1 1 1 2")
$ sometimes (# s "drum:8")
$ fast "<<4 12> 8> <4 <8 6>>"
$ s "dr"

d4
$ n "~ 0(3,4,[0|1]) ~ 0(3,4,[0|2])"
# note (scale "aeolian" "[0,3,7]" + "0 <3!3 <2 5>>")
|- note 24
# s "superhammond"
# voice 32
# gain 0.8

d5
$ whenmod 8 6 (rev)
$ chop "<1 2 4>"
$ arp "updown"
$ s "supersiren"
# note (
  scale "aeolian" "[0,3,7]" + "0 <3!3 <2 5>>"
  - 7
)
# release 1.5
# sustain 8
# gain 0.45

d6
$ s "0(<8 5>,8)"
# note (
  scale "aeolian" "[0,3,7]" + "0 <3!3 <2 5>>"
  - 7
)
# s "supermandolin"
# gain 0.9

d7
$ s "superhoover"
# note (
  scale "aeolian" "[0,3,7]" + "0 <3!3 <2 5>>"
  - 12
  )
# slide 2
# accelerate "<2 4 8 16 32 64 128>"
# decay "[0.5 0.25]"
# gain 0.6

d8
$ slow 4
-- $ off (1/16) (# note "c3'maj")
$ chop "<16 [16 8] [16 16 8]>"
$ arp "updown"
$ s "superzow"
# note (slow 4 $ "<c4'maj e4'maj>")
# gain 0.7