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
-- Stack Aerienne
setcps 0.46
d1 -- Kick regulier reprise 7/8
$ every' 8 7 (degradeBy "1 . 0 [1 0]")
$ every' 8 3 (degradeBy "1 . 1 [1 0]")
$ s "k k k [k k]"
# s "kick:11"
# note "0 0 0 [0 . <4 6>]"
# gain 0.7
# pan 0.4
# room 0.5 # size 0.3 # dry 1
d2
$ weave 16 (pan (slow 8 $ sine)) [ -- Rythmique
( -- drumroll
sometimesBy (slow 16 $ saw / 2) (superimpose ((# s "d") . (# gain 0.5)))
$ degradeBy "0 <0 1> 0 0.5"
$ s "d*16"
# s "dr"
# gain 0.7
)
, ( -- clochettes!
whenmod 32 28 (# gain 0.75)
$ whenmod 8 4 (jux ((1/16) ~>))
$ euclid "<8 1 7 1>" 8 $ s "superfork"
# note (
slow 4 $ "<c'maj c'min>"
-12
)
# gain 0.6
)
, ( -- scratch
sometimesBy 0.2 (off (1/32) id)
$ sometimesBy 0.6 (off (1/16) id)
$ euclid (slow 8 $ "5 7") 8
$ n "0"
# s "birds3"
-- # n (choose [0,0,2])
# gain 0.3
)
]
d3 -- weird bassline
$ fast 2
$ whenmod 16 12 (# gain 0)
$ whenmod 16 8 (juxBy 0.25 rev)
$ whenmod 8 2 (chop 2)
$ every 4 (rev . chop 8)
$ note "0" # s "bass1:1/2"
# gain 0.5
d4 $ stack [ -- basses aeriennes
(
superimpose (|+ note 12)
$ note (slow 4 $ "<c'maj c'min>") # s "moogBass"
# gain (slow 16 $ sine * 0.3 + 0.45)
) , (
superimpose (|- note 12)
$ superimpose (swing 3 . arp "updown" . fast 2 . (|- note 12))
$ note (
(slow 4 $ "<c'maj c'min>")
+ "<0 12>"
) # s "ikedaBass"
# gain (slow 16 $ cosine * 0.3 + 0.34)
)
]
d5
$ superimpose ((# s "cheapPiano1") . (|- gain 0.3))
$ note "0(14,16, <0 0 2 2>)"
# note (arpeggiate $
(slow 4 $ "<c'maj c'min>") -- accords
+ (slow 8 $ "<0 [0,[5 . <0 12>]]>") -- alerne do / quinte-octave
+ (slow 8 $ "<0 [-5 -12] [-12 -5] 0>") -- variations
)
# s "superpiano"
# velocity 0.5
# gain 0.7
# sustain (slow 4 $ "<1/8 <1/16 0>>")
# pan (slow 16 $ 0.2 + sine / 8)
d8 -- macron gabber guerre
$ whenmod 128 64 (# gain 0.65)
$ superimpose ((# octersub 16) . (# octersubsub 2))
$ every 2 (choose [0,0.125] ~>)
$ n "~ 0*2"
# s "macron:0" # begin 0.55
# gain 0