annotate polarD1.pd @ 10:f076d67ad6e0

Work on Polar Sound
author Roderick Selfridge <r.selfridge@qmul.ac.uk>
date Sun, 18 Jan 2015 15:56:13 +0000
parents 26525dcfaac8
children a6dc7c188d38
rev   line source
r@10 1 #N canvas 286 76 991 677 10;
r@9 2 #X obj 119 -1582 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
r@10 3 -262144 -1 -1 12700 1;
r@9 4 #X obj 116 -1607 inlet;
r@9 5 #X obj 94 -1240 throw~ l;
r@9 6 #X obj 159 -1240 throw~ r;
r@9 7 #X obj 94 -1372 r~ white;
r@9 8 #X obj 172 -1437 cos~;
r@9 9 #X obj 172 -1349 osc~;
r@9 10 #X obj 172 -1393 *~ 200;
r@9 11 #X obj 172 -1371 +~ 30;
r@9 12 #X obj 94 -1306 *~ 2;
r@9 13 #X obj 172 -1547 vd~ a 100;
r@9 14 #X obj 116 -1556 / 127;
r@9 15 #X obj 171 -1493 *~ 0.4;
r@9 16 #X text 128 -1203 high Tone;
r@9 17 #X obj 172 -1415 lop~ 0.1;
r@9 18 #X obj 94 -1262 fcpan 0.48;
r@9 19 #X obj 94 -1329 *~;
r@9 20 #X obj 20 -1588 noise~;
r@9 21 #N canvas 312 129 764 550 windspeed 1;
r@9 22 #X obj 127 63 +~ 1;
r@9 23 #X obj 126 173 +~;
r@9 24 #X obj 127 86 *~ 0.25;
r@9 25 #X obj 142 151 +~;
r@9 26 #N canvas 190 268 362 239 squall 0;
r@9 27 #X obj 78 41 noise~;
r@9 28 #X obj 77 108 hip~ 0;
r@9 29 #X obj 78 64 lop~ 3;
r@9 30 #X obj 78 85 lop~ 3;
r@9 31 #X obj 17 112 *~;
r@9 32 #X obj 38 160 *~;
r@9 33 #X obj 16 42 max~ 0.4;
r@9 34 #X obj 16 64 -~ 0.4;
r@9 35 #X obj 16 87 *~ 8;
r@9 36 #X obj 78 129 *~ 20;
r@9 37 #X obj 16 14 inlet~;
r@9 38 #X obj 40 184 outlet~;
r@9 39 #X obj 159 37 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
r@9 40 -1 -1 0 1;
r@9 41 #X obj 156 61 / 127;
r@9 42 #X obj 156 115 + 3;
r@9 43 #X obj 156 88 * 4;
r@9 44 #X obj 156 9 inlet;
r@9 45 #X connect 0 0 2 0;
r@9 46 #X connect 1 0 9 0;
r@9 47 #X connect 2 0 3 0;
r@9 48 #X connect 3 0 1 0;
r@9 49 #X connect 4 0 5 0;
r@9 50 #X connect 5 0 11 0;
r@9 51 #X connect 6 0 7 0;
r@9 52 #X connect 7 0 8 0;
r@9 53 #X connect 8 0 4 0;
r@9 54 #X connect 8 0 4 1;
r@9 55 #X connect 9 0 5 1;
r@9 56 #X connect 10 0 6 0;
r@9 57 #X connect 12 0 13 0;
r@9 58 #X connect 13 0 15 0;
r@9 59 #X connect 14 0 2 1;
r@9 60 #X connect 14 0 3 1;
r@9 61 #X connect 15 0 14 0;
r@9 62 #X connect 16 0 12 0;
r@9 63 #X restore 197 120 pd squall;
r@9 64 #N canvas 230 295 243 313 gust 0;
r@9 65 #X obj 9 15 noise~;
r@9 66 #X obj 8 157 *~;
r@9 67 #X obj 70 9 *~;
r@9 68 #X obj 69 -14 +~ 0.5;
r@9 69 #X obj 70 33 -~ 0.125;
r@9 70 #X obj 9 103 *~ 50;
r@9 71 #X obj 69 -54 inlet~;
r@9 72 #X obj 8 182 outlet~;
r@9 73 #X obj 9 59 lop~ 4;
r@9 74 #X obj 8 82 hip~ 0;
r@9 75 #X obj 9 38 lop~ 4;
r@9 76 #X obj 143 -74 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
r@9 77 -1 -1 0 1;
r@9 78 #X obj 140 -51 / 127;
r@9 79 #X obj 140 -26 * 4;
r@9 80 #X obj 140 -101 inlet;
r@9 81 #X connect 0 0 10 0;
r@9 82 #X connect 1 0 7 0;
r@9 83 #X connect 2 0 4 0;
r@9 84 #X connect 3 0 2 0;
r@9 85 #X connect 3 0 2 1;
r@9 86 #X connect 4 0 1 1;
r@9 87 #X connect 5 0 1 0;
r@9 88 #X connect 6 0 3 0;
r@9 89 #X connect 8 0 9 0;
r@9 90 #X connect 9 0 5 0;
r@9 91 #X connect 10 0 8 0;
r@9 92 #X connect 11 0 12 0;
r@9 93 #X connect 12 0 13 0;
r@9 94 #X connect 13 0 10 1;
r@9 95 #X connect 13 0 8 1;
r@9 96 #X connect 14 0 11 0;
r@9 97 #X restore 141 120 pd gust;
r@9 98 #X obj 127 259 outlet~;
r@9 99 #X msg 184 10 0.1;
r@9 100 #X obj 127 41 osc~ 0.1;
r@9 101 #X obj 38 103 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
r@9 102 -1 -1 6600 1;
r@9 103 #X obj 127 200 *~ 1;
r@9 104 #X obj 40 256 / 64;
r@9 105 #X obj 127 233 clip~ 0 2;
r@9 106 #X obj 180 65 inlet;
r@9 107 #X obj 248 93 inlet;
r@9 108 #X obj 38 68 inlet;
r@9 109 #X obj 127 -151 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@9 110 1 1;
r@9 111 #X obj 127 -100 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@9 112 -1 -1;
r@9 113 #N canvas 0 22 450 300 (subpatch) 0;
r@9 114 #X array \$0-array 100 float 0;
r@9 115 #X coords 0 1 100 -1 200 100 1 0 0;
r@9 116 #X restore 472 -35 graph;
r@9 117 #X obj 350 43 metro 500;
r@9 118 #X text 352 84 graph the output;
r@9 119 #X obj 350 18 loadbang;
r@9 120 #X obj 334 67 tabwrite~ \$0-array;
r@9 121 #X obj 320 11 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@9 122 1;
r@9 123 #X floatatom 127 -52 5 0 0 0 - - -;
r@9 124 #X floatatom 127 7 5 0 0 0 - - -;
r@9 125 #X obj 127 -24 / 500;
r@9 126 #X obj 127 -76 drunk 100 20;
r@9 127 #X obj 127 -126 metro 1000;
r@9 128 #X connect 0 0 2 0;
r@9 129 #X connect 1 0 10 0;
r@9 130 #X connect 2 0 1 0;
r@9 131 #X connect 2 0 5 0;
r@9 132 #X connect 2 0 4 0;
r@9 133 #X connect 3 0 1 1;
r@9 134 #X connect 4 0 3 1;
r@9 135 #X connect 5 0 3 0;
r@9 136 #X connect 7 0 8 1;
r@9 137 #X connect 8 0 0 0;
r@9 138 #X connect 8 0 22 0;
r@9 139 #X connect 9 0 11 0;
r@9 140 #X connect 10 0 12 0;
r@9 141 #X connect 11 0 10 1;
r@9 142 #X connect 12 0 6 0;
r@9 143 #X connect 13 0 5 1;
r@9 144 #X connect 14 0 4 1;
r@9 145 #X connect 15 0 9 0;
r@9 146 #X connect 16 0 28 0;
r@9 147 #X connect 17 0 27 0;
r@9 148 #X connect 19 0 22 0;
r@9 149 #X connect 21 0 19 0;
r@9 150 #X connect 21 0 19 0;
r@9 151 #X connect 23 0 19 0;
r@9 152 #X connect 24 0 26 0;
r@9 153 #X connect 25 0 8 0;
r@9 154 #X connect 26 0 25 0;
r@9 155 #X connect 27 0 24 0;
r@9 156 #X connect 28 0 17 0;
r@9 157 #X restore -101 -1555 pd windspeed;
r@9 158 #X obj -101 -1533 delwrite~ a 3000;
r@9 159 #X obj 20 -1566 s~ white;
r@9 160 #X obj -67 -1601 inlet;
r@9 161 #X obj -32 -1582 inlet;
r@9 162 #X obj -101 -1579 inlet;
r@10 163 #X obj 516 -1590 dac~;
r@10 164 #X obj 492 -1649 catch~ l;
r@10 165 #X obj 556 -1649 catch~ r;
r@10 166 #X obj 557 -1615 *~ 0.45;
r@10 167 #X obj 493 -1615 *~ 0.45;
r@10 168 #X obj 493 -1565 prvu~;
r@10 169 #X obj 494 -1531 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@10 170 #X obj 557 -1564 prvu~;
r@10 171 #X obj 558 -1531 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@10 172 #X obj 669 -1632 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
r@10 173 -1 -1 11100 1;
r@10 174 #X obj 669 -1484 / 64;
r@10 175 #X obj 94 -1350 bp~ 300 200;
r@10 176 #X obj -65 -1457 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
r@10 177 -262144 -1 -1 6400 1;
r@10 178 #X obj -67 -1363 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
r@10 179 -262144 -1 -1 12700 1;
r@10 180 #X obj -68 -1433 / 127;
r@10 181 #X obj -70 -1341 / 127;
r@10 182 #X obj -64 -1402 * 600;
r@10 183 #X obj -70 -1316 * 300;
r@10 184 #X obj -71 -1290 + 10;
r@10 185 #X obj 115 -1396 * 40;
r@10 186 #X floatatom 12 -1418 5 0 0 0 - - -;
r@10 187 #X floatatom -21 -1255 5 0 0 0 - - -;
r@10 188 #X obj 172 -1525 clip~ 0.5 0.8;
r@10 189 #X obj 302 -1528 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
r@10 190 -262144 -1 -1 2600 1;
r@10 191 #X obj 300 -1504 / 127;
r@10 192 #X obj 305 -1338 osc~;
r@10 193 #X obj 93 -1284 *~ 1;
r@10 194 #X obj 383 -1248 *~ 2;
r@10 195 #X obj 383 -1200 throw~ l;
r@10 196 #X obj 447 -1200 throw~ r;
r@10 197 #X obj 383 -1225 fcpan 0.64;
r@10 198 #X obj 384 -1405 r~ white;
r@10 199 #X obj 419 -1382 vd~ a 90;
r@10 200 #X obj 418 -1356 *~ 30;
r@10 201 #X obj 418 -1336 +~ 200;
r@10 202 #X obj 384 -1293 vcf~ 200 6;
r@10 203 #X obj 560 -1272 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
r@10 204 -262144 -1 -1 10900 1;
r@10 205 #X obj 557 -1246 / 127;
r@10 206 #X obj 561 -1381 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
r@10 207 -262144 -1 -1 12700 1;
r@10 208 #X obj 558 -1355 / 127;
r@10 209 #X obj 558 -1305 + 3;
r@10 210 #X floatatom 615 -1308 5 0 0 0 - - -;
r@10 211 #X obj 558 -1330 * 1000;
r@10 212 #X obj 557 -1218 * 100;
r@10 213 #X obj 350 -1366 lop~ 600 1;
r@9 214 #X connect 0 0 11 0;
r@9 215 #X connect 1 0 0 0;
r@10 216 #X connect 4 0 35 0;
r@10 217 #X connect 5 0 14 0;
r@9 218 #X connect 7 0 8 0;
r@9 219 #X connect 8 0 6 0;
r@10 220 #X connect 9 0 50 0;
r@10 221 #X connect 10 0 46 0;
r@10 222 #X connect 11 0 43 0;
r@10 223 #X connect 12 0 5 0;
r@10 224 #X connect 14 0 7 0;
r@10 225 #X connect 14 0 16 1;
r@10 226 #X connect 15 0 2 0;
r@10 227 #X connect 15 1 3 0;
r@10 228 #X connect 16 0 9 0;
r@10 229 #X connect 17 0 20 0;
r@10 230 #X connect 18 0 19 0;
r@10 231 #X connect 21 0 18 1;
r@10 232 #X connect 22 0 18 2;
r@10 233 #X connect 23 0 18 0;
r@10 234 #X connect 25 0 28 0;
r@10 235 #X connect 26 0 27 0;
r@10 236 #X connect 27 0 24 1;
r@10 237 #X connect 27 0 31 0;
r@10 238 #X connect 28 0 24 0;
r@10 239 #X connect 28 0 29 0;
r@9 240 #X connect 29 0 30 0;
r@9 241 #X connect 31 0 32 0;
r@10 242 #X connect 33 0 34 0;
r@10 243 #X connect 34 0 27 1;
r@10 244 #X connect 34 0 28 1;
r@10 245 #X connect 35 0 16 0;
r@10 246 #X connect 36 0 38 0;
r@10 247 #X connect 37 0 39 0;
r@10 248 #X connect 38 0 40 0;
r@10 249 #X connect 39 0 41 0;
r@10 250 #X connect 40 0 35 1;
r@10 251 #X connect 40 0 44 0;
r@10 252 #X connect 40 0 49 0;
r@10 253 #X connect 41 0 42 0;
r@10 254 #X connect 42 0 35 2;
r@10 255 #X connect 42 0 45 0;
r@10 256 #X connect 43 0 9 1;
r@10 257 #X connect 46 0 12 0;
r@10 258 #X connect 47 0 48 0;
r@10 259 #X connect 48 0 12 1;
r@10 260 #X connect 51 0 54 0;
r@10 261 #X connect 54 0 52 0;
r@10 262 #X connect 54 1 53 0;
r@10 263 #X connect 55 0 68 0;
r@10 264 #X connect 56 0 57 0;
r@10 265 #X connect 57 0 58 0;
r@10 266 #X connect 58 0 59 1;
r@10 267 #X connect 59 0 51 0;
r@10 268 #X connect 60 0 61 0;
r@10 269 #X connect 61 0 67 0;
r@10 270 #X connect 62 0 63 0;
r@10 271 #X connect 63 0 66 0;
r@10 272 #X connect 64 0 59 2;
r@10 273 #X connect 64 0 65 0;
r@10 274 #X connect 66 0 64 0;
r@10 275 #X connect 67 0 51 1;
r@10 276 #X connect 68 0 59 0;