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
130
131
132
133
134
135
import Sound.Tidal.ParVagues.Control
-- Accompagnement en ré au https://mmontag.github.io/dx7-synth-js/
resetCycles
once "dr"
-- Break90s∷ :)
do
-- let gF = (whenmod 32 28 (# djf (slow 4 $ range 0 0.5 sine)))
let gDJF1 = (# djfbus 1 (range 0.15 0.85 "^49"))
let gDJF2 = (# djfbus 2 (range 0.15 0.85 "^29"))
let g1 = (gDJF1)
let g2 = (gDJF2)
setcps (80/60/4)
d1
$ g1
$ midiOn "^41" (superimpose ((# "kick:5")
. (|* gain 0.7))
. (<| "k k k k k k k [<k ~> <k k ~ k>]")
. (# room 0)
)
$ whenmod 4 2 (off (-1/"<8 16>") (
degradeBy "0 1!7" . (|* gain 0.9))
)
$ midiOn "^42" (<| "k . ~ k ~ ~")
$ midiNo "^41" "^42" (
someCyclesBy "<0!8 1!8>" (<| "k . k(<5 <3 [3 <8 [8!3 4]>]>>,8)")
. someCyclesBy "<1!8 0!8>" (<| "k . <~!4 k!4>" )
)
$ "[jazz,808bd:2]"
# room 0.5 # sz 0.2 # dry 0.99
# midiG' "^78" 0 1.4
d2
$ g1
$ midiOn "^75" (ply 2)
$ midiOn "^43" (slice 4 "0 1*<1 1 2 4>")
$ midiOff "^43" (
slice 4 (
"0 1*[1|2] 2 3*<1 1 2 <2 4>>" -- Progressif
-- "0 <~ 0 1 ~> <0 0 2 2> <~ 0 2 3>" -- Broken
))
$ "fbreak80:2"
# midiG' "^79" 0 1.65
# note (range "-12" 12 "^51")
# pan 0.6
# cut 2
d3 -- Bassline
$ (# lpf (range 10000 500 "^53"))
$ g1
$ midiOn "^89" (off "h" (
mask "t(<8 16> ,16)"
. ply 2
. (# cut 31)
. (|* gain 0.8)
. (|+ gain 0.1)
))
$ loopAt 2
$ midiOn "^57" ( -- Le slice
whenmod 16 4 (
slice 4 "0 1 2*2 <0 3>"
) . every' 16 3 (
slice 4 "0 1 2 [2 3]"
)
)
$ midiOff "^57" ( -- L'attente
slice 4 "0 <~ 1> <~ ~ 2 2> <~!3 3>"
)
$ "fbass:9"
# cut 3
# crushbus 31 (range 16 4 "^53")
# pan 0.2
# midiG' ("^81" + 0.125*"^53") 0 1.8
d5 $ g2 -- Piano base
$ midiOn "^58" (superimpose (
(0.5 ~>)
. degradeBy (1 - "^54")
. fast "<1!8 2!8 4!8 1!4 2!4 4!8>"
. (|+ note 12)
. (|* gain 1.2)
. (|+ pan 0.125)
))
$ degradeBy (1 - "1 ^54!3")
$ sometimesBy 0.125 ("1/32" ~>)
$ whenmod 16 4 (|+| note "<0!4 [0 a4]!4>")
$ note "<d3!3 [g3 . ~ a4]>"
# "superpiano"
# velocity (0.4 + perlin/8)
# room 0.6 # sz 0.8
# pan 0.65
# orbit 5
# midiG' "^82" 0.3 1.7
d4 -- Skank organ
$ g2
-- $ superimpose (const $ g
-- $ whenmod 8 4 (iter "1 4")
-- $ segment 8 $ "fmono:9"
-- # midiG' "^55" 0.2 1.2
-- # cut 42)
$ midiOn "^59" (superimpose ( -- MAD ARPS
degradeBy ("0 1!14 0" * (slow 16 $ (1-"^55")))
. struct "t*16"
. (|+ note (12 + "[0|5]"))
. (|* gain (slow 16 $ range 0.85 0.65 sine))
. (# cut 41)
))
$ slice 8 ("<~ 3 ~ 2> 0 <~ 4 5 6> <0 1>")
$ "forgan:9" # cut 5
# orbit 4
# pan 0.45
# room 0.7 # sz 0.8
# crushbus 41 (range 16 4 "^55")
# midiG' "^83" 0.2 1
d8 -- Tom roll
$ g2
$ midiOn "^76" (fast 2)
$ midiOn "^44" (<| "~ h ~ h")
$ midiOff "^44" (<| "h(<4 5 8 [8 16]>,8)")
-- $ someCyclesBy (slow 8 $ saw) (juxBy 0.3 rev)
$ whenmod 16 8 (ply "2 1")
$ "hh27:2"
# pan 0.8 # room 0.4 # orbit 8 # dry 0.9
# midiG' "^80" 0 1.5
d9 -- Finger claps
$ whenmod 16 12 (
fast 2 . (|* gain (slow 4 $ range 1 0.5 saw))
)
-- $ midiOn "^60" (<|)
$ midiOff "^60" (<| "~ c")
$ "clap"
# speed (range 0.75 1.25 "^56")
# release "<0.25!3 0.125 0.25!4 0.125!4>"
# midiG' "^84" 0 1.4