-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathLoadMe.hs
282 lines (280 loc) · 9.95 KB
/
LoadMe.hs
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
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
-- create Sampler instruments && CSVs
-- loading samplers
defPath s = "/Users/leofltt/Desktop/KairosSamples" ++ s
markPath s = "/Users/leofltt/Desktop/Kairos/MarkovTables" ++ s
csd1 = "11000"
k909 = defPath "/909/Kick-909.aif"
addI "K909" $ sampler k909
kcj = defPath "/kicks/KickCymbJungle.wav"
addI "kcj" $ sampler kcj
cp909 = defPath "/909/Clap-909.aif"
addI "CP909" $ sampler cp909
sh = defPath "/ch/shortHat.wav"
addI "sh" $ sampler sh
r1 = defPath "/rim/HollowRim.wav"
addI "r1" $ sampler r1
rS = defPath "/rim/SmallRim.wav"
addI "rS" $ sampler rS
r707 = defPath "/rim/707_rim.wav"
addI "r707" $ sampler r707
rRev = defPath "/rim/HeavyRevRim.wav"
addI "rRev" $ sampler rRev
snS = defPath "/snares/SNSandy.wav"
addI "snS" $ sampler snS
sj1 = defPath "/snares/Snare4JungleMidHigh.wav"
addI "sj1" $ sampler sj1
sj2 = defPath "/snares/Snare4JungleMidLow.wav"
addI "sj2" $ sampler sj2
sSnap = defPath "/snares/EkaliShortSnare.wav"
addI "sSnap" $ sampler sSnap
siS = defPath "/snares/SNDry2.wav"
addI "siS" $ sampler siS
snMute = defPath "/snares/SNMuteAC.wav"
addI "snMute" $ sampler snMute
sSplash = defPath "/snares/snSplash.wav"
addI "sSplash" $ sampler sSplash
glass = defPath "/fracture/Glass1Dry.wav"
addI "glass" $ sampler glass
st1 = defPath "/stomps/stomp1.wav"
addI "st1" $ sampler st1
st2 = defPath "/stomps/stomp2.wav"
addI "st2" $ sampler st2
st3 = defPath "/stomps/stomp3.wav"
addI "st3" $ sampler st3
lz = defPath "/laser/gblzr1.wav"
addI "lz" $ sampler lz
llz = defPath "/laser/gblzr2.wav"
addI "llz" $ sampler llz
bs = defPath "/bass/sinFol.wav"
addI "bs" $ sampler bs
chp = defPath "/ch/pointHat.wav"
addI "chp" $ sampler chp
shSh = defPath "/ch/ShHihat.wav"
addI "shSh" $ sampler shSh
shPsh = defPath "/ch/shPShat.wav"
addI "shPsh" $ sampler shPsh
mtlh = defPath "/ch/veryMetalHihat.wav"
addI "mtlh" $ sampler mtlh
cphi = defPath "/clap/CLAPHi.wav"
addI "CPhi" $ sampler cphi
snap = defPath "/clap/Snap.wav"
addI "snap" $ sampler snap
cr01 = defPath "/cym/Crash01.wav"
addI "cr01" $ sampler cr01
crH = defPath "/cym/crashHighPitch.wav"
addI "crH" $ sampler crH
addI "crHl" $ sampler $ defPath "/cym/crashHPLonger.wav"
addI "crPz" $ sampler $ defPath "/cym/CymbolL.wav"
brokWin = defPath "/fx/BrokenWindow.aif"
addI "brokWin" $ sampler brokWin
pop = defPath "/fx/pop.wav"
addI "pop" $ sampler pop
shut = defPath "/fx/shutter.wav"
addI "shut" $ sampler shut
addI "gtStab" $ sampler $ defPath "/Gt/AmGtChopStab.wav"
addI "orStab" $ sampler $ defPath "/Key/GShmOrganStab.wav"
kWd = defPath "/kicks/KickWoody.wav"
addI "kWd" $ sampler kWd
kp = defPath "/kicks/OrphansSonKick.wav"
addI "kp" $ sampler kp
kN = defPath "/kicks/EkaliKick.wav"
addI "kN" $ sampler kN
kbaSh = defPath "/kicks/basskickShallow.wav"
addI "kbaSh" $ sampler kbaSh
addI "kSw" $ sampler $ defPath "/kicks/KickSweepOd.wav"
ohlE = defPath "/oh/arohlong.wav"
addI "ohlE" $ sampler ohlE
ohsE = defPath "/oh/arohshort.wav"
addI "ohsE" $ sampler ohsE
addI "ohSk" $ sampler $ defPath "/oh/hhopenSnake.wav"
cbE = defPath "/percIt/arcbcl.wav"
addI "cbE" $ sampler cbE
conRhi = defPath "/percIt/CongaRimHi.aif"
addI "conRhi" $ sampler conRhi
conMid = defPath "/percIt/MidConga.wav"
addI "conMid" $ sampler conMid
slapWa = defPath "/percIt/Smakwa.aif"
addI "slapWa" $ sampler slapWa
tbish = defPath "/percIt/tablaish.wav"
addI "tbish" $ sampler tbish
lilShake = defPath "/shakeIt/lilShake.wav"
addI "lilShake" $ sampler lilShake
ohsn = defPath "/shakeIt/ohsn.wav"
addI "ohsn" $ sampler ohsn
addI "GOT" $ sampler $ defPath "/vox/GOT.wav"
addI "makeit" $ sampler $ defPath "/vox/makeit.wav"
addI "dum" $ sampler $ defPath "/vox/VoxDum.wav"
addI "AaH" $ sampler $ defPath "/vox/voxHiAaA.wav"
addI "OoH" $ sampler $ defPath "/vox/voxHiOO.wav"
addI "Oh" $ sampler $ defPath "/vox/voxPointOH.wav"
addI "Ao" $ sampler $ defPath "/vox/voxStabAO.wav"
shae = defPath "/ch/aeHAT.WAV"
addI "shae" $ sampler shae
tml = defPath "/percIt/808_TomMidLow.wav"
addI "808tml" $ sampler tml
tl1 = defPath "/percIt/808_tomLow.wav"
addI "808tl1" $ sampler tl1
kcs = defPath "/kicks/kickcsk.aif"
addI "kcs" $ sampler kcs
scs = defPath "/snares/snarecsk.aif"
addI "scs" $ sampler scs
shakecs = defPath "/shakeIt/shakercsk.aif"
addI "shakecs" $ sampler shakecs
shatcs = defPath "/shakeIt/shakeHatcsk.aif"
addI "shatcs" $ sampler shatcs
chcs = defPath "/ch/shortHatcsk.aif"
addI "chcs" $ sampler chcs
rSw = defPath "/fx/RevCym.wav"
addI "rSw" $ sampler rSw
cp808d = defPath "/808/808_clap_7_TL.wav"
addI "cp808d" $ sampler cp808d
cp808m = defPath "/808/808_clap_3_TL.wav"
addI "cp808m" $ sampler cp808m
shtb = defPath "/shakeIt/LM-2_TAMB_1_TL.wav"
addI "shtb" $ sampler shtb
shnoi = defPath "/shakeIt/LM-2_SHAKER_1_TL.wav"
addI "shnoi" $ sampler shnoi
kOns = defPath "/kicks/KickOpen1_NateSmith.wav"
addI "kOns" $ sampler kOns
kCns = defPath "/kicks/KickTight1_NateSmith.wav"
addI "kCns" $ sampler kCns
kNns = defPath "/kicks/KickTight2_NateSmith.wav"
addI "kNns" $ sampler kNns
tl2 = defPath "/808/808_tom_4_TL.wav"
addI "808tl2" $ sampler tl2
ks808 = defPath "/808/808_kick_21_TL.wav"
addI "ks808" $ sampler ks808
hh808sh = defPath "/808/808_hi_hat_13_TL.wav"
addI "hh808sh" $ sampler hh808sh
sn808noi = defPath "/808/808_snare_29_TL.wav"
addI "sn808noi" $ sampler sn808noi
sn808cl = defPath "/808/808_snare_9_TL.wav"
addI "sn808cl" $ sampler sn808cl
sn808d = defPath "/808/808_snare_34_TL.wav"
addI "sn808d" $ sampler sn808d
ride626 = defPath "/626/ride.wav"
shkr626 = defPath "/626/shaker.wav"
sn1626 = defPath "/626/snare1.wav"
sn2626 = defPath "/626/snare2.wav"
sn3626 = defPath "/626/snare3.wav"
tambo626 = defPath "/626/tambo.wav"
cb626 = defPath "/626/cowb.wav"
clv626 = defPath "/626/claves.wav"
colo626 = defPath "/626/conga-lo.wav"
comi626 = defPath "/626/conga-m.wav"
k1626 = defPath "/626/bd1.wav"
k2626 = defPath "/626/bd2.wav"
h626 = defPath "/626/hihat.wav"
ri626 = defPath "/626/ride.wav"
ri707 = defPath "/cym/707_Ride.wav"
kc1 = defPath "/kicks/kickCarlo1.wav"
kc2 = defPath "/kicks/kickCarlo2.wav"
fa1 = defPath "/fx/far1.aif"
addI "ride626" $ sampler ride626
addI "shkr626" $ sampler shkr626
addI "sn1626" $ sampler sn1626
addI "sn2626" $ sampler sn2626
addI "sn3626" $ sampler sn3626
addI "tambo626" $ sampler tambo626
addI "cb626" $ sampler cb626
addI "clv626" $ sampler clv626
addI "colo626" $ sampler colo626
addI "comi626" $ sampler comi626
addI "k1626" $ sampler k1626
addI "k2626" $ sampler k2626
addI "h626" $ sampler h626
addI "ri626" $ sampler ri626
addI "ri707" $ sampler ri707
addI "kc1" $ sampler kc1
addI "kc2" $ sampler kc2
addI "fa1" $ sampler fa1
alzir = defPath "/breaks/Alzir.wav"
back = defPath "/breaks/Back.wav"
bad = defPath "/breaks/Bad.wav"
blue = defPath "/breaks/Blue.wav"
boo = defPath "/breaks/Boo.wav"
booWorm = defPath "/breaks/BooWorm.wav"
bringingMe = defPath "/breaks/BringingMe.wav"
bulldozer = defPath "/breaks/Bulldozer.wav"
bulldozer2 = defPath "/breaks/Bulldozer2.wav"
control = defPath "/breaks/Control.wav"
dperc = defPath "/breaks/DetroitPercussion.wav"
essential = defPath "/breaks/Essential.wav"
heaven = defPath "/breaks/Heaven.wav"
hurtuso = defPath "/breaks/HurtUSo.wav"
johnny = defPath "/breaks/Johnny.wav"
liberty = defPath "/breaks/Liberty.wav"
massive = defPath "/breaks/Massive.wav"
peacesign = defPath "/breaks/PeaceSign.wav"
pressin = defPath "/breaks/Pressin.wav"
ricochet = defPath "/breaks/Ricochet.wav"
rise = defPath "/breaks/Rise.wav"
ror = defPath "/breaks/RollOnRoll.wav"
sovreign = defPath "/breaks/Sovreign.wav"
tear = defPath "/breaks/Tear.wav"
terrorist = defPath "/breaks/Terrorist.wav"
walk = defPath "/breaks/Walk.wav"
addI "alzir" $ stutter alzir
addI "back" $ stutter back
addI "bad" $ stutter bad
addI "blue" $ stutter blue
addI "boo" $ stutter boo
addI "booWorm" $ stutter booWorm
addI "bMe" $ stutter bringingMe
addI "bdoze" $ stutter bulldozer
addI "bdoze2" $ stutter bulldozer2
addI "control" $ stutter control
addI "dperc" $ stutter dperc
addI "essential" $ stutter essential
addI "heaven" $ stutter heaven
addI "hus" $ stutter hurtuso
addI "johnny" $ stutter johnny
addI "tear" $ stutter tear
addI "liberty" $ stutter liberty
addI "massive" $ stutter massive
addI "peacesign" $ stutter peacesign
addI "pressin" $ stutter pressin
addI "ricochet" $ stutter ricochet
addI "rise" $ stutter rise
addI "ror" $ stutter ror
addI "sovreign" $ stutter sovreign
addI "terrorist" $ stutter terrorist
addI "walk" $ stutter walk
er1k = defPath "/ER1/kick04.wav"
er1k2 = defPath "/ER1/kick03.wav"
er1kl = defPath "/ER1/kick08.wav"
er1mhh = defPath "/ER1/MicroHat.wav"
er1cr1 = defPath "/ER1/CrashCymbal1.wav"
er1cr2 = defPath "/ER1/CrashCymbal2.wav"
er1r = defPath "/ER1/rim01.wav"
er1kd = defPath "/ER1/kick14.wav"
addI "er1k" $ sampler er1k
addI "er1k2" $ sampler er1k2
addI "er1kl" $ sampler er1kl
addI "er1mhh" $ sampler er1mhh
addI "er1cr1" $ sampler er1cr1
addI "er1cr2" $ sampler er1cr2
addI "er1r" $ sampler er1r
addI "er1kd" $ sampler er1kd
ch886 = defPath "/raveshaped/CH886.wav"
addI "ch886" $ sampler ch886
chdb = defPath "/raveshaped/CHDigiboy.wav"
addI "chdb" $ sampler chdb
chroger = defPath "/raveshaped/CHRoger.wav"
addI "chroger" $ sampler chroger
ohmlfx = defPath "/raveshaped/OHMalefix.wav"
addI "ohmlfx" $ sampler ohmlfx
rimshock = defPath "/raveshaped/RimShock.wav"
addI "rimshock" $ sampler rimshock
-- a lot of text
fs n string | n <= 0 = [] | otherwise = string ++ " " ++ fs (n-1) string
-- csv files with tables
csv1 = markPath "/Test.csv"
csv2 = markPath "/Test2.csv"
csv3 = markPath "/Test3.csv"
-- prms "lpFM" [ (keep, vol, [Pd 0.7]),(keep, rev, [Pd 0.5]),((percentNext 73), pitch, toPfs [53, 56, 58, 53, 48]),(keep, fmIndx, [Pd 12.3]), (keep, fmDepth, [Pd 987.23]),(keep,cf,[Pd 3880]),( keep, rev, [Pd 0.6]),(keep, adRatio,[Pd 0.7]),(randomize,pan,toPfs[0.4,0.6,0.75,0.35])]
-- prms "303" [ (keep,dur,toPfs [0.25]),(keep,res,[Pd 4]),(keep, vol, [Pd 0.5]),(keep, cf, [Pd 3500]),((runMarkovCSV csv3), pitch, toPfs (withScale 41 dorian)),(keep, rev, [Pd 0.4])]
-- prms "hov" [ (keep,dur,toPfs [1.2]),(keep, vol, [Pd 0.3]),(keep, cf, [Pd 800]),((runMarkovCSV csv3), pitch, toPfs (withScale 41 dorian)),(keep, rev, [Pd 0.7])]
let plucky = cf "303" [Pd 5000] keep >> res "303" [Pd 6] keep >> dur "303" [Pd 0.17] keep
plucky
:! clear