forked from yaxu/spicule
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathgdl.tidal
84 lines (63 loc) · 2.09 KB
/
gdl.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
d1 $ off 0.125 (|*| speed 0.75) $ jux rev $
off 0.25 (# crush 2) $ slow 2 $ sound "kicklinn(3,8)"
# speed 4
# lpf (slow 2 $ scale 3000 200 sine)
# lpq 0.2
d2 silence
d2 $ chunk 4 (hurry 0.5) $ jux rev $ off 0.125 (# s "jx") $ slow 1 $ n (off 0.125 (+12) $ off 0.25 (+7) $ slow 4 "c7(3,8) e7(3,8) f7(3,8) g7*2") # sound "rash"
# lpf (slow 2 $ scale 2000 4000 saw)
# lpq 0.2
# gain 1.1
d3 $ chunk 4 (hurry 0.5) $ loopAt 4 $ chop 16 $ sound "paper"
# gain 1.2
d4 $ jux rev $ n (off 0.125 (+ 4) $ "0 [~ 6] 3 4") # sound "funky"
# gain 1.4
d3 $ jux rev $ off 0.25 (# speed 0.75) $ chop "<3 4>" $ sound "~ sn:2*2"
# orbit 1
# room (slow 4 saw)
# size 0.7
# speed 2
d4 $ chop "<2 4 6>" $ sound "~ off"
# shape 0.6
d7 $ off 0.25 (|*| speed 2) $ sound "gabba(3,8,<0 4>)"
# gain 1.1
d9 $ iter 4 $ jux rev $ loopAt 2 $ chop 8 $ sound "arc"
# gain 1.4
d2 $ jux (|*| speed 0.5) $ n (off 0.25 (+"<7 7 5 5>") $ "c7 [~ g9] c6 c8*2") # sound "jx"
# lpf (slow 2 $ scale 2000 1000 sine)
# lpq 0.3
|+| n "<0 2 5 12>"
d3 $ off 0.25 (# crush 3) $ chunk 4 (hurry 2) $ n "{0*2 ~, 1 5*2 3*2}" # sound "speakspell"
# gain 1.1
d5 $ jux rev $ slow 2 $ struct "x(3,8)" $ sound "hits:2"
# orbit 1
# gain 1.2
d9 $ jux rev $ loopAt 4 $ chop 32 $sound "repetition"
# gain 1.4
# n (irand 7)
d8 $ off 0.25 (|*| speed 2) $ slow 2 $ sound "gab(<5 7>,16)"
# gain 1.2
# end 0.01
d7 $ jux rev $ iter 4 $ loopAt 4 $ chop 8 $ sound "liq"
# gain 1.5
# lpf (slow 4 $ scale 2000 8000 sine)
# lpq 0.2
d1 $ rev $ loopAt 2 $ chop 4 $ sound "narc:1"
# gain 1.5
d1 $ chunk 4 (hurry 2) $ off 0.25 (|*| s "jx") $ slow 2 $ n "[c8 ~ d8? e9] [c8 g8]" # sound "xx"
# gain 1.35
|+| n "<0 7 12 7>"
# lpf 3000
# lpq 0.2
d2 $ chunk 4 (hurry 2) $ jux rev $ off 0.25 (# speed 4) $ sound "bd gab [mt ht] sn:2"
# speed 2
# gain 1.3
d3 $ jux rev $ off 0.25 (|*| speed 2) $ n "0 .. 7" # sound "micron"
# gain 1.3
d2 $ jux rev $ off 0.25 (|*| speed 2)$ loopAt 2 $ chop 8 $ s "<os:1 os:0>"
# gain 1.4
hush
d2 silence
cps 1.1
d1 $ n (off 0.125 (+ chord "major") $ "c e") # sound "superpiano"
# gain 1.4