$ def kick (

$ note [a1 ~] * 4 # sound 'sin'

# release .1 # penv 24 # pdecay .1

# hpf 48 # hpq [12 0] * 2

# hpenv -1 # hpattack .1 # hprelease .1

# duck 2:3 # duckdepth 1:.5

# duckonset .1 # duckattack .1

)

$ def melody <

[a2@3 e2 a2@2 e3@2 c3 d3@2 b2@3 g2@2]

[a2@2 e3 c3@3 d3@2 b2@2 g2 a2@2 b2@3]

>

$ def bass (

$ note a2*8

# sound ['sin', 'tri'] # fm (itri2 # mul 2)

# attack .01 # decay .24

# lpf 3600 # lpq (itri # mul 12) # lpattack 1

# orbit 2

)

$ def accents [~ 1 ~@4 1 ~]

$ def vows (

$ note [~@3 a4]

# sound 'supersaw' # vowel u

# attack .1 # decay 1 # release .25

# penv 24 # pattack .1 # prelease .25

# room 1

)

$ def hats (

$ noise [~ <1!3 [1 .25 # palindrome]>] * 4

# hpf 2400 # hpenv [4 2] * <1!3 2> # hpattack .1

# lpf 4800 # lpenv [0 1] * <1!3 2>

)

$ def pads (

$ chord <Am A> # voicing

# sound ['supersaw', 'z_sawtooth']

# phaser tri / 4 # phasercenter 3600

# attack 1 # release 1

# lpf 3600 # hpf 360

# orbit 3

)

$ early 0 {

$ kick # gain <~@6 .8!12 ~@3 .8!17 ~@2>

$ bass # gain <~@12 1!7 ~@2 1!16 ~@3>

# struct [~ 1!3] * 4 # octave -1

$ bass # gain <~@2 1!2 .8!14 1!2.5 .8!14 1!2.5 ~@3> # hpf 360 # room .5

# when <~@2 1!2 0!14 1!2.5 0!14 1!2.5 ~@3> (# struct accents)

$ vows # gain <~@5 1 ~@5 1 ~@7 1 ~@8.5 1 ~@8.5 1 ~> - .2

$ hats # gain <~@8 .6!4 ~@4 .6!4 ~ .6!7.5 ~ .6!7.5 ~@3> - .2

$ pads # gain <.1!38 ~@2>

}