-
Notifications
You must be signed in to change notification settings - Fork 0
/
sparkle.pd
131 lines (131 loc) · 3.29 KB
/
sparkle.pd
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
#N canvas 407 222 1516 1012 12;
#X floatatom 587 267 5 0.9 2 0 - - -;
#X obj 367 281 d 0.5;
#X obj 413 277 d 0.7;
#X obj 468 268 d 5000;
#X obj 284 374 microtonal_voice 1 1;
#X obj 435 372 microtonal_voice 1 1;
#X obj 1015 442 loadbang;
#X msg 1016 475 \; pd dsp 1;
#X obj 102 247 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 291 446 dac~;
#X obj 292 406 *~;
#X obj 428 411 *~;
#X floatatom 594 369 5 0 1 0 - - -;
#X obj 315 225 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X floatatom 542 270 5 0.9 2 0 - - -;
#X obj 103 419 snapshot~;
#X obj 100 391 metro 16;
#X obj 91 353 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 109 469 5 0 0 0 - - -;
#X msg 496 179 36;
#X obj 313 296 d 48;
#X obj 109 518 + 1000;
#X obj 849 553 list split 1;
#X obj 865 295 list length;
#X obj 865 352 until;
#X obj 865 380 count, f 10;
#X obj 865 320 t f f, f 10;
#X obj 847 520 list store;
#X obj 832 197 t b b;
#X obj 807 177 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 870 472 list;
#X obj 866 416 t b f;
#X obj 907 585 array set \$0-melody;
#X obj 827 149 array define -k \$0-melody 20;
#A 0 36 46 43 43 41 43 44 46 43 43 0 0 0 0 0 0 0 0 0 0;
#X obj 817 254 t l l;
#X obj 170 108 array get \$0-melody;
#X obj 171 51 t f b;
#X msg 226 75 1;
#X msg 136 220 1;
#X obj 171 196 delay 200;
#X msg 169 222 0;
#X floatatom 481 450 5 0 0 0 - - -;
#X obj 171 149 t b b f f;
#X obj 390 43 count 10;
#X obj 393 16 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 834 221 36 46 43 43 41 43 44 46 43 43;
#X obj 112 296 adsr~ 0.1 100 0.01 100 3;
#X obj 108 493 * 5000;
#X obj 464 514 delwrite~ \$0-sparkle_del_R 3000;
#X obj 224 515 delwrite~ \$0-sparkle_del_L 3000;
#X obj 257 600 *~ 0.7;
#X obj 506 604 *~ 0.7;
#X obj 256 572 delread~ \$0-sparkle_del_L 250;
#X obj 498 571 delread~ \$0-sparkle_del_R 300;
#X connect 0 0 5 6;
#X connect 1 0 4 3;
#X connect 1 0 5 3;
#X connect 2 0 4 4;
#X connect 2 0 5 4;
#X connect 3 0 4 5;
#X connect 3 0 5 5;
#X connect 4 0 10 0;
#X connect 5 0 11 0;
#X connect 6 0 7 0;
#X connect 6 0 28 0;
#X connect 8 0 46 0;
#X connect 10 0 9 0;
#X connect 10 0 49 0;
#X connect 11 0 9 1;
#X connect 11 0 48 0;
#X connect 12 0 10 1;
#X connect 12 0 11 1;
#X connect 13 0 1 0;
#X connect 13 0 2 0;
#X connect 13 0 3 0;
#X connect 13 0 20 0;
#X connect 14 0 4 6;
#X connect 15 0 18 0;
#X connect 16 0 15 0;
#X connect 17 0 16 0;
#X connect 18 0 47 0;
#X connect 19 0 4 2;
#X connect 19 0 5 2;
#X connect 20 0 4 1;
#X connect 20 0 5 1;
#X connect 21 0 4 5;
#X connect 21 0 5 5;
#X connect 22 0 32 0;
#X connect 22 1 27 1;
#X connect 23 0 26 0;
#X connect 24 0 25 0;
#X connect 25 0 31 0;
#X connect 26 0 24 0;
#X connect 26 1 25 1;
#X connect 27 0 22 0;
#X connect 28 0 45 0;
#X connect 29 0 28 0;
#X connect 30 0 27 0;
#X connect 31 0 30 0;
#X connect 31 1 32 1;
#X connect 34 0 23 0;
#X connect 34 1 27 1;
#X connect 35 0 42 0;
#X connect 36 0 35 0;
#X connect 36 1 37 0;
#X connect 37 0 35 1;
#X connect 38 0 46 0;
#X connect 39 0 40 0;
#X connect 40 0 46 0;
#X connect 42 0 38 0;
#X connect 42 1 39 0;
#X connect 42 2 4 2;
#X connect 42 3 5 2;
#X connect 43 0 36 0;
#X connect 44 0 43 0;
#X connect 45 0 34 0;
#X connect 46 0 4 0;
#X connect 46 0 5 0;
#X connect 46 0 15 0;
#X connect 47 0 21 0;
#X connect 50 0 10 0;
#X connect 51 0 11 0;
#X connect 52 0 50 0;
#X connect 53 0 51 0;