-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathbop.sequence.pd
222 lines (222 loc) · 7.29 KB
/
bop.sequence.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
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
#N canvas 398 37 1072 891 12;
#X declare -path ./babs;
#X obj 46 132 inlet~, f 9;
#X obj 218 242 outlet;
#X text 218 269 MIDI and messages dump out of right, f 13;
#X obj 46 192 outlet~;
#X text 36 220 Signal out of left, f 9;
#X text 43 100 Signal \, MIDI \, and messages in left, f 36;
#X text 37 20 ---------- bop module template -------------;
#X obj 244 209 r \$0-out;
#X obj 545 953 r \$0-get-open;
#X msg 545 982 click;
#X msg 173 471 line 0 \, auto;
#X msg 72 439 stop;
#X obj 72 515 text sequence \$0-seq -w -, f 36;
#X obj 361 546 r \$0-get-loop;
#X obj 322 580 spigot;
#X obj 322 611 s \$0-retrigger;
#X obj 185 437 r \$0-retrigger;
#X obj 72 602 s \$0-out;
#X obj 322 552 bng 19 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X text 819 395 === \; --- x 4 \; - 1 \; - 1 \; - 1 \; - 1 \; --- \; - 1 \; - 1 \; - 1 \; - 1 \; --- xx 2 \; - 1 \; - 1 \; - 1 \; - 1 \; --- \; - 1 \; - 1 \; --- xxx 8 \; - 1 \; - 1 \; --- \;, f 27;
#X obj 174 404 r \$0-get-go;
#N canvas 62 124 1177 747 process 0;
#X obj 40 38 inlet;
#X obj 32 267 outlet;
#X obj 147 213 route === --- -;
#X text 145 179 handle commands;
#N canvas 121 158 450 300 process-rests 0;
#X obj 28 93 inlet;
#X obj 31 203 outlet;
#X connect 0 0 1 0;
#X restore 210 254 pd process-rests;
#N canvas 121 158 450 300 process-header 0;
#X obj 28 93 inlet;
#X obj 31 203 outlet;
#X connect 0 0 1 0;
#X restore 144 312 pd process-header;
#X obj 43 144 list trim;
#X obj 363 38 inlet;
#X text 414 37 rests come in here \;;
#X listbox 363 88 20 0 0 0 - - - 0;
#X text 634 67 === \; // never return above here (brick wall header);
#X text 638 124 multi-dashes work like comments \; nested looping?;
#X text 642 628 working on.... transfering sequences...required?;
#X text 354 215 - 3000 // 300 ms \; - 4b // bars \; - b4 // a quater of a bar \;;
#X text 134 486 Fire scenes from numbox? --- scene 1 \;;
#X text 629 36 todos...;
#X text 643 579 tempo and specifying time in bpm/subdivision of a bar:, f 27;
#X text 139 520 Repeats --- x 1 \;;
#X text 139 543 End Repeats --- :| \;;
#X text 645 548 Nested repeats.. maybe --- xx 1 \;;
#X text 642 178 === \; --- scene 1 \; --- x 4 \; - 1 \; - 1 \; - 1 \; - 1 \; --- \; - 1 \; - 1 \; - 1 \; - 1 \; --- xx 2 \; - 1 \; - 1 \; - 1 \; - 1 \; --- \; - 1 \; - 1 \; --- xxx 8 \; - 1 \; - 1 \; --- \;, f 27;
#X text 356 306 - B 4 // four bars \; - b 4 // a quater of a bar \;;
#X text 360 353 --- beat one \; - B 0.75 // rest for 3 beats \; --- beat 4 \; - b 4 // rest for 1 beat \;;
#X text 365 278 or ... \;;
#X text 146 568 --- repeat 8 \; 64 127 \; - b 4 \; 64 0 \; - b 4 --- repeat end \;;
#N canvas 121 158 450 300 process-comments 0;
#X obj 28 93 inlet;
#X obj 31 203 outlet;
#X connect 0 0 1 0;
#X restore 178 283 pd process-comments;
#X connect 0 0 6 0;
#X connect 2 0 5 0;
#X connect 2 1 25 0;
#X connect 2 2 4 0;
#X connect 6 0 1 0;
#X connect 6 0 2 0;
#X connect 7 0 9 0;
#X restore 72 556 pd process;
#X f 18;
#X msg 561 814 read;
#N canvas 101 88 720 782 getpath 0;
#X obj 69 29 inlet;
#X obj 72 638 outlet;
#X obj 72 319 openpanel;
#X obj 69 72 list;
#X obj 106 135 list length;
#X obj 68 100 t l l;
#X obj 68 180 list prepend;
#X obj 71 252 route 1;
#X obj 197 343 symbol;
#X obj 158 314 list split 2;
#X obj 72 580 list prepend read;
#X obj 72 604 list trim;
#X obj 72 398 file normalize;
#X obj 167 430 sel 1 2;
#X msg 163 464 warning;
#X msg 227 464 error;
#X obj 71 281 bng 19 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 164 539 s \$0-out;
#X obj 163 517 list trim;
#X obj 163 493 list prepend filepath invalid;
#X obj 196 373 makefilename ./sequences/%s;
#X connect 0 0 3 0;
#X connect 2 0 12 0;
#X connect 3 0 5 0;
#X connect 4 0 6 1;
#X connect 5 0 6 0;
#X connect 5 1 4 0;
#X connect 6 0 7 0;
#X connect 7 0 16 0;
#X connect 7 1 9 0;
#X connect 8 0 20 0;
#X connect 9 1 8 0;
#X connect 10 0 11 0;
#X connect 11 0 1 0;
#X connect 12 0 10 0;
#X connect 12 1 13 0;
#X connect 13 0 14 0;
#X connect 13 1 15 0;
#X connect 14 0 19 0;
#X connect 15 0 19 0;
#X connect 16 0 2 0;
#X connect 18 0 17 0;
#X connect 19 0 18 0;
#X connect 20 0 12 0;
#X restore 531 885 pd getpath;
#X text 648 949 open default editor;
#X text 604 814 open file dialog;
#X text 530 706 READING AND EDITING;
#X obj 530 1015 text define -k \$0-seq;
#A set --- set instrument \; instrument 0 \; --- strum from 0 to 1 in 1000ms \; strum 0 1 1000 \; --- wait 1000ms \; - 2000 \; --- change instrument \; instrument 1 \; --- play two midi notes \; 44 127 \; 51 127 \; --- wait 2000ms \; - 2000 \; --- stop everything \; stop \; --- wait 1 second \; - 1000 \;;
#X text 694 1016 -k store content with patcher;
#X obj 41 432 bng 19 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X text 75 370 RUNNING;
#X text 905 393 === \; // todo: never return above here (brick wall header);
#X text 820 343 multiple dashes work like comments \; single dashes indicate rest \;;
#X obj 43 57 declare -path ./babs;
#X obj 218 176 babs.inout \$0 bop.sequence;
#X obj 218 146 inlet;
#X obj 533 728 r \$0-get-read;
#X obj 531 775 list prepend read;
#X obj 72 403 r \$0-get-stop;
#X obj 108 157 s \$0-in;
#X obj 263 144 r \$0-in;
#X obj 525 80 savestate;
#X obj 525 53 babs.savestate \$0;
#X obj 525 256 text fromlist \$0-seq;
#X obj 526 370 text tolist \$0-seq;
#X obj 526 309 r \$0-savestate;
#X obj 526 433 s \$0-savestate;
#X obj 526 343 route bang;
#X obj 526 404 list prepend internal-sequence;
#X obj 525 206 route internal-sequence;
#X obj 525 183 list trim;
#X obj 525 230 list;
#X obj 525 158 r \$0-loadstate;
#X msg 567 848 read help.bopseq;
#X text 689 846 read file relative to ./sequences;
#X obj 674 1093 text size \$0-seq;
#X obj 674 1069 bng 19 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 674 1043 route updated;
#X obj 70 716 r \$0-get-scrub;
#X text 1047 1550 comment;
#X obj 70 780 *;
#X obj 70 869 text get \$0-seq;
#X obj 70 842 change;
#X obj 674 1121 s \$0-seq-size;
#X obj 89 753 r \$0-seq-size;
#X text 66 678 SCRUB;
#X obj 70 893 s \$0-out;
#X obj 70 809 int;
#X obj 780 253 babs.param \$0 scrub 0;
#X obj 780 219 babs.param.spacer \$0;
#X obj 779 186 babs.param \$0 loop 0 0 1;
#X obj 779 162 babs.param.msg \$0 go;
#X obj 779 127 babs.param.spacer \$0;
#X obj 778 75 babs.param.attr \$0 read;
#X obj 776 29 babs.param.msg \$0 open;
#X obj 799 1048 loadbang;
#X obj 799 1072 delay 10;
#X connect 0 0 3 0;
#X connect 0 1 39 0;
#X connect 7 0 1 0;
#X connect 8 0 9 0;
#X connect 9 0 27 0;
#X connect 10 0 12 0;
#X connect 11 0 12 0;
#X connect 12 0 21 0;
#X connect 12 1 21 1;
#X connect 12 2 18 0;
#X connect 13 0 14 1;
#X connect 14 0 15 0;
#X connect 16 0 10 0;
#X connect 18 0 14 0;
#X connect 20 0 10 0;
#X connect 21 0 17 0;
#X connect 22 0 23 0;
#X connect 23 0 27 0;
#X connect 27 1 57 0;
#X connect 34 0 1 0;
#X connect 35 0 34 0;
#X connect 36 0 37 0;
#X connect 37 0 23 0;
#X connect 38 0 11 0;
#X connect 38 0 29 0;
#X connect 40 0 34 0;
#X connect 41 0 42 1;
#X connect 41 1 42 0;
#X connect 42 0 41 0;
#X connect 44 0 48 0;
#X connect 45 0 47 0;
#X connect 47 0 44 0;
#X connect 48 0 46 0;
#X connect 49 0 51 0;
#X connect 50 0 49 0;
#X connect 51 0 43 0;
#X connect 52 0 50 0;
#X connect 53 0 23 0;
#X connect 55 0 63 0;
#X connect 56 0 55 0;
#X connect 57 0 56 0;
#X connect 58 0 60 0;
#X connect 60 0 67 0;
#X connect 61 0 66 0;
#X connect 62 0 61 0;
#X connect 64 0 60 1;
#X connect 67 0 62 0;
#X connect 75 0 76 0;
#X connect 76 0 56 0;
#X coords 0 891 1 890 166 100 0;