-
Notifications
You must be signed in to change notification settings - Fork 0
/
20200924-midi.tidal
171 lines (139 loc) · 4.94 KB
/
20200924-midi.tidal
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
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
setcps (170/60/4)
let bd = 0
let sd = 1
let rs = 2
let cp = 3
let bt = 4
let lt = 5
let mt = 6
let ht = 7
let ch = 8
let oh = 9
let cy = 10
let cb = 11
do
mute "jazz-chords"
mute "rytm"
mute "soundboi"
do
unmute "jazz-chords"
unmute "rytm"
unmute "soundboi"
mute "pulse-sub"
mute "sq-bass"
mute "hat-half"
mute "hat-fast"
mute "hard-snares"
mute "riser"
mute "clicker"
mute "snares-170"
mute "east-perc"
mute "spectral-001"
unmute "spectral-002"
mute "ana4-3"
do -- RYTM ---------------------------------------------------------------------
let myRate = 64
let attackMod = range 0.3 0.6 (slow (myRate) $ cosine)
let track = midichan
-- sample start
-- BD origin = 25
let startMod = (range 15 35 (slow 32 (cosine)))
p "rytm"
$ slow 1
$ every 16 (# track "[0, 4, 5]")
-- $ struct "1 0 0 1/12 0 0 1 0 0 0 0 0 1/10 0 0 0"
$ struct "1 0 0 0 0 0 1 0 0 0 0 0 1/5 0 0 0"
-- $ struct "1 1 0"
-- $ struct "1 0 0 0 0 0 1 0 0 0 0 0 1/5 0 0 0"
-- $ sound "rytm" # track "[0]"
$ seqPLoop [
(00, 16, sound "rytm" # track "[0, 4]" # ccn 28 # ccv startMod),
(16, 20, sound "rytm" # track "[4]" # ccn 28 # ccv startMod),
(20, 36, sound "rytm" # track "[0]" # ccn 28 # ccv 40)
]
# note "c3"
p "rytm" silence
unmute "rytm"
solo "rytm"
unsolo "rytm"
do -- ANA4 1 ARPY --------------------------------------------------------------
let track = midichan
let filterMod = (range 0 80 (slow 128 (sine)))
let noiseMod = filterMod
-- let filterMod = 20
p "ana4-1"
$ slow 1
$ sometimesBy 0.1 (|- note 1)
$ sometimesBy 0.2 (|+ note 3)
$ sometimesBy 0.1 (|+ note 5)
$ sometimesBy 0.1 (|+ note 6)
$ seqPLoop [
-- (00, 16, struct "1 0 1 0 1 0 1 0" $ sound "ana4" # track "0"),
(16, 32, struct "1 1 1 1 1 1 1 0" $ sound "ana4" # track "0")
]
# stack [
ccn 108 # ccv filterMod,
ccn 77 # ccv noiseMod
]
# note "<c4>"
-- # octave 6
p "ana4-1" silence
mute "ana4-1"
solo "ana4-1"
unsolo "ana4-1"
do -- ANA4 2 WIGGLE ------------------------------------------------------------
let track = midichan
-- let startMod = (range 15 35 (slow 32 (cosine)))
p "ana4-2"
$ slow 1
-- $ every 16 (# track "[0, 4, 5]")
-- $ struct "1 0 0 1/12 0 0 1 0 0 0 0 0 1/10 0 0 0"
$ struct "0 0 1/2 0"
$ sound "ana4" # track "1"
-- $ seqPLoop [
-- (00, 16, sound "ana4" # track "[0, 4]" # ccn 28 # ccv startMod),
-- (16, 20, sound "ana4" # track "[4]" # ccn 28 # ccv startMod),
-- (20, 36, sound "ana4" # track "[0]" # ccn 28 # ccv 40)
-- ]
# note "gs6"
p "ana4-2" silence
unmute "ana4-2"
solo "ana4-2"
unsolo "ana4-2"
do -- ANA4 3 FM BASS -----------------------------------------------------------
let track = midichan
let modSpeed = 32
let filterEnvDepthMod = (range 70 95 ((slow modSpeed cosine)))
let delaySendMod = (range 40 10 ((slow modSpeed cosine)))
let reverbSendMod = (range 40 10 ((slow modSpeed cosine)))
let silence = "~"
p "ana4-3"
$ slow 2
$ sometimesBy 0.01 (|- n 2)
$ sometimesBy 0.02 (fast 2)
$ seqPLoop [
(00, 01, n "ds5 ~ ~ f5 ~ ~ ~ ~ ~ ~ ~ ~ g5 ~ ~ ~ " # sound "ana4")
,(01, 02, n "ds5 ~ ~ f5 ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ " # sound "ana4")
,(02, 03, n "ds5 ~ ~ f5 ~ ~ ds5 ~ ~ ~ ~ ~ ~ ~ ~ ~ " # sound "ana4")
,(03, 04, n "ds5 ~ ~ f5 ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ fs3 ~ " # sound "ana4")
,(04, 05, n "cs5 ~ ~ e5 ~ ~ ~ ~ ~ ~ ds5 ~ ~ ~ ~ ~ " # sound "ana4")
,(05, 06, n "ds5 ~ f5 ~ ~ ds5 ~ e5 ~ ~ ds5 ~ ~ ~ ~ ~ " # sound "ana4")
,(06, 07, n "ds5 ~ ~ f5 ~ ~ ds5 ~ ~ ~ ~ ~ ~ ~ fs5 ~ " # sound "ana4")
,(07, 08, n "ds5 ~ ~ f5 ~ ~ ds5 ~ ~ ~ ~ ~ g5 ~ fs5 ~ " # sound "ana4")
,(08, 09, n "ds5 ~ ~ f5 ~ ~ ds5 ~ ~ ~ ~ ~ as5 ~ ~ ~ " # sound "ana4")
,(09, 10, n "cs5 ~ ~ e5 ~ ~ ds5 ~ ~ ~ ~ ~ ~ ~ ~ ~ " # sound "ana4")
,(10, 11, n "ds5 ds5 ~ e5 ~ ~ ds5 ~ ~ ~ ~ ~ ~ ~ ~ ~ " # sound "ana4")
,(11, 12, n "ds5 ~ f5 ~ ~ ds5 ~ e5 ~ ~ ds5 ~ ~ ~ as5 ~ " # sound "ana4")
,(12, 16, sound silence)
]
# stack [
ccn 102 # ccv filterEnvDepthMod
-- ccn 102 # ccv 95
,ccn 92 # ccv delaySendMod
,ccn 93 # ccv (reverbSendMod * 1.3)
]
# octave 4
# track 2
p "ana4-3" silence
unsolo "ana4-3"
unmuteAll