14 lines
435 B
Plaintext
14 lines
435 B
Plaintext
let parts = [
|
|
("a", jux' [id,rev,(# speed 2)] $ every 2 ("<0.25 0.125 0.5>" <~) $ sound "bd*2 [[~ lt] sn:3] lt:1 [ht mt*2]"
|
|
# squiz "<1 2.5 2>"
|
|
# room (slow 4 $ range 0 0.2 saw)
|
|
# sz 0.5
|
|
# orbit 1
|
|
),
|
|
("b", arp "<up down diverge>" $ n "a'm9'8 e'7sus4'8" # sound "supersaw" # octave 2),
|
|
("c", n (arp "<up down diverge>" "<a'm9'8 e'7sus4'8>") # sound "superpiano")
|
|
]
|
|
d1 $ ur 6 "a [a,b] [a,b,c] [a,c] a [a,b,c]" parts []
|
|
|
|
hush
|