scratch2.hs

boing
brass
carp
ciani
growl
k
s
wat
yuck




d1
  $ rot 3
  $ every 2 (iter 7)
  $ n "4 4 ~ f5 f6 ~" # s "supergong"
  # decay 0.1


d1
  $ rot "<1 0 3>"
  $ jux (rev . (slow 0.5)) $ sound "arpy arpy:1 arpy:2 arpy:3"

d2
  $ every 3 (slow "<0.5 0.1 [0.5 2]>")
  $ sometimes (# speed "<0.5 3 5>")
  $ stutWith 4 0.5 ( (|* 0.9) . (# gain 0.9) )
  $ every 2 (rot "<1 3 2>") $ n "0 <0 4> [2 0] [2 3]"
  # sound "feel"
  # speed "1.75 2"



d6
  $ every 2 (0.25 <~)
  $ sound "dr*8"
    # n (irand 16)
    # shape "0 0.2"
    # speed ((rand + 0.5) / (2 * rand))

-- Add an offset vowel effect
d1 -- $ off 0.25 (# vowel "<a o i>")
  $ juxBy 0.4 rev
  $ every 2 (rot "<1 3 2>") $ n "0 <0 4> [2 0] [2 3]" # sound "feel" # speed "1.75 2"