some tweaks
[polytopiary:h4tek.git] / h4tek_audio.pd
1 #N canvas 0 0 556 339 10;
2 #X obj 192 307 outlet~;
3 #X obj 272 307 outlet~;
4 #X obj 445 310 outlet;
5 #X obj 404 266 - 96;
6 #X msg 404 287 left \$1;
7 #X obj 474 266 - 96;
8 #X msg 474 287 right \$1;
9 #N canvas 0 0 557 330 \$0-drums 0;
10 #X obj 148 274 outlet~;
11 #X obj 206 274 outlet~;
12 #X obj 53 153 *~ 0.9;
13 #X obj 98 153 *~ 1.1;
14 #X obj 192 153 *~ 0.9;
15 #X obj 146 153 *~ 1.1;
16 #X obj 291 153 *~ 1.4;
17 #X obj 246 152 *~ 0.7;
18 #X obj 333 152 *~ 1.4;
19 #X obj 376 152 *~ 0.7;
20 #X obj 434 151 *~ 1;
21 #X obj 74 16 inlet;
22 #X obj 74 51 route kick4 snare clap hihat handdrum1 handdrum2 cowbell
23 ;
24 #X obj 15 154 *~ 1.5;
25 #X obj 14 99 kick4~;
26 #X obj 76 100 snare~;
27 #X obj 168 102 clap~;
28 #X obj 270 108 hihat~;
29 #X obj 352 103 handdrum~;
30 #X obj 435 99 cowbell~;
31 #X obj 205 222 *~ 1;
32 #X obj 147 222 *~ 1;
33 #X connect 2 0 21 0;
34 #X connect 3 0 20 0;
35 #X connect 4 0 20 0;
36 #X connect 5 0 21 0;
37 #X connect 6 0 20 0;
38 #X connect 7 0 21 0;
39 #X connect 8 0 21 0;
40 #X connect 9 0 20 0;
41 #X connect 10 0 20 0;
42 #X connect 10 0 21 0;
43 #X connect 11 0 12 0;
44 #X connect 12 0 14 0;
45 #X connect 12 1 15 0;
46 #X connect 12 2 16 0;
47 #X connect 12 3 17 0;
48 #X connect 12 4 18 0;
49 #X connect 12 5 18 1;
50 #X connect 12 6 19 0;
51 #X connect 13 0 20 0;
52 #X connect 13 0 21 0;
53 #X connect 14 0 13 0;
54 #X connect 15 0 2 0;
55 #X connect 15 0 3 0;
56 #X connect 16 0 5 0;
57 #X connect 16 0 4 0;
58 #X connect 17 0 7 0;
59 #X connect 17 0 6 0;
60 #X connect 18 0 8 0;
61 #X connect 18 0 9 0;
62 #X connect 19 0 10 0;
63 #X connect 20 0 1 0;
64 #X connect 21 0 0 0;
65 #X restore 155 89 pd \$0-drums;
66 #X obj 119 18 inlet;
67 #N canvas 0 0 450 300 \$0-control 0;
68 #X obj 25 13 inlet;
69 #X obj 25 277 outlet;
70 #X msg 52 91 \; pd dsp \$1;
71 #X obj 25 67 t f f;
72 #X msg 25 126 audio \$1;
73 #X obj 25 40 route audio;
74 #X connect 0 0 5 0;
75 #X connect 3 0 4 0;
76 #X connect 3 1 2 0;
77 #X connect 4 0 1 0;
78 #X connect 5 0 3 0;
79 #X restore 445 75 pd \$0-control;
80 #N canvas 0 0 450 300 \$0-basses 0;
81 #X obj 99 130 bass-wobble~;
82 #X obj 109 234 outlet~;
83 #X obj 177 236 outlet~;
84 #X obj 100 76 route bass-wobble;
85 #X obj 102 34 inlet;
86 #X obj 177 183 *~ 0.3;
87 #X obj 132 184 *~ 0.15;
88 #X obj 82 184 *~ 0.15;
89 #X connect 0 0 7 0;
90 #X connect 0 1 6 0;
91 #X connect 0 2 5 0;
92 #X connect 3 0 0 0;
93 #X connect 4 0 3 0;
94 #X connect 5 0 1 0;
95 #X connect 5 0 2 0;
96 #X connect 6 0 2 0;
97 #X connect 7 0 1 0;
98 #X restore 48 129 pd \$0-basses;
99 #X obj 404 244 env~ 8192;
100 #X obj 474 244 env~ 8192;
101 #N canvas 0 0 450 300 \$0-leads 0;
102 #X obj 30 20 inlet;
103 #X obj 29 267 outlet~;
104 #X obj 117 267 outlet~;
105 #X obj 31 102 trisqrcos-lead~;
106 #X obj 31 66 route trisq;
107 #X obj 119 211 *~ 0.2;
108 #X obj 29 211 *~ 0.2;
109 #X connect 0 0 4 0;
110 #X connect 3 0 6 0;
111 #X connect 3 1 5 0;
112 #X connect 4 0 3 0;
113 #X connect 5 0 2 0;
114 #X connect 6 0 1 0;
115 #X restore 262 89 pd \$0-leads;
116 #N canvas 0 0 450 300 \$0-pads 0;
117 #X obj 30 20 inlet;
118 #X obj 29 264 outlet~;
119 #X obj 89 264 outlet~;
120 #X obj 31 48 route sparkle;
121 #X obj 31 114 sparkle~;
122 #X connect 0 0 3 0;
123 #X connect 3 0 4 0;
124 #X connect 4 0 1 0;
125 #X connect 4 1 2 0;
126 #X restore 342 89 pd \$0-pads;
127 #X obj 190 146 compress~ 36;
128 #N canvas 0 0 450 300 \$0-echo 0;
129 #X obj 31 22 inlet~;
130 #X obj 140 20 inlet~;
131 #X obj 55 283 outlet~;
132 #X obj 127 282 outlet~;
133 #X obj 23 233 delwrite~ \$0-echo-l 1000;
134 #X obj 181 232 delwrite~ \$0-echo-r 1000;
135 #X obj 196 23 inlet;
136 #X obj 196 64 t b b;
137 #X obj 196 84 timer;
138 #X obj 57 209 compress~ 60;
139 #X obj 20 147 delread~ \$0-echo-r;
140 #X obj 144 147 delread~ \$0-echo-l;
141 #X obj 145 181 *~ 0.1;
142 #X obj 18 179 *~ 0.1;
143 #X obj 19 119 * 3;
144 #X obj 145 119 * 2.66667;
145 #X obj 129 263 *~ 0.25;
146 #X obj 59 263 *~ 0.25;
147 #X obj 196 44 route echo echo-fb;
148 #X floatatom 245 7 5 0 0 0 - - -;
149 #X msg 243 26 echo-fb \$1;
150 #X connect 0 0 9 0;
151 #X connect 1 0 9 1;
152 #X connect 6 0 18 0;
153 #X connect 7 0 8 0;
154 #X connect 7 1 8 1;
155 #X connect 8 0 14 0;
156 #X connect 8 0 15 0;
157 #X connect 9 0 4 0;
158 #X connect 9 0 17 0;
159 #X connect 9 1 5 0;
160 #X connect 9 1 16 0;
161 #X connect 10 0 13 0;
162 #X connect 11 0 12 0;
163 #X connect 12 0 9 1;
164 #X connect 13 0 9 0;
165 #X connect 14 0 10 0;
166 #X connect 15 0 11 0;
167 #X connect 16 0 3 0;
168 #X connect 17 0 2 0;
169 #X connect 18 0 7 0;
170 #X connect 18 1 12 1;
171 #X connect 18 1 13 1;
172 #X connect 19 0 20 0;
173 #X connect 20 0 18 0;
174 #X restore 317 156 pd \$0-echo;
175 #X obj 155 119 *~ 0.5;
176 #X obj 211 119 *~ 0.5;
177 #X obj 192 191 expr~ $v1*0.5 \; $v2*0.5;
178 #X connect 3 0 4 0;
179 #X connect 4 0 2 0;
180 #X connect 5 0 6 0;
181 #X connect 6 0 2 0;
182 #X connect 7 0 15 0;
183 #X connect 7 0 17 0;
184 #X connect 7 1 15 1;
185 #X connect 7 1 18 0;
186 #X connect 8 0 7 0;
187 #X connect 8 0 9 0;
188 #X connect 8 0 13 0;
189 #X connect 8 0 14 0;
190 #X connect 8 0 10 0;
191 #X connect 8 0 16 2;
192 #X connect 9 0 2 0;
193 #X connect 10 0 19 0;
194 #X connect 10 1 19 1;
195 #X connect 11 0 3 0;
196 #X connect 12 0 5 0;
197 #X connect 13 0 16 0;
198 #X connect 13 0 19 0;
199 #X connect 13 1 16 1;
200 #X connect 13 1 19 1;
201 #X connect 14 0 15 0;
202 #X connect 14 1 15 1;
203 #X connect 15 0 19 0;
204 #X connect 15 1 19 1;
205 #X connect 16 0 19 0;
206 #X connect 16 1 19 1;
207 #X connect 17 0 19 0;
208 #X connect 18 0 19 1;
209 #X connect 19 0 0 0;
210 #X connect 19 0 11 0;
211 #X connect 19 1 1 0;
212 #X connect 19 1 12 0;