Live: New

parent 36a287ec
......@@ -20,14 +20,6 @@ $ s "dr*3 ~ dr*2 <~ <dr dr*2>>"
once $ s "superpiano*8"
# note ("0 2 4 5 7 9 11 12")
-- Piano notes:
-- do -14 -7 0 07 14 21
-- re -13 -6 1 08 15
-- mi -12 -5 2 09 16
-- fa -11 -4 3 10 17
-- sol -10 -3 4 11 18
-- la -09 -2 5 12 19
-- si -08 -1 13 20
-- Main gauche:
-- A B C D
......
d1 $ sound "bd(<<0 1 5 7> 3>,8)"
d2
$ every 8 (off (1/8) (|+0))
$ every' 16 7 degrade
$ every 16 (# gain 0)
$ s "bd(5,8)"
# note "<50 <55 <60 65>>>"
d3
$ every' 16 12 (# gain 0)
$ every' 16 13 (# gain 0)
$ every' 16 14 (# gain 0)
$ every' 16 15 (# gain saw)
$ sometimesBy 0.01 (# crush 4)
$ every 4 (rev)
$ sound "bd"
# note "<<28 21 14 7 0> <7 14 21 28 35 42 49 56 63 70>>"
>| speed (
-- segment "<80 100 120 80>/16"
segment 100
$ range 1 3 saw
)
# gain 0.5
d4
$ every' 4 3 (off 0.125 (|+ 0))
$ every 8 (# gain 0)
$ every' 8 7 (# gain 1.5)
$ rev $ iter 4 $ loopAt 4 $ chop 16 $ "bd"
# gain 1.6
hush
setcps 0.5
d1
$ degrade
$ off 0.125 (|+ 0)
$ every 8 (off 0.5 (|+ 0))
$ every 16 degrade
$ sometimesBy 0.10 (# n 7)
$ sometimesBy 0.10 (# n 8)
$ euclid 3 8
$ s "hh"
# gain 1.2
d2 $ s "<bd*2 bd(2,5)> ~ dr*4"
d3
$ fast 2
$ every' 4 3 (off 0.25 (|+ 0))
$ every 8 (rev)
$ every' 16 12 (hurry 2)
$ every' 16 12 (off 0.125 (|+ 2))
$ every' 16 12 (off 0.375 (|+ 0))
$ every' 16 12 (off 0.875 (|+ 7))
$ every' 16 12 (off 0.75 (|+ 0))
$ every' 16 12 (off 1 (|+ 2))
$ every' 16 12 (# gain 1.2)
-- $ every' 16 13 (# gain 0)
$ every' 16 14 (# gain 0)
$ every' 16 15 (# gain 0)
$ note "<0 7 5 8 3 8 7 12 0 0>"
# s "gtr"
# gain 0.8
d4
$ every' 8 4 (fast 2)
$ every' 8 5 (# gain 0)
$ every' 8 6 (# gain 0)
$ every' 8 7 (# gain 0)
$ sometimes (# note "0")
$ sometimes (# note "0")
$ s "alphabet(<4 6 8>,8)"
# note "-5"
# choose [1,3,15,19]
# vowel "i"
# gain 0.9
d5
$ degrade
$ every 4 (rev)
$ off 0.125 (|> 2)
$ "bass3(<2 4 6 8>,8)"
# gain 0.8
# up "<0 7>"
d2
$ off 0.5 (+0)
$ every 4 (off 0.25 (+0))
$ every 4 (off 0.375 (+0))
$ every 4 (off 0.75 (+0))
$ every 4 (off 0.875 (+0))
$ sometimes (fast 2)
$ sometimes (# crush 2)
$ s "insect"
# n (irand 3)
# note (1 - irand 10)
-- # gain 0.
setcps 1
-- trille: "[1 2 1 2 1 2] ~"
d1
$ every 2 (off 0.25 (|+0))
$ every' 4 3 (off 0 (# s "sn:1"))
$ every' 8 7 (off 0.5 (# gain 0.8))
$ every' 8 7 (off 0.75 (# gain 0.8))
$ every' 16 13 (# gain 0)
$ every' 16 14 (# gain 0)
$ every' 16 15 (# gain 0.7)
$ s "bd"
d2
$ euclid 1 2
$ every 4 rev
$ sometimesBy 0.2 (degradeBy 0.8)
$ sometimes (# note "[2 4 2 4 0]")
$ every' 8 6 (off 0 (|+ 7))
$ every' 8 7 (off 0 (|- 7))
$ every' 4 1 (jux rev)
$ note "[0 7]*3"
# s "supermandolin"
d3
$ every 2 (# gain 0)
$ every' 8 6 (# gain 0)
$ every' 8 7 (# gain 0)
$ sometimes (off 0 (|- 7))
$ sometimesBy 0.2 (# note "[2 4]*3")
$ s "superfork*8"
# note "[0 2]*3"
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment