annotate thunder4.pd @ 14:b76ee938cb04

BBCSpectrum image
author Roderick Selfridge <r.selfridge@qmul.ac.uk>
date Mon, 19 Jan 2015 11:57:35 +0000
parents c8e2503e8da9
children fc0040da3304
rev   line source
r@8 1 #N canvas 168 171 601 372 10;
r@8 2 #N canvas 152 29 188 323 afterimage 0;
r@8 3 #X obj 1 114 noise~;
r@8 4 #X obj 16 176 noise~;
r@8 5 #X obj 1 199 *~;
r@8 6 #X obj 1 241 bp~ 333 4;
r@8 7 #X obj 1 135 lop~ 3;
r@8 8 #X obj 1 220 clip~ -1 1;
r@8 9 #X obj 52 68 line;
r@8 10 #X obj 52 109 + 3;
r@8 11 #X obj 52 89 * 30;
r@8 12 #X obj 1 156 *~ 80;
r@8 13 #X obj 117 67 line;
r@8 14 #X obj 1 263 *~;
r@8 15 #X msg 52 48 1 \, 0 600;
r@8 16 #X msg 117 47 1 \, 0 6000;
r@8 17 #X obj 1 283 *~ 0.9;
r@8 18 #X obj 85 23 del 200;
r@8 19 #X obj 85 1 inlet;
r@8 20 #X obj 1 303 outlet~;
r@8 21 #X connect 0 0 4 0;
r@8 22 #X connect 1 0 2 1;
r@8 23 #X connect 2 0 5 0;
r@8 24 #X connect 3 0 11 0;
r@8 25 #X connect 4 0 9 0;
r@8 26 #X connect 5 0 3 0;
r@8 27 #X connect 6 0 8 0;
r@8 28 #X connect 7 0 4 1;
r@8 29 #X connect 8 0 7 0;
r@8 30 #X connect 9 0 2 0;
r@8 31 #X connect 10 0 11 1;
r@8 32 #X connect 11 0 14 0;
r@8 33 #X connect 12 0 6 0;
r@8 34 #X connect 13 0 10 0;
r@8 35 #X connect 14 0 17 0;
r@8 36 #X connect 15 0 12 0;
r@8 37 #X connect 15 0 13 0;
r@8 38 #X connect 16 0 15 0;
r@8 39 #X restore 248 91 pd afterimage;
r@8 40 #X obj 272 262 distance;
r@8 41 #X obj 323 238 line;
r@8 42 #X obj 11 71 r go;
r@8 43 #X obj 248 68 r go;
r@8 44 #X obj 350 66 r go;
r@8 45 #X obj 128 70 r go;
r@8 46 #X obj 186 49 line;
r@8 47 #X msg 186 26 1 \, 0 9000;
r@8 48 #X obj 186 4 r go;
r@8 49 #X obj 323 193 r go;
r@8 50 #X obj 272 348 dac~;
r@8 51 #X obj 286 288 s~ udly;
r@8 52 #N canvas 265 516 402 108 box 0;
r@8 53 #X obj 319 51 switch~;
r@8 54 #X obj 319 29 inlet;
r@8 55 #X obj 1 7 udly 12000;
r@8 56 #X obj 11 17 udly 12000;
r@8 57 #X obj 21 27 udly 12000;
r@8 58 #X obj 31 37 udly 12000;
r@8 59 #X obj 41 47 udly 12000;
r@8 60 #X obj 51 57 udly 12000;
r@8 61 #X obj 61 67 udly 12000;
r@8 62 #X obj 71 77 udly 12000;
r@8 63 #X obj 87 7 udly 12000;
r@8 64 #X obj 97 17 udly 12000;
r@8 65 #X obj 107 27 udly 12000;
r@8 66 #X obj 117 37 udly 12000;
r@8 67 #X obj 127 47 udly 12000;
r@8 68 #X obj 137 57 udly 12000;
r@8 69 #X obj 147 67 udly 12000;
r@8 70 #X obj 157 77 udly 12000;
r@8 71 #X obj 172 6 udly 12000;
r@8 72 #X obj 182 16 udly 12000;
r@8 73 #X obj 192 26 udly 12000;
r@8 74 #X obj 202 36 udly 12000;
r@8 75 #X obj 212 46 udly 12000;
r@8 76 #X obj 222 56 udly 12000;
r@8 77 #X obj 232 66 udly 12000;
r@8 78 #X obj 242 76 udly 12000;
r@8 79 #X connect 1 0 0 0;
r@8 80 #X restore 465 135 pd box of delays;
r@8 81 #X obj 126 264 catch~ la;
r@8 82 #X obj 368 263 catch~ ra;
r@8 83 #X obj 465 115 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
r@8 84 1;
r@8 85 #X obj 490 112 s shake;
r@8 86 #X obj 490 91 r go;
r@8 87 #X obj 12 22 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
r@8 88 -1;
r@8 89 #X obj 12 44 s go;
r@8 90 #X obj 186 71 * 2000;
r@8 91 #X msg 323 215 0 \, 1 12000;
r@8 92 #X obj 248 135 throw~ out;
r@8 93 #X obj 197 264 catch~ out;
r@8 94 #X obj 350 135 throw~ distance;
r@8 95 #X obj 129 135 throw~ distance;
r@8 96 #X obj 272 173 catch~ distance;
r@8 97 #N canvas 132 138 177 510 rumble 0;
r@8 98 #X obj 17 110 noise~;
r@8 99 #X obj 33 314 -~ 0.5;
r@8 100 #X obj 33 339 *~;
r@8 101 #X obj 33 359 *~ -4;
r@8 102 #X obj 33 379 +~ 1;
r@8 103 #X obj 33 399 *~ 0.5;
r@8 104 #X obj 75 28 noise~;
r@8 105 #X obj 75 89 max~ 0;
r@8 106 #X obj 17 172 samphold~;
r@8 107 #X msg 938 102 0.54;
r@8 108 #X obj 75 151 phasor~;
r@8 109 #X obj 75 111 *~ 3000;
r@8 110 #X obj 17 419 *~;
r@8 111 #X obj 17 439 hip~ 100;
r@8 112 #X obj 17 192 rpole~ 0.99;
r@8 113 #X obj 17 212 *~ 0.04;
r@8 114 #X obj 75 131 +~ 1;
r@8 115 #X obj 81 -12 inlet density;
r@8 116 #X obj 17 131 lop~;
r@8 117 #X obj 17 152 lop~;
r@8 118 #X obj 75 68 lop~;
r@8 119 #X obj 75 48 lop~;
r@8 120 #X obj 1 480 outlet~;
r@8 121 #X obj 17 241 min~ 0;
r@8 122 #X obj 17 263 *~ -1;
r@8 123 #X obj 65 240 max~ 0;
r@8 124 #X obj 17 286 +~;
r@8 125 #X obj 1 28 vline~;
r@8 126 #X obj 1 459 *~;
r@8 127 #X obj 1 -12 inlet trig;
r@8 128 #X msg 1 8 1 50 \, 0 8000 50;
r@8 129 #X connect 0 0 18 0;
r@8 130 #X connect 1 0 2 0;
r@8 131 #X connect 1 0 2 1;
r@8 132 #X connect 2 0 3 0;
r@8 133 #X connect 3 0 4 0;
r@8 134 #X connect 4 0 5 0;
r@8 135 #X connect 5 0 12 1;
r@8 136 #X connect 6 0 21 0;
r@8 137 #X connect 7 0 11 0;
r@8 138 #X connect 8 0 14 0;
r@8 139 #X connect 10 0 8 1;
r@8 140 #X connect 11 0 16 0;
r@8 141 #X connect 12 0 13 0;
r@8 142 #X connect 13 0 28 1;
r@8 143 #X connect 14 0 15 0;
r@8 144 #X connect 15 0 25 0;
r@8 145 #X connect 15 0 23 0;
r@8 146 #X connect 16 0 10 0;
r@8 147 #X connect 17 0 20 1;
r@8 148 #X connect 17 0 21 1;
r@8 149 #X connect 17 0 18 1;
r@8 150 #X connect 17 0 19 1;
r@8 151 #X connect 18 0 19 0;
r@8 152 #X connect 19 0 8 0;
r@8 153 #X connect 20 0 7 0;
r@8 154 #X connect 21 0 20 0;
r@8 155 #X connect 23 0 24 0;
r@8 156 #X connect 24 0 26 0;
r@8 157 #X connect 25 0 26 1;
r@8 158 #X connect 26 0 1 0;
r@8 159 #X connect 26 0 12 0;
r@8 160 #X connect 27 0 28 0;
r@8 161 #X connect 28 0 22 0;
r@8 162 #X connect 29 0 30 0;
r@8 163 #X connect 30 0 27 0;
r@8 164 #X restore 128 93 pd rumble;
r@8 165 #N canvas 148 116 232 212 deep 0;
r@8 166 #X obj 8 -8 noise~;
r@8 167 #X obj 7 161 *~;
r@8 168 #X obj 84 115 *~;
r@8 169 #X obj 84 49 del 1000;
r@8 170 #X obj 84 28 inlet;
r@8 171 #X obj 7 181 outlet~;
r@8 172 #X obj 84 91 vline~;
r@8 173 #X msg 84 70 1 2000 \, 0 20000 2000;
r@8 174 #X obj 8 12 lop~ 80;
r@8 175 #X obj 8 32 lop~ 80;
r@8 176 #X obj 8 52 hip~ 15;
r@8 177 #X obj 8 92 clip~ -1 1;
r@8 178 #X obj 8 72 *~ 12;
r@8 179 #X obj 8 112 lop~ 80;
r@8 180 #X obj 8 132 lop~ 80;
r@8 181 #X connect 0 0 8 0;
r@8 182 #X connect 1 0 5 0;
r@8 183 #X connect 2 0 1 1;
r@8 184 #X connect 3 0 7 0;
r@8 185 #X connect 4 0 3 0;
r@8 186 #X connect 6 0 2 0;
r@8 187 #X connect 6 0 2 1;
r@8 188 #X connect 7 0 6 0;
r@8 189 #X connect 8 0 9 0;
r@8 190 #X connect 9 0 10 0;
r@8 191 #X connect 10 0 12 0;
r@8 192 #X connect 11 0 13 0;
r@8 193 #X connect 12 0 11 0;
r@8 194 #X connect 13 0 14 0;
r@8 195 #X connect 14 0 1 0;
r@8 196 #X restore 350 88 pd deep;
r@8 197 #X obj 11 135 throw~ out;
r@8 198 #N canvas 724 263 166 223 strike 0;
r@8 199 #X obj 0 172 outlet~;
r@8 200 #X obj 1 44 route 0 1 2 3;
r@8 201 #X obj 1 0 inlet;
r@8 202 #N canvas 551 223 494 555 strike-pattern 0;
r@8 203 #X obj 82 8 inlet;
r@8 204 #X obj 153 334 outlet;
r@8 205 #X obj 82 38 t b b;
r@8 206 #X msg 82 71 1;
r@8 207 #X msg 112 71 0;
r@8 208 #X obj 82 98 +;
r@8 209 #X obj 112 98 f;
r@8 210 #X obj 82 125 moses 100;
r@8 211 #X obj 82 152 t f f;
r@8 212 #X obj 82 179 del;
r@8 213 #X obj 82 207 t b b;
r@8 214 #X obj 36 101 / 10;
r@8 215 #X obj 82 257 random 100;
r@8 216 #X obj 213 234 swap 100;
r@8 217 #X obj 213 258 -;
r@8 218 #X obj 213 284 / 100;
r@8 219 #X obj 153 257 f;
r@8 220 #X obj 182 257 + 1;
r@8 221 #X obj 153 283 mod 4;
r@8 222 #X obj 153 308 pack f f;
r@8 223 #X connect 0 0 2 0;
r@8 224 #X connect 2 0 3 0;
r@8 225 #X connect 2 1 4 0;
r@8 226 #X connect 3 0 5 0;
r@8 227 #X connect 4 0 6 0;
r@8 228 #X connect 5 0 6 0;
r@8 229 #X connect 5 0 7 0;
r@8 230 #X connect 6 0 5 1;
r@8 231 #X connect 7 0 8 0;
r@8 232 #X connect 8 0 9 0;
r@8 233 #X connect 8 1 13 0;
r@8 234 #X connect 9 0 10 0;
r@8 235 #X connect 10 0 12 0;
r@8 236 #X connect 10 1 16 0;
r@8 237 #X connect 11 0 5 0;
r@8 238 #X connect 12 0 11 0;
r@8 239 #X connect 13 0 14 0;
r@8 240 #X connect 13 1 14 1;
r@8 241 #X connect 14 0 15 0;
r@8 242 #X connect 15 0 19 1;
r@8 243 #X connect 16 0 17 0;
r@8 244 #X connect 16 0 18 0;
r@8 245 #X connect 17 0 16 1;
r@8 246 #X connect 18 0 19 0;
r@8 247 #X connect 19 0 1 0;
r@8 248 #X restore 1 23 pd strike-pattern;
r@8 249 #X obj 1 67 strike-sound;
r@8 250 #X obj 22 87 strike-sound;
r@8 251 #X obj 65 126 strike-sound;
r@8 252 #X obj 44 107 strike-sound;
r@8 253 #X connect 1 0 4 0;
r@8 254 #X connect 1 1 5 0;
r@8 255 #X connect 1 2 7 0;
r@8 256 #X connect 1 3 6 0;
r@8 257 #X connect 2 0 3 0;
r@8 258 #X connect 3 0 1 0;
r@8 259 #X connect 4 0 0 0;
r@8 260 #X connect 5 0 0 0;
r@8 261 #X connect 6 0 0 0;
r@8 262 #X connect 7 0 0 0;
r@8 263 #X restore 11 94 pd strike;
r@8 264 #X obj 12 0 inlet;
r@8 265 #X obj 465 63 inlet;
r@8 266 #X obj 11 115 *~ 0.3;
r@8 267 #X obj 129 114 *~ 0.2;
r@8 268 #X obj 248 113 *~ 0.9;
r@8 269 #X obj 350 111 *~ 0.5;
r@8 270 #X obj 367 340 throw~ l;
r@8 271 #X obj 460 344 throw~ r;
r@8 272 #X connect 0 0 36 0;
r@8 273 #X connect 1 0 11 0;
r@8 274 #X connect 1 0 11 1;
r@8 275 #X connect 1 0 12 0;
r@8 276 #X connect 1 0 38 0;
r@8 277 #X connect 1 0 39 0;
r@8 278 #X connect 2 0 1 1;
r@8 279 #X connect 3 0 31 0;
r@8 280 #X connect 4 0 0 0;
r@8 281 #X connect 5 0 29 0;
r@8 282 #X connect 6 0 28 0;
r@8 283 #X connect 7 0 21 0;
r@8 284 #X connect 8 0 7 0;
r@8 285 #X connect 9 0 8 0;
r@8 286 #X connect 10 0 22 0;
r@8 287 #X connect 14 0 11 0;
r@8 288 #X connect 14 0 38 0;
r@8 289 #X connect 15 0 11 1;
r@8 290 #X connect 15 0 39 0;
r@8 291 #X connect 16 0 13 0;
r@8 292 #X connect 18 0 17 0;
r@8 293 #X connect 19 0 20 0;
r@8 294 #X connect 21 0 28 1;
r@8 295 #X connect 22 0 2 0;
r@8 296 #X connect 24 0 11 0;
r@8 297 #X connect 24 0 11 1;
r@8 298 #X connect 24 0 38 0;
r@8 299 #X connect 24 0 39 0;
r@8 300 #X connect 27 0 1 0;
r@8 301 #X connect 28 0 35 0;
r@8 302 #X connect 29 0 37 0;
r@8 303 #X connect 31 0 34 0;
r@8 304 #X connect 32 0 19 0;
r@8 305 #X connect 33 0 16 0;
r@8 306 #X connect 34 0 30 0;
r@8 307 #X connect 35 0 26 0;
r@8 308 #X connect 36 0 23 0;
r@8 309 #X connect 37 0 25 0;