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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
setcps 0.4
----
-- Instrumental
----
d4 $ s "~ cp"
# room 0.6
# size 0.5
# dry 1
# gain 0.7
d1 -- batterie
$ superimpose -- kick!
(every 4 (off 0.125 id))
. whenmod 64 56 (# gain 0)
. whenmod 32 16 (fast 2)
. (# s "jazz")
. (# cps 0.5)
$ whenmod 32 30 (# gain 0)
$ whenmod 32 24 (# gain (slow 4 $ tri))
$ whenmod 32 16 (# gain 0.5)
$ whenmod 32 9 (# gain 0)
$ whenmod 32 8 (# gain tri)
$ every 8 ((slow 8 $ "0 <0.125 0.25>") ~>)
$ s "d d"
# s "drum"
# gain 0.8
d1 -- techno!
$ s "j j j <[~ k] <k [~ k]>>"
# s "jazz"
d3 -- hihat 3/5 sur 8
$ every 8 ( -- caisse metal variations
sometimes (# n 2) . (# gain 0.45) . (
stut (slow 4 $ "<4 8>") (slow 4 $ "[0.8|0.9]") (1/16)) -- echos varies
)
$ euclid (slow 4 $ "<3 .. 5>") 8
$ s "bshihat"
# n (wchoose [(0,5),(1,4),(2,1)])
# gain (slow 16 $ cosine * 0.4 + 0.3)
d5 -- basse grille blues
-- $ whenmod 128 96 (superimpose (# crush 5) . (|- gain 0.1)) --electronoise
-- $ whenmod 64 32 (# gain (slow 32 $ tri / 4 + 0.6))
$ s
-- "b"
"b b? <b? b> b?"
# note (scale "major" (
whenmod 64 48 (7 -) -- renversement
"<0 3 4 0> 3 0 <0 0 4 4>"
))
# s "bassWarsaw"
|- note 24
# legato 1.5
d6 -- aigu fou blues
$ degradeBy (slow 4 $ "<0,0.05 .. 0.5>")
$ off (5/16) (# velocity 0.3)
$ superimpose ((# gain 0.6) . (# s "cheapPiano1"))
$ s (slow 1 $ "<b [b b? <~ b> <~ b?>] b*4 <b*8 [b*4 b]>>")
# note (scale "major" (
whenmod 64 48 (7 -) -- renversement
"<0 3 4 0> 3 0 <0 0 4 4>" -- base blues
))
# s "superpiano/2"
# velocity (slow 32 $ sine * 0.3 + 0.3)
-- . . . . . . . .
-- 10110101101
d7 -- piano aigu
$ whenmod 64 60 (degradeBy "0") -- de retour!
$ whenmod 64 56 (degradeBy "0.8") -- le reste suit
$ whenmod 64 48 (degradeBy "0.8 0.2") -- le debut part?
$ whenmod 64 32 (superimpose (|+ note "5,12")) -- accord quinte
$ whenmod 64 16 (off 0.25 (|- velocity 0.1)) -- echo rebond
$ note
"[0 ~ 0] [3 ~ 5] [~ ~ 0] [3 ~ 5]" +
"<0 5 7 0> 5 0 <0 0 7 7>"
# s "superpiano"
# velocity (slow 64 $ sine * 0.4 + 0.4)
----
d8 $ s "superfork(<[5|5|3] 5>,8)"
# note (scale "major" (
"<0 3 4 0> 3 0 <0 0 4 4>"
+ 7
))
-- "<12 <17 [17 17 17 <17 12> <12 17>]>>"
# legato 2
# gain (slow 23 $ sine * 0.5 + 0.2)
--
--- sandbox
--
d6 -- piano main gauche blues semi-reguliere
-- $ swing 2
-- $ whenmod 64 48 (degradeBy "0 1 0.75 1")
-- $ whenmod 64 32 (degradeBy "0 0.5 0.25 0.5")
$ every 4 (degrade)
-- $ off (
-- slow 4 $ ("<0.0625 0.0625 0.0625 0.5625>")
-- ) (|+ note "0,12")
$ superimpose (# s "superpiano") . (# n "0 3 5 7") . (|- velocity 0.1)
$ s
"<p p p p*2> [p p] <p p p*2 p> [p p]"
# note (scale "major" (
whenmod 64 48 (7 -) -- renversement
"<0 3 4 0> 3 0 <0 0 4 4>"
+ (slow 8 $ "<[1 <0 2> <5 0> <0 0 -2 7>]>") -- impro variations
))
# s "superpiano"
# velocity 0.5
# sustain 2
|- note 24
# gain 0.75
-- lead rythme?
d1 $ s "{a a a a a ~ . ~ a ~ ~ a ~ }"
# note (every 8 (12 -) "1 3 1 3 6 ~ . 8" + "<0 12>")
|- note 12
# s "supermandolin"