-
Notifications
You must be signed in to change notification settings - Fork 5
/
05.Bit-Dust.tidal
64 lines (56 loc) · 2.9 KB
/
05.Bit-Dust.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
bps (140/120)
let pad1intro = rep' 7 $ s "{454pad1 ~ ~ ~ ~ ~ ~}%4" # n "{[0 1]/4 ~ ~ ~ ~ ~ ~}%4" # cut "1" # resonance "0.01" |=| gain "0.87"
pad1 = rep' 7 $ s "{454pad1 ~ ~ ~ ~ ~ ~}%4" # n "{[1 0 2 3]/8 ~ ~ ~ ~ ~ ~}%4" # cut "1" # resonance "0.01" |=| gain "0.87"
pad2 = rep' 7 $ s "{454pad2 ~ ~ ~ ~ ~ ~}%4" # n "{[1] ~ ~ ~ ~ ~ ~}%4" |=| cut "1"
twopads = rep' 7 $ whenmod 22 16 (const $ (|=| gain "1") $ s "{454pad2 ~ ~ ~ ~ ~ ~}%4" # n "[0 1]/2" |=| cut "1" |=| gain "1") $ s "{454pad1 ~ ~ ~ ~ ~ ~}%4" # n "{[1 0 2 3]/8 ~ ~ ~ ~ ~ ~}%4" # cut "1" # resonance "0.01" |=| gain "0.87"
kick = rep' 7 $ gain "{1 ~ ~ ~ ~ ~ ~}%4" # s "454kit" # n "[0 1]/6" |=| cut "2" |=| gain "0.9"
kick2 = rep' 7 $ gain "{1 ~ ~ ~ ~ ~ ~}%4" # s "454kit" # n "[0 1]/6" |=| cut "2" |=| gain "0.9"
one p = stut' 1 (0.125/2) (|*| gain "1") $ p
one' p = rarely (stut' 1 (0.125/2) (|*| gain "1")) $ shift' 1024 $ p
one'' p = sometimes (stut' 1 (0.125/2) (|*| gain "1")) $ shift' 1024 $ p
rep n p = stut' (n-1) (0.125*3) (|*| gain "1") $ p
rep' n p = stut' (n-1) (0.125/2*3) (|*| gain "1") $ p
hush
c1 $
stack [
(# cutoff (scale 0.08 0.3 $ rand)) $ pad1intro]
c1 $
stack [
(# cutoff (scale 0.08 0.3 $ rand)) $ pad1intro,
kick]
-- 3 normal
c1 $
stack [
twopads,
rarely (one) $ kick2,
whenmod 8 4 (jux (iter 4)) $ density 4 $ every 4 (0.25 ~> ) $ s "454cp" |=| gain "1",
s "{454kit 454kit*2 454kit ~ [~ 454kit]*2 ~ 454kit ~ ~}%8" # n "{5 5 5 5 5 5 6}%16" |=| cut "3" |=| gain "0.95",
every 7 (rep 5) $ every 6 (# up "-12") $ (0.125 <~) $ s "{454kit:3 ~ ~ ~ ~}%4" |=| gain "0.9" |=| cut "7",
rarely (stut' 4 (0.0625*3) (|*| gain "0.85")) $ s "{~ 454s:1 ~ [~ 454s:1/2] ~}%4" # cut "4" |=| gain "1" ]
-- 4 chaos
c1 $ whenmod 26 24 (density 1.25) $
whenmod 32 30 (slow 1.25) $
whenmod 20 17 (iter 8) $
whenmod 12 8 (# up "-2") $
whenmod 14 7 (foldEvery [2,3,4] (0.25 <~)) $
every 9 (jux (iter 4)) $
every 11 (|=| speed "{1 1 -1}%8") $
every 10 (|=| accelerate "-0.25 0.25") $
every 7 (rip' 0 1 8 0.25 0.125) $
every 8 (|=| coarse "{8 24 16}%4") $
stack [
twopads,
rarely (one) $ kick2,
whenmod 8 4 (jux (iter 4)) $ density 4 $ every 4 (0.25 ~> ) $ s "454cp" |=| gain "1",
s "{454kit 454kit*2 454kit ~ [~ 454kit]*2 ~ 454kit ~ ~}%8" # n "{5 5 5 5 5 5 6}%16" |=| cut "3" |=| gain "0.95",
every 7 (rep 5) $ every 6 (# up "-12") $ (0.125 <~) $ s "{454kit:3 ~ ~ ~ ~}%4" |=| gain "0.9" |=| cut "7",
rarely (stut' 4 (0.0625*3) (|*| gain "0.95")) $ s "{~ 454s:1 ~ [~ 454s:1/2] ~}%4" # cut "4" |=| gain "1"]
-- out
c1 $
stack [
rarely (one) $ kick2,
whenmod 8 4 (jux (iter 4)) $ density 4 $ every 4 (0.25 ~> ) $ s "454kit:7" |=| gain "1.1",
s "{454kit 454kit*2 454kit ~ [~ 454kit]*2 ~ 454kit ~ ~}%8" # n "{5 5 5 5 5 5 6}%16" |=| cut "3" |=| gain "1",
every 7 (rep 5) $ every 6 (# up "-12") $ (0.125 <~) $ s "{454kit:3 ~ ~ ~ ~}%4" |=| gain "1" |=| cut "7",
rarely (stut' 4 (0.0625*3) (|*| gain "0.95")) $ s "{~ 454s:1 ~ [~ 454s:1/2] ~}%4" # cut "4" |=| gain "1" ]
hush