Mercurial > hg > aeolianharp
diff WindGenD1.pd @ 0:12b68fb81455
Demo patch for Aeolian Harp synthesis model
author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
---|---|
date | Wed, 23 Nov 2016 12:24:24 +0000 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/WindGenD1.pd Wed Nov 23 12:24:24 2016 +0000 @@ -0,0 +1,122 @@ +#N canvas 151 149 630 670 10; +#X obj 172 219 +~ 1; +#X obj 172 344 +~; +#X obj 172 241 *~ 0.25; +#X obj 187 291 +~; +#N canvas 883 265 373 400 squall 0; +#X obj 161 204 noise~; +#X obj 161 267 hip~ 0; +#X obj 72 240 *~; +#X obj 72 318 *~; +#X obj 72 218 *~ 8; +#X obj 161 288 *~ 20; +#X obj 72 154 inlet~; +#X obj 72 342 outlet~; +#X obj 72 174 max~ 0.4; +#X obj 72 196 -~ 0.4; +#X obj 161 225 lop~ 5; +#X obj 161 246 lop~ 5; +#X connect 0 0 10 0; +#X connect 1 0 5 0; +#X connect 2 0 3 0; +#X connect 3 0 7 0; +#X connect 4 0 2 0; +#X connect 4 0 2 1; +#X connect 5 0 3 1; +#X connect 6 0 8 0; +#X connect 8 0 9 0; +#X connect 9 0 4 0; +#X connect 10 0 11 0; +#X connect 11 0 1 0; +#X restore 246 266 pd squall; +#N canvas 706 412 202 229 gust 0; +#X obj 0 0 noise~; +#X obj 0 83 hip~ 0; +#X obj 0 126 *~; +#X obj 67 44 *~; +#X obj 67 21 +~ 0.5; +#X obj 67 67 -~ 0.125; +#X obj 67 0 inlet~; +#X obj 0 151 outlet~; +#X obj 0 104 *~ 30; +#X obj 0 21 lop~ 2; +#X obj 0 42 lop~ 2; +#X obj 0 63 lop~ 2; +#X connect 0 0 9 0; +#X connect 1 0 8 0; +#X connect 2 0 7 0; +#X connect 3 0 5 0; +#X connect 4 0 3 0; +#X connect 4 0 3 1; +#X connect 5 0 2 1; +#X connect 6 0 4 0; +#X connect 8 0 2 0; +#X connect 9 0 10 0; +#X connect 10 0 11 0; +#X connect 11 0 1 0; +#X restore 187 267 pd gust; +#X obj 172 381 outlet~; +#X obj 172 197 osc~ 0.01; +#X obj 90 -7 noise~; +#X obj 172 172 line; +#X floatatom 119 197 8 0 0 0 - - -; +#X obj 173 93 snapshot~; +#X obj 172 44 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 225 118 8 0 0 0 - - -; +#X obj 90 43 +~ 0.6; +#X obj 145 172 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 172 20 loadbang; +#X msg 173 145 \$1 10; +#X obj 172 69 metro 2000; +#X obj 305 -57 noise~; +#X obj 305 -31 lop~ 2000; +#X obj 305 -7 +~ 0.6; +#X obj 229 35 snapshot~; +#X obj 229 -13 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 229 -38 loadbang; +#X floatatom 279 66 5 0 0 0 - - -; +#X obj 229 11 metro 4000; +#X obj 255 71 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 214 291 inlet; +#X obj 173 118 * 0.17; +#X obj 90 19 lop~ 3000; +#X obj 305 18 *~ 5000; +#X obj 187 321 *~ 1; +#X connect 0 0 2 0; +#X connect 1 0 6 0; +#X connect 2 0 4 0; +#X connect 2 0 5 0; +#X connect 2 0 1 0; +#X connect 3 0 32 0; +#X connect 4 0 3 1; +#X connect 5 0 3 0; +#X connect 7 0 0 0; +#X connect 8 0 30 0; +#X connect 9 0 10 0; +#X connect 9 0 7 0; +#X connect 11 0 13 0; +#X connect 11 0 29 0; +#X connect 12 0 18 0; +#X connect 14 0 11 0; +#X connect 16 0 12 0; +#X connect 17 0 9 0; +#X connect 17 0 15 0; +#X connect 18 0 11 0; +#X connect 19 0 20 0; +#X connect 20 0 21 0; +#X connect 21 0 31 0; +#X connect 22 0 18 1; +#X connect 22 0 25 0; +#X connect 22 0 27 0; +#X connect 23 0 26 0; +#X connect 24 0 23 0; +#X connect 26 0 22 0; +#X connect 28 0 32 1; +#X connect 29 0 17 0; +#X connect 30 0 14 0; +#X connect 31 0 22 0; +#X connect 32 0 1 1;