some tweaks
[polytopiary:h4tek.git] / h4tek_main.pd
1 #N canvas 216 69 555 426 10;
2 #X obj 285 228 h4tek_audio;
3 #X obj 310 320 dac~;
4 #X obj 348 286 s h4tek-GUI-r;
5 #X obj 221 169 h4tek_video;
6 #X obj 222 320 recorder~;
7 #X obj 287 318 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
8 1;
9 #X obj 297 30 h4tek_input;
10 #X obj 297 60 event_recorder;
11 #X msg 378 33 record \$1;
12 #X obj 378 9 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
13 ;
14 #N canvas 0 0 450 300 h4tek_keymapping-stub 0;
15 #X obj 30 26 inlet;
16 #X obj 106 264 outlet;
17 #X obj 242 263 outlet;
18 #X obj 356 263 outlet;
19 #X obj 25 265 outlet;
20 #X restore 297 94 pd h4tek_keymapping-stub;
21 #N canvas 453 0 810 683 h4tek_sequencer-stub 0;
22 #X obj 26 598 outlet;
23 #X obj 285 593 outlet;
24 #X obj 667 269 outlet;
25 #X obj 24 18 inlet;
26 #X obj 137 18 table \$0-seq 384;
27 #X obj 27 121 metro 111;
28 #X obj 27 146 f 0;
29 #X obj 65 147 + 1;
30 #X obj 23 53 route start stop;
31 #X msg 22 96 1;
32 #X msg 76 98 0;
33 #X obj 22 75 t b b;
34 #X msg 48 97 0;
35 #X obj 156 47 mod 64;
36 #X obj 266 81 moses 47.5;
37 #X obj 266 106 mod 16;
38 #X obj 323 106 mod 16;
39 #X obj 156 104 mod 16;
40 #X obj 669 138 div 16;
41 #X obj 669 159 change;
42 #X msg 667 242 bar \$1;
43 #X msg 721 238 beat \$1;
44 #X obj 722 218 mod 16;
45 #X obj 156 195 + 16;
46 #X obj 156 235 + 16;
47 #X obj 156 275 + 16;
48 #X obj 156 315 + 16;
49 #X obj 156 355 + 16;
50 #X obj 156 395 + 16;
51 #X obj 195 195 tabread \$0-seq;
52 #X obj 195 235 tabread \$0-seq;
53 #X obj 195 275 tabread \$0-seq;
54 #X obj 195 315 tabread \$0-seq;
55 #X obj 195 355 tabread \$0-seq;
56 #X obj 195 395 tabread \$0-seq;
57 #X msg 195 215 kick4 \$1;
58 #X msg 195 295 snare \$1;
59 #X msg 195 335 clap \$1;
60 #X obj 156 435 + 16;
61 #X obj 195 435 tabread \$0-seq;
62 #X obj 195 475 tabread \$0-seq;
63 #X msg 195 375 hihat \$1;
64 #X msg 196 414 cowbell \$1;
65 #X msg 195 455 handdrum1 \$1;
66 #X msg 195 495 handdrum2 \$1;
67 #X obj 323 159 + 128;
68 #X obj 323 130 + 16;
69 #X obj 362 196 tabread \$0-seq;
70 #X msg 362 218 bass-wobble \$1;
71 #X obj 668 196 div 16;
72 #X obj 668 217 change;
73 #X obj 391 7 route seq;
74 #X obj 391 29 unpack f f f;
75 #X obj 391 51 * 16;
76 #X obj 391 74 +;
77 #X obj 391 97 swap;
78 #X obj 389 123 tabwrite \$0-seq;
79 #X obj 455 157 + 128;
80 #X obj 488 197 tabread \$0-seq;
81 #X msg 488 219 sparkle \$1;
82 #X obj 362 266 tabread \$0-seq;
83 #X msg 362 288 trisq \$1;
84 #X obj 324 233 + 32;
85 #X obj 323 199 + 32;
86 #X msg 95 527 echo;
87 #X obj 382 322 sel -1 0;
88 #X msg 426 401 bloom;
89 #X obj 269 254 sel -1 0;
90 #X msg 312 273 boost;
91 #X obj 302 348 sel -1 0;
92 #X msg 348 371 wire;
93 #X connect 3 0 8 0;
94 #X connect 5 0 6 0;
95 #X connect 5 0 64 0;
96 #X connect 6 0 7 0;
97 #X connect 6 0 0 0;
98 #X connect 6 0 13 0;
99 #X connect 6 0 18 0;
100 #X connect 7 0 6 1;
101 #X connect 8 0 11 0;
102 #X connect 8 1 10 0;
103 #X connect 8 2 51 0;
104 #X connect 9 0 5 0;
105 #X connect 10 0 5 0;
106 #X connect 11 0 9 0;
107 #X connect 11 1 12 0;
108 #X connect 12 0 6 1;
109 #X connect 13 0 14 0;
110 #X connect 13 0 17 0;
111 #X connect 14 0 15 0;
112 #X connect 14 1 16 0;
113 #X connect 15 0 45 0;
114 #X connect 16 0 46 0;
115 #X connect 17 0 23 0;
116 #X connect 17 0 29 0;
117 #X connect 18 0 19 0;
118 #X connect 19 0 22 0;
119 #X connect 19 0 49 0;
120 #X connect 20 0 2 0;
121 #X connect 21 0 2 0;
122 #X connect 22 0 21 0;
123 #X connect 23 0 24 0;
124 #X connect 23 0 30 0;
125 #X connect 24 0 25 0;
126 #X connect 24 0 31 0;
127 #X connect 25 0 26 0;
128 #X connect 25 0 32 0;
129 #X connect 26 0 27 0;
130 #X connect 26 0 33 0;
131 #X connect 27 0 28 0;
132 #X connect 27 0 34 0;
133 #X connect 28 0 38 0;
134 #X connect 28 0 39 0;
135 #X connect 29 0 35 0;
136 #X connect 29 0 67 0;
137 #X connect 31 0 36 0;
138 #X connect 31 0 69 0;
139 #X connect 32 0 37 0;
140 #X connect 32 0 69 0;
141 #X connect 33 0 41 0;
142 #X connect 34 0 42 0;
143 #X connect 35 0 1 0;
144 #X connect 36 0 1 0;
145 #X connect 37 0 1 0;
146 #X connect 38 0 40 0;
147 #X connect 39 0 43 0;
148 #X connect 40 0 44 0;
149 #X connect 41 0 1 0;
150 #X connect 42 0 1 0;
151 #X connect 43 0 1 0;
152 #X connect 44 0 1 0;
153 #X connect 45 0 47 0;
154 #X connect 45 0 57 0;
155 #X connect 45 0 63 0;
156 #X connect 46 0 45 0;
157 #X connect 47 0 48 0;
158 #X connect 48 0 1 0;
159 #X connect 49 0 50 0;
160 #X connect 50 0 20 0;
161 #X connect 51 0 52 0;
162 #X connect 52 0 53 0;
163 #X connect 52 1 54 1;
164 #X connect 52 2 55 1;
165 #X connect 53 0 54 0;
166 #X connect 54 0 55 0;
167 #X connect 55 0 56 0;
168 #X connect 55 1 56 1;
169 #X connect 57 0 58 0;
170 #X connect 58 0 59 0;
171 #X connect 59 0 1 0;
172 #X connect 60 0 61 0;
173 #X connect 60 0 65 0;
174 #X connect 61 0 1 0;
175 #X connect 62 0 60 0;
176 #X connect 63 0 62 0;
177 #X connect 64 0 1 0;
178 #X connect 65 2 66 0;
179 #X connect 66 0 0 0;
180 #X connect 67 2 68 0;
181 #X connect 68 0 0 0;
182 #X connect 69 2 70 0;
183 #X connect 70 0 0 0;
184 #X restore 297 143 pd h4tek_sequencer-stub;
185 #X msg 221 142 video \$1;
186 #X obj 220 117 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
187 1;
188 #X msg 431 196 audio \$1;
189 #X obj 431 172 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
190 1;
191 #X msg 123 12 2 \, 6 \, 10 \, 13;
192 #X msg 126 33 seq 4 \$1 60;
193 #X msg 128 75 seq 5 \$1 48;
194 #X msg 128 55 0 \, 3 \, 6 \, 11;
195 #X msg 7 214 seq 8 \$1 \$2;
196 #X msg 7 270 seq 9 \$1 \$2;
197 #X msg 448 145 sparkle start;
198 #X msg 461 170 sparkle stop;
199 #X msg 6 379 seq 12 \$1 \$2 \, seq 13 \$1 \$2;
200 #X msg 198 378 0 \, 1 \, 2 \, 3 \, 4 \, 5 \, 6 \, 7 \, 8 \, 9 \, 10
201 \, 11 \, 12 \, 13 \, 14 \, 15;
202 #X msg 8 190 0 0 \, 2 36 \, 4 -1 \, 6 29 \, 8 -1 \, 10 36 \, 13 27
203 \, 15 -1;
204 #X msg 8 249 0 -1 \, 2 36 \, 4 -1 \, 6 29 \, 8 -1 \, 10 36 \, 12 27
205 \, 14 34;
206 #X msg 84 353 seq 13 7 46 \, seq 13 9 0;
207 #X msg 11 76 4 \, 12;
208 #X msg 257 87 start;
209 #X msg 11 98 seq 2 \$1 48 \, seq 3 \$1 48;
210 #X msg 11 25 0 \, 4 \, 8 \, 12;
211 #X msg 6 292 seq 16 0 39 \, seq 17 0 43 \, seq 17 8 43;
212 #X msg 262 64 stop;
213 #X msg 197 402 seq 8 \$1 0 \, seq 9 \$1 0;
214 #X msg 6 331 3 55 \, 4 -1 \, 10 60 \, 11 -1 \, 14 48;
215 #X msg 11 49 seq 0 \$1 48;
216 #X connect 0 0 4 1;
217 #X connect 0 0 1 0;
218 #X connect 0 1 4 2;
219 #X connect 0 1 1 1;
220 #X connect 0 2 2 0;
221 #X connect 3 0 4 0;
222 #X connect 3 1 0 0;
223 #X connect 3 2 2 0;
224 #X connect 5 0 4 3;
225 #X connect 6 0 7 0;
226 #X connect 7 0 10 0;
227 #X connect 8 0 7 1;
228 #X connect 9 0 8 0;
229 #X connect 10 0 11 0;
230 #X connect 10 1 3 0;
231 #X connect 10 2 0 0;
232 #X connect 10 3 2 0;
233 #X connect 11 0 3 0;
234 #X connect 11 1 0 0;
235 #X connect 11 2 2 0;
236 #X connect 12 0 3 0;
237 #X connect 13 0 12 0;
238 #X connect 14 0 0 0;
239 #X connect 15 0 14 0;
240 #X connect 16 0 17 0;
241 #X connect 17 0 11 0;
242 #X connect 18 0 11 0;
243 #X connect 19 0 18 0;
244 #X connect 20 0 11 0;
245 #X connect 21 0 11 0;
246 #X connect 22 0 0 0;
247 #X connect 23 0 0 0;
248 #X connect 24 0 11 0;
249 #X connect 25 0 35 0;
250 #X connect 26 0 20 0;
251 #X connect 27 0 21 0;
252 #X connect 28 0 11 0;
253 #X connect 29 0 31 0;
254 #X connect 30 0 11 0;
255 #X connect 31 0 11 0;
256 #X connect 32 0 37 0;
257 #X connect 33 0 11 0;
258 #X connect 34 0 11 0;
259 #X connect 35 0 11 0;
260 #X connect 36 0 24 0;
261 #X connect 37 0 11 0;