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
import Sound.Tidal.ParVagues.Control
-- Gauche si+mi/sol+re/la+fa/si+sol
-- Droite whatever autour ;)
once $ "macron:1" # gain 1.3 # cut 1
resetCycles
do
setcps (60/60/4)
let mel = "<e3 [g3 <a3 f3>] e3 b3>"
let prog = "<e3 [g3'maj7'2 f3'min'2] e3 <b3'min7'2 b3'maj7'2>>"
let modIndex = pF "modIndex"
let gDJF = (# djfbus 1 (range 0.15 0.85 "^49"))
-- let gFreqL = (# lpq (range 0 0.25 "^29"))
-- let gFreqH = (# hpq (range 0 0.25 "^30"))
-- let gFreqs = (gFreqH . gFreqL)
let g = (gDJF)
d1 $ g -- BEAT
$ fast 2
$ midiOn "^41" (<| "k k k <k [<~ k> k]>")
$ midiOff "^41" (<| "k . ~ k ~ ~ ")
$ "[jazz,reverbkick,hh27:6]"
# release "<0.7!3 1>"
# midiG' "^78" 0 1.4
d3 $ g -- Snare contretemps rushé
$ mask "t(16,32)"
$ whenmod 4 3 (ply "2 4")
$ fast "<1!4 2!10 4 [4 8]>"
$ "~ snare"
# room 0.2
# dry 1
# speed (range 0.5 1.5 "^51")
# n "[11,25]"
# midiG' "^79" 0 1.4
d2 $ g -- BREAK
$ sometimesBy (range 0.1 0.99 "0 ^32!15") (scramble 8)
$ whenmod 32 16 (# djf (slow 32 (cosine + 0.5)))
$ slice 8 (
fast "<8 [8 16] 8 [16 <8 4>]>"
-- "<0!4 [0 1]!4 <0 1 2 3 4 5 6 7>!4>"
"<0 2 0 7 5 5 0 7>"
)
$ loopAt 2
$ "break:3"
# speed (range 0.5 1.5 "^52")
# midiG' "^80" 0 2
# cut 2
d7 $ g -- Hello PWM!
$ (|* gain "<1!15 0.8>")
$ midiOn "^57" (chop "<[8 <4 16>]!15 1>")
$ midiOn "^89" (superimpose $ segment 16)
$ note (mel - 12)
# "superpwm"
# semitone "<7!3 5>" -- 2nd Oscillator quinte/quarte
# accelerate "<0!7 <6 12>>"
# rate "<1!5 2 4 <1 4>>"
# resonance (slow 32 $ range 0.2 0.6 sine)
# crushbus 71 (range 10 3 "^53")
# midiG' "^81" 0 1.42
d6 $ g -- Nappes Rhodes
$ note (
prog
+ "0 12"
)
# "FMRhodes1"
# pan 0.2
# modIndex (range 0 100 "^54")
# crushbus 61 (range 16 5 "^34")
# midiG' "^82" 0 1.5
d9 $ g
$ midiOff "^60" (mask "<f!8 t!124>")
$ midiOn "^92" (<| "[~ c]*[4 <4 8 4 [8 4]>]")
$ midiOff "^92" (<| "~ c")
$ "clap"
# speed (range 0.5 1.5 "^56")
# midiG' "^84" 0 1.7