1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
-- Nu: jazzy improvised instrumental
-- Tags: Hip-Hop, Melancholic, Piano
-- Ready:
do
setcps (90/60/4)
d1
$ whenmod 16 10 (# silence)
$ n "0 [1 ~ ~ <~!8 1!8>]" # "cpu2"
# gain 0.65
# lpf 3000
d2
$ mask "<f!4 t!8 f!2 t!6 f!4>"
$ someCycles (degradeBy "0 0.5!7" . fast 2)
$ someCycles (ply 2)
$ "~ ~ ~ sn" # "cpu:2" # gain 0.8
d3
$ mask "<f!8 t!16 f!8>"
$ whenmod 8 4 (# n "<3 4 [4 2] 2>")
$ "808mt(3,8,1)"
# n "<0 2>"
# gain (slow 8 $ range 0.45 0.65 sine)
d4
$ whenmod 16 8 (juxBy 0.25 id)
$ fast "<1!2 4 1 4!2 [4 8] 8 [16 . 8 16] [16 . 4 8]>"
$ "cpu:4"
# gain (slow 32 $ range 0.4 0.7 sine)
d5
$ note (scale "major" "<0!2 2 4 -2>")
# "supergong"
# accelerate (slow 32 $ "<1 -1>")
# octave 2
# gain 0.5
d6
$ note ("<f e d <d!2 e f>>")
# octave 3
# pan 0.4
# s "superpiano"
# velocity 0.45
d7
$ swing (slow 8 $ "<<2 4> 1>")
$ whenmod 32 16 (mask "t(<10 11 12 13 14 15 16!7 12 10>,16)")
$ ply 2
$ segment (slow 8 "<1 <2 4>>") -- Light to tornado
-- $ sometimesBy "<0.75!3 0.1>" (arp "updown")
$ note ("<f e d <d!2 e f>>" + "c'maj'5")
# octave 5
# pan 0.55
# pan 0.4
# s "superpiano"
-- # velocity (slow 8 ("<0.8 <0.75 0.65>>" + 0.45)) -- TODO: Electric velocity
# gain (slow 8 ("<1 <0.9 0.8>>" * 0.35))
-- SANDBOX
once $ note "e"
# s "superpiano"
# velocity 0.8
d8 -- Cuivre Lancinant
$ note "~ <<c5 e5> c5'min'2>/2"
# "brass:12"
# legato 2
# pan 0.7
# gain (slow 4 $ range 0.15 0.35 perlin)