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
setcps 0.5
d1 -- beat hip-hop
$ whenmod 16 12 (# gain 1.3)
$ whenmod 16 11 (# gain 1)
$ whenmod 16 8 (# gain 0)
$ s "k k k [<k k?> <~ k>]" -- techno!#
-- Hip hop!
-- $ every' 8 6 (degradeBy "0 1 . 1 . 1")
-- $ s "b ~ b b ~ b b ~"
# s "electro1:5"
# gain 1.3
d2
$ every' 8 6 (degradeBy "<1 0>")
$ every' 8 3 (degradeBy 1)
$ jux rev
$ sometimes (off (1/16) id)
$ s "~ <~ <t? t>> ~ t"
# s "snare:1"
# gain 0.9
once $ s "superpiano" # gain 1
d3
$ every' 8 7 (degrade)
$ every' 4 3 (off (1/16) id) -- double
$ s "dr*8"
# s "drum:8"
# gain 0.7
d3
$ whenmod 8 7 (# silence)
$ sometimesBy "<0 0.25 0.75 0>" (off (3/16) id)
$ sometimesBy 0.8 (off (2/16) id)
$ sometimesBy 0 (off (1/16) id)
$ s "d*4"
# s "drum:8"
# gain (slow 16 $ 0.2 * sine + 0.75)
d4 -- drums
$ degradeBy "<1 1 1 <[1 0.8 0.2 0] 0>>"
$ s "~ electro1(6,8)"
# n (choose [2,3,4])
d5 -- basse
$ whenmod 64 32 (# gain (slow 32 $ sine * 0.3 + 0.6))
$ whenmod 32 24 (|+ note 12) -- pont octave!
$ every' 8 0 (degradeBy "0 0 0 1")
$ superimpose ((arp "<up down updown downup>") . (# gain 0.9))
$ whenmod 8 3 (fast 2)
$ whenmod 8 0 (slow 2)
$ note (scale "major" "<[0, 7, 9, 11] [-3, 6, 8, 11] [-4, 5, 7, 10] [-6, 5, 7, 10]>"
)
# s "bassWarsaw"
|- note 32
# gain 0.9
d5 -- basse reggae
$ chop "<1 <2 4 8>>"
$ note ("[0,5]" + "<7 7 5 [5 9 7]>")
# s "bassWarsaw"
|- note 24
d6 -- Choeurs <3
$ every' 4 3 (arp "<down up downup updown>")
$ note (scale "major" "<[0, 7, 9, 11] [-3, 6, 8, 11] [-4, 5, 7, 10] [-6, 5, 7, 10]>"
)
# s "moogBass"
|- note 12
# gain 0.7
d6 -- piano triomphal
$ whenmod 64 63 (degradeBy "0 0.25 . 0.75 1")
$ whenmod 64 59 (|+ velocity 0.1)
$ whenmod 64 54 (|- velocity 0.1)
$ whenmod 64 48 (|+ velocity 0.1) -- pont octave!
$ note "[0 0? 0]*4"
# note (scale "major" "<[0, 7, 9, 11] [-3, 6, 8, 11] [-4, 5, 7, 10] [-6, 5, 7, 10]>"
)
# s "superpiano"
# velocity 0.5
# sustain "[0.25 0.25 <0.05 0.15>]*4"
# gain 0.5
d7 -- piano fou contretemps reggae
$ note ("[0,5]" + "0 0 . 0 0 ~ 0 " + "<7 7 5 5>")
# s "superpiano"
# velocity 0.5
# room 0.2
d10 -- background voice "Queue"
$ superimpose (chop 8 . (# crush 5) . (# sustain 2) . (# room 0.4))
$ note "0/4"
# s "alphabet:16"
# gain 0.5
d8 -- cymbale
$ whenmod 16 14 (sometimesBy "0.6 0.7 0.8 0.9" (#s "hh:10"))
$ sometimesBy "0 0 0 0.05" (#s "hh:8")
$ s "h(3,8) h(3,8,<0 <2 4>>)"
# s "hh"
# gain (slow 16 $ sine * 0.6 + 0.6)
d9 -- claps
$ s "~ c ~ c"
# s "clap"
# gain 0.9