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
import Sound.Tidal.ParVagues.Control
do
let pontH = (someCyclesBy "<0!32 1!8 0!24>" (# hpf (slow 8 $ range 0 500 saw)))
let pontL = (whenmod 16 12 (# lpf 2000))
let toPontL = (every' 16 11 (# lpf 5000))
let chords = "<c'min'2!4 c'maj'2!4>"
let prog = ("<cs5!4 a4 a4 b4 gs4>")
let chorus = pF "chorus"
let mix = pF "mix"
let modIndex = pF "modIndex" -- 0.2
let gG a = (gain (1.3 * "^77" * a)) -- gain Global
let gM' l h a = (gG (range l h a)) -- gain Modéré
let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux
let gDJF = midiDJF "^49" 200 10000 0 7500
let g = (gDJF)
d1 $ g
$ midiOn "^41" ( -- KICK RUN
((>| "[jazz,kick:5]*<4 4 4 [4!3 8] 4 4 2 <2 [2 8]>>") . (|* gain 0.5))
)
$ midiOff "^41" (<| "[k([1|<3!3 5 [3 8]>],8)]*<1!16 2!16>")
$ "hh27" # n "[5,6]"
# gM' 0 3 "^78"
d2 $ g -- Breathing snare contretemps
$ midiOn "^43" (fast "<2 2 2 2 4 2 2 4 4>")
$ "hh27:2 hh27:7"
# room 0.6 # sz 0.7 # dry (slow 20 $ range 0 2 perlin)
# gM' 0.5 1.5 "^79"
d3
$ g
$ whenmod 16 8 (often $ fast 2)
$ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
$ "hh27*8"
# n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
# gM' 0.5 1.75 "^80"
d4
$ g
$ midiOn "^58" (superimpose ( -- ARPS <3
(|+ note 12)
. sometimesBy "0 0.5!7" rev
. fast "1 2"
. arp "pinkyup"
. (|+ pan 0.1)
. (|* gain 1.25)
))
$ note ((
"<0 ~> 0"
+ prog
+ "0 -12"
- "12" -- Octave
))
# "FMRhodes1"
# modIndex "[0,5,10]"
# pan 0.6
# crush (range 10 4 "^54")
# gM' 0.3 1.5 "^82"
d5 $ g -- Choirs + arps
$ juxBy "-0.7" (
arp "<up <up down>>"
. (|+| note "[0,7,12]*2")
. (|* gain 0.85)
. (# lpf 2000)
)
$ "moogBass"
# note prog
# octave 3
# gain 0.75
# pan 0.2
# chorus 0.6
d6 $ g -- Guitar riffs
$ whenmod 16 12 (off "h" (
chop 4
. (# cut 61)
))
$ slice 4 (
whenmod 16 8 (+| "0 0")
"<0!4 1 1 2 3>"
)
$ note 2 -- correction
# "punk"
# cut 6
# attack (range 0.5 1 "^17")
# crush (range 12 3.5 "^53")
# lpq (range 0 0.5 "^33")
# pan 0.9
# room 0.3
# sz 0.9
# gM' 0.4 1.5 "^81"
d8 $ g
$ midiOn "^59" (
(# lpf 2000)
. (# crush (range 16 5 "^55"))
. (# lpq (slow 16 $ range 0 0.15 perlin))
)
$ midiOn "^91" (segment "4 <4 <8 [8 16]>>")
$ note (prog + "0 12")
# "moog"
# cut 8
# gM' 0 1.5 "^83"
# release 100
d9 $ g $ "~ clap" # note (-8) # gM' 0 1.5 "^84"
once $ "hh27:0" -- Drum metal echo
# gain 1.5
once $ "hh27:1" -- Ho lo
once $ "hh27:7" -- Ho hi
once $ "hh27:10" -- Ho hi soft
once $ "hh27:2" -- Maracas fermées
once $ "hh27:9" -- Maracas fermées lo
once $ "hh27:3" -- Maracas ouvertes / balai
once $ "hh27:8" -- Same plus aigu
once $ "hh27:4" -- Clochettes
once $ "hh27:5" -- Kick neige
once $ "hh27:6" -- Kick sec
once $ "hh27:12" -- Snare lo
once $ "hh27:11" -- Snare hi