Reality_Exploration/Sound-Pd-Patch-main/phaser4896~.pd

142 lines
3.5 KiB
Plaintext

#N canvas 720 22 720 774 10;
#X obj 184 370 rzero_rev~;
#X obj 184 390 rpole~;
#X obj 35 609 +~;
#X obj 184 322 rzero_rev~;
#X obj 184 344 rpole~;
#X obj 184 272 rzero_rev~;
#X obj 184 293 rpole~;
#X obj 184 222 rzero_rev~;
#X obj 184 242 rpole~;
#X floatatom 105 123 5 0 0 0 - - -;
#X obj 441 299 metro 10;
#X obj 441 322 snapshot~;
#X obj 186 517 *~ 0.5;
#X obj 420 197 +~ 0.5;
#X obj 420 173 *~ 0.5;
#X obj 420 147 osc~ 0.05;
#X obj 35 53 inlet~;
#X obj 109 53 inlet;
#X obj 109 74 s \$0-depth;
#X obj 489 147 r \$0-depth;
#X obj 161 115 vsl 12 50 0 1 0 0 empty empty lfo_mag -12 -9 1 10 -262144
-1 -1 2200 1;
#X obj 197 115 vsl 12 50 0 1 0 0 empty empty offset -6 -9 1 10 -262144
-1 -1 2300 1;
#X obj 234 115 vsl 12 50 0 1 0 0 empty empty freq -3 -9 1 10 -262144
-1 -1 2500 1;
#X obj 180 53 inlet;
#X obj 180 74 s \$0-offset;
#X obj 489 172 r \$0-offset;
#X obj 260 53 inlet;
#X obj 260 74 s \$0-freq;
#X obj 490 123 r \$0-freq;
#X obj 270 115 vsl 12 50 0 0.45 0 0 empty empty feedback -12 -9 1 10
-262144 -1 -1 4900 1;
#X obj 331 53 inlet;
#X obj 331 74 s \$0-feed;
#X obj 415 454 r \$0-feed;
#X obj 420 220 expr~ if($v1 < 0 \, 0.01 \, $v1);
#X obj 421 243 expr~ if($v1 > 1 \, 0.99 \, $v1);
#X obj 415 477 expr if($f1 < 0 \, 0.01 \, $f1);
#X obj 35 665 outlet~;
#X obj 105 155 hradio 10 1 0 2 empty empty stages 0 -8 0 10 -262144
-1 -1 1;
#X obj 301 572 rzero_rev~;
#X obj 301 592 rpole~;
#X obj 301 524 rzero_rev~;
#X obj 301 546 rpole~;
#X obj 301 474 rzero_rev~;
#X obj 301 495 rpole~;
#X obj 301 424 rzero_rev~;
#X obj 301 444 rpole~;
#X obj 186 551 throw~ \$0-out;
#X obj 184 184 catch~ \$0-out;
#X obj 301 664 throw~ \$0-out;
#X obj 301 626 *~ 0.5;
#X obj 89 178 s \$0-stage;
#X obj 50 460 expr~ if($i2==0 \, $v1 \, 0) \;;
#X obj 197 435 r \$0-stage;
#X obj 273 382 r \$0-stage;
#X obj 252 407 *~ 1;
#X text 104 102 phaser;
#X obj 41 115 loadbang;
#X msg 41 138 0;
#X obj 441 276 loadbang;
#X floatatom 440 548 5 0 0 0 - - -;
#X obj 415 500 expr if($f1 > 0.45 \, 0.45 \, $f1);
#X connect 0 0 1 0;
#X connect 1 0 12 0;
#X connect 1 0 54 0;
#X connect 1 0 51 0;
#X connect 2 0 36 0;
#X connect 3 0 4 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 3 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 12 0 46 0;
#X connect 13 0 33 0;
#X connect 14 0 13 0;
#X connect 15 0 14 0;
#X connect 16 0 2 0;
#X connect 16 0 7 0;
#X connect 17 0 18 0;
#X connect 19 0 14 1;
#X connect 20 0 14 1;
#X connect 21 0 13 1;
#X connect 22 0 15 0;
#X connect 23 0 24 0;
#X connect 25 0 13 1;
#X connect 26 0 27 0;
#X connect 28 0 15 1;
#X connect 29 0 12 1;
#X connect 29 0 49 1;
#X connect 30 0 31 0;
#X connect 32 0 35 0;
#X connect 33 0 34 0;
#X connect 34 0 11 0;
#X connect 34 0 7 1;
#X connect 34 0 8 1;
#X connect 34 0 5 1;
#X connect 34 0 6 1;
#X connect 34 0 3 1;
#X connect 34 0 4 1;
#X connect 34 0 0 1;
#X connect 34 0 1 1;
#X connect 34 0 44 1;
#X connect 34 0 45 1;
#X connect 34 0 42 1;
#X connect 34 0 43 1;
#X connect 34 0 40 1;
#X connect 34 0 41 1;
#X connect 34 0 38 1;
#X connect 34 0 39 1;
#X connect 35 0 60 0;
#X connect 37 0 50 0;
#X connect 38 0 39 0;
#X connect 39 0 49 0;
#X connect 39 0 2 1;
#X connect 40 0 41 0;
#X connect 41 0 38 0;
#X connect 42 0 43 0;
#X connect 43 0 40 0;
#X connect 44 0 45 0;
#X connect 45 0 42 0;
#X connect 47 0 7 0;
#X connect 49 0 48 0;
#X connect 51 0 2 1;
#X connect 52 0 51 1;
#X connect 53 0 54 1;
#X connect 54 0 44 0;
#X connect 56 0 57 0;
#X connect 57 0 37 0;
#X connect 58 0 10 0;
#X connect 60 0 12 1;
#X connect 60 0 49 1;
#X connect 60 0 59 0;
#X coords 0 -1 1 1 200 70 2 100 100;