-
Notifications
You must be signed in to change notification settings - Fork 7
/
cycle.pd
186 lines (186 loc) · 4.7 KB
/
cycle.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
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
#N canvas 1311 141 923 644 12;
#X obj 75 562 outlet;
#X obj 181 568 outlet;
#X text 74 589 pitch;
#X text 176 593 velocity;
#N canvas 0 22 450 278 (subpatch) 0;
#X array \$0-velocities 1 float 2;
#X coords 0 127 1 0 100 64 1 0 0;
#X restore 621 398 graph;
#X obj 307 44 inlet;
#X obj 476 50 inlet;
#X text 302 22 pitch list;
#X obj 75 264 f;
#X obj 131 264 + 1;
#X obj 75 321 mod 4;
#X floatatom 75 422 5 0 0 0 - - - 0;
#X obj 339 146 list length;
#X floatatom 339 170 5 0 0 0 - - - 0;
#X obj 307 114 t l l;
#X obj 339 195 array size \$0-pitches;
#X obj 508 105 list length;
#X floatatom 508 129 5 0 0 0 - - - 0;
#X obj 476 75 t l l;
#X obj 508 155 array size \$0-velocities;
#X floatatom 181 370 5 0 0 0 - - - 0;
#X floatatom 181 458 5 0 0 0 - - - 0;
#X obj 99 238 bng 15 50 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 823 43 inlet;
#X obj 825 131 s \$0-reset;
#X obj 392 14 loadbang;
#X text 471 11 velocity list;
#X floatatom 381 76 5 0 0 0 - - - 0;
#X floatatom 430 75 5 0 0 0 - - - 0;
#N canvas 0 22 450 278 (subpatch) 0;
#X array \$0-pitches 1 float 2;
#X coords 0 127 1 0 100 64 1 0 0;
#X restore 480 397 graph;
#X obj 476 238 array set \$0-velocities;
#X obj 307 239 array set \$0-pitches;
#N canvas 0 22 450 278 (subpatch) 0;
#X array \$0-durations 4 float 2;
#X coords 0 16 4 0 100 64 1 0 0;
#X restore 769 398 graph;
#X text 613 18 duration list;
#X obj 684 53 inlet;
#X obj 656 225 list length;
#X floatatom 656 250 5 0 0 0 - - - 0;
#X obj 624 181 t l l;
#X floatatom 624 89 5 0 0 0 - - - 0;
#X obj 656 276 array size \$0-durations;
#X obj 624 312 array set \$0-durations;
#X obj 180 331 mod 4;
#X floatatom 268 356 5 0 0 0 - - - 0;
#X floatatom 263 536 5 0 0 0 - - - 0;
#X obj 268 330 mod 4;
#X obj 343 568 outlet;
#X text 338 594 beat cnt;
#X obj 381 50 f \$1;
#X obj 430 50 f \$2;
#X obj 624 60 f \$3;
#X floatatom 75 351 5 0 0 0 - - - 0;
#X obj 263 568 outlet;
#X text 257 592 duration;
#X text 818 15 restart;
#X obj 624 116 expr if($f1 == 0 \, 1 \, $f1);
#X obj 75 291 t f f f f;
#X obj 266 454 array get \$0-durations \$1 1;
#X obj 181 430 array get \$0-velocities \$1 1;
#X obj 75 392 array get \$0-pitches \$1 1;
#X floatatom 162 294 5 0 0 0 - - - 0;
#X obj 120 234 r \$0-reset;
#X msg 825 100 0;
#X obj 161 68 f;
#X obj 212 17 r \$0-reset;
#X obj 184 41 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 422 568 outlet;
#X obj 422 532 f;
#X obj 456 532 + 1;
#X msg 440 502 0;
#X obj 266 503 max 1;
#X obj 266 479 int;
#X text 419 600 pulse cnt;
#X obj 98 11 inlet;
#X obj 99 72 bng 15 50 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 99 96 f;
#X obj 133 96 + 1;
#X floatatom 99 125 5 0 0 0 - - - 0;
#X msg 116 179 1;
#X obj 99 153 sel 4;
#X text 52 10 bang;
#X obj 44 35 route float bang;
#X floatatom 45 71 5 0 0 0 - - - 0;
#X obj 10 186 sel 0;
#X obj 11 242 s \$0-reset;
#X msg 11 209 0;
#X obj 45 96 t b f;
#X obj 16 150 sel 0;
#X obj 11 124 mod 16;
#X obj 762 69 r lct-cycle-reset;
#X connect 5 0 14 0;
#X connect 6 0 18 0;
#X connect 8 0 9 0;
#X connect 8 0 55 0;
#X connect 8 0 59 0;
#X connect 9 0 8 1;
#X connect 10 0 50 0;
#X connect 11 0 0 0;
#X connect 12 0 13 0;
#X connect 13 0 15 0;
#X connect 13 0 10 1;
#X connect 14 0 31 0;
#X connect 14 1 12 0;
#X connect 16 0 17 0;
#X connect 17 0 19 0;
#X connect 17 0 41 1;
#X connect 18 0 30 0;
#X connect 18 1 16 0;
#X connect 20 0 57 0;
#X connect 21 0 1 0;
#X connect 22 0 8 0;
#X connect 23 0 61 0;
#X connect 25 0 47 0;
#X connect 25 0 48 0;
#X connect 25 0 49 0;
#X connect 27 0 14 0;
#X connect 28 0 18 0;
#X connect 34 0 37 0;
#X connect 35 0 36 0;
#X connect 36 0 39 0;
#X connect 36 0 44 1;
#X connect 37 0 40 0;
#X connect 37 1 35 0;
#X connect 38 0 54 0;
#X connect 41 0 20 0;
#X connect 42 0 56 0;
#X connect 43 0 51 0;
#X connect 43 0 62 1;
#X connect 43 0 78 1;
#X connect 44 0 42 0;
#X connect 47 0 27 0;
#X connect 48 0 28 0;
#X connect 49 0 38 0;
#X connect 50 0 58 0;
#X connect 54 0 37 0;
#X connect 55 0 10 0;
#X connect 55 1 41 0;
#X connect 55 2 44 0;
#X connect 55 3 45 0;
#X connect 56 0 70 0;
#X connect 57 0 21 0;
#X connect 58 0 11 0;
#X connect 60 0 8 1;
#X connect 61 0 24 0;
#X connect 62 0 74 1;
#X connect 63 0 64 0;
#X connect 64 0 62 0;
#X connect 64 0 68 0;
#X connect 66 0 67 0;
#X connect 66 0 65 0;
#X connect 67 0 66 1;
#X connect 68 0 66 1;
#X connect 69 0 43 0;
#X connect 70 0 69 0;
#X connect 72 0 80 0;
#X connect 73 0 74 0;
#X connect 73 0 66 0;
#X connect 74 0 75 0;
#X connect 74 0 76 0;
#X connect 75 0 74 1;
#X connect 76 0 78 0;
#X connect 77 0 74 1;
#X connect 78 0 77 0;
#X connect 78 0 22 0;
#X connect 80 0 81 0;
#X connect 80 1 73 0;
#X connect 81 0 85 0;
#X connect 82 0 84 0;
#X connect 84 0 83 0;
#X connect 85 0 73 0;
#X connect 85 1 82 0;
#X connect 85 1 87 0;
#X connect 87 0 86 0;
#X connect 88 0 61 0;