max v2;
#N vpatcher 197 83 1450 874;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P message 397 249 14 196617 1;
#P message 400 311 14 196617 0;
#P toggle 463 135 15 0;
#P newex 463 157 29 196617 gate;
#P newex 540 93 27 196617 + 1;
#P newex 540 72 52 196617 random 4;
#P number 540 113 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 399 228 67 196617 74 75 77 79;
#P number 1087 388 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 510 131 49 196617 metro 50;
#P toggle 510 112 15 0;
#P number 549 134 32 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P button 510 173 15 0;
#N counter 0 1 6;
#X flags 0 0;
#P newobj 510 192 71 196617 counter 0 1 6;
#P number 631 327 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 510 269 27 196617 t b l;
#P message 510 249 38 196617 \$1 0.5;
#P number 510 229 38 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P button 430 294 15 0;
#P message 400 272 97 196617 24 31 36 43 48 55;
#P newex 464 310 42 196617 zl nth 3;
#B color 5;
#P number 1047 481 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P toggle 1047 387 15 0;
#P newex 1047 409 50 196617 metro 50;
#P button 1047 440 15 0;
#P newex 1047 460 83 196617 drunk 2000 200;
#P flonum 775 512 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 775 534 66 196617 s phasoramp;
#P flonum 854 630 35 9 0. 1.2 3 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 837 612 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#N vpatcher 10 59 610 459;
#N comlet Feedback (max 1);
#P inlet 241 71 15 0;
#N comlet Delay time (ms);
#P inlet 181 71 15 0;
#N comlet Signal Out;
#P outlet 95 332 15 0;
#N comlet Signal In;
#P inlet 127 73 15 0;
#P window setfont "Sans Serif" 9.;
#P newex 181 173 51 196617 line~ 200;
#P flonum 181 135 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 181 155 43 196617 \$1 100;
#P flonum 158 231 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 127 252 41 196617 *~ 0.2;
#P newex 127 198 44 196617 tapout~;
#P newex 127 140 38 196617 tapin~;
#P fasten 1 0 8 0 132 319 100 319;
#P fasten 2 0 0 0 132 276 237 276 237 125 132 125;
#P connect 7 0 0 0;
#P fasten 6 0 1 0 186 194 132 194;
#P connect 0 0 1 0;
#P connect 1 0 2 0;
#P fasten 10 0 3 0 246 223 163 223;
#P connect 3 0 2 1;
#P connect 9 0 5 0;
#P connect 5 0 4 0;
#P connect 4 0 6 0;
#P pop;
#P newobj 820 649 45 196617 p mydel;
#N vpreset 2;
#X append 1 2 4 271 611 kslider int 78 \; 7 326 651 number int 100 \; 13 388 713 toggle int 1 \; 15 435 721 toggle int 0 \; 17 435 775 flonum float 0. \; 20 453 645 dial int;
#X append 1 2 21 \; 21 453 662 dial int 13 \; 22 453 696 dial int 60 \; 23 453 679 dial int 0 \; 27 193 611 toggle int 1 \; 28 193 656 number int 86 \; 36 435 843;
#X append 1 2 flonum float 0. \; 37 499 641 flonum float 0.33 \; 39 612 758 flonum float 4. \; 40 630 775 flonum float 0.96 \; 44 610 689 flonum float 3. \; 45 628 706 flonum float 0.97 \; 47 512 846;
#X append 1 2 flonum float 0.27 \;;
#X append 2 2 4 271 611 kslider int 76 \; 7 326 651 number int 100 \; 13 388 713 toggle int 1 \; 15 435 721 toggle int 1 \; 17 435 775 flonum float 0. \; 20 453 645 dial int;
#X append 2 2 23 \; 21 453 662 dial int 22 \; 22 453 696 dial int 60 \; 23 453 679 dial int 35 \; 27 193 611 toggle int 0 \; 28 193 656 number int 86 \; 36 435 843;
#X append 2 2 flonum float 0. \; 37 499 641 flonum float 0.3 \; 39 612 758 flonum float 0. \; 40 630 775 flonum float 0. \; 44 610 689 flonum float 0. \; 45 628 706 flonum float 0. \; 47 512 846;
#X append 2 2 flonum float 0.93 \; 55 612 837 flonum float 0. \; 56 630 854 flonum float 0. \; 58 512 775 flonum float 0.3 \; 62 387 1047 toggle int 0 \; 63 481 1047 number int 733 \; 67 229 510;
#X append 2 2 number int 4 \; 70 327 631 number int 0 \; 73 134 549 number int 159 \; 74 112 510 toggle int 1 \;;
#P preset 974 214 47 27;
#P message 570 672 14 196617 0;
#P message 551 672 14 196617 1;
#P newex 927 534 46 196617 s sweep;
#P message 927 515 125 196617 200 \, 2000 500 200 1000;
#P comment 928 500 82 196617 ¥ filter sweep;
#P flonum 846 512 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 846 534 63 196617 s resonance;
#P flonum 706 628 35 9 0. 1.1 3 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 689 610 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#N vpatcher 10 59 610 459;
#N comlet Feedback (max 1);
#P inlet 241 71 15 0;
#N comlet Delay time (ms);
#P inlet 181 71 15 0;
#N comlet Signal Out;
#P outlet 95 332 15 0;
#N comlet Signal In;
#P inlet 127 73 15 0;
#P window setfont "Sans Serif" 9.;
#P newex 181 173 51 196617 line~ 200;
#P flonum 181 135 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 181 155 43 196617 \$1 100;
#P flonum 158 231 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 127 252 41 196617 *~ 0.2;
#P newex 127 198 44 196617 tapout~;
#P newex 127 140 38 196617 tapin~;
#P fasten 1 0 8 0 132 319 100 319;
#P fasten 2 0 0 0 132 276 237 276 237 125 132 125;
#P connect 7 0 0 0;
#P fasten 6 0 1 0 186 194 132 194;
#P connect 0 0 1 0;
#P connect 1 0 2 0;
#P fasten 10 0 3 0 246 223 163 223;
#P connect 3 0 2 1;
#P connect 9 0 5 0;
#P connect 5 0 4 0;
#P connect 4 0 6 0;
#P pop;
#P newobj 672 647 45 196617 p mydel;
#P comment 602 630 100 196617 feedback (ms);
#P comment 587 613 100 196617 delay time (ms);
#P flonum 775 630 35 9 0. 1.2 3 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 758 612 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#N vpatcher 10 59 610 459;
#N comlet Feedback (max 1);
#P inlet 241 71 15 0;
#N comlet Delay time (ms);
#P inlet 181 71 15 0;
#N comlet Signal Out;
#P outlet 95 332 15 0;
#N comlet Signal In;
#P inlet 127 73 15 0;
#P window setfont "Sans Serif" 9.;
#P newex 181 173 51 196617 line~ 200;
#P flonum 181 135 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 181 155 43 196617 \$1 100;
#P flonum 158 231 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 127 252 41 196617 *~ 0.2;
#P newex 127 198 44 196617 tapout~;
#P newex 127 140 38 196617 tapin~;
#P fasten 1 0 8 0 132 319 100 319;
#P connect 7 0 0 0;
#P fasten 2 0 0 0 132 276 237 276 237 125 132 125;
#P connect 0 0 1 0;
#P fasten 6 0 1 0 186 194 132 194;
#P connect 1 0 2 0;
#P fasten 10 0 3 0 246 223 163 223;
#P connect 3 0 2 1;
#P connect 9 0 5 0;
#P connect 5 0 4 0;
#P connect 4 0 6 0;
#P pop;
#P newobj 741 649 45 196617 p mydel;
#P flonum 641 499 35 9 0. 1. 3 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 843 435 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 843 453 75 196617 maxsustain \$1;
#P newex 680 349 40 196617 notein;
#P comment 700 441 15 196617 R;
#P comment 682 441 15 196617 S;
#P comment 665 441 15 196617 D;
#P newex 611 251 30 196617 + 43;
#P newex 611 231 55 196617 random 36;
#P number 656 193 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P toggle 611 193 15 0;
#P newex 611 211 55 196617 metro 175;
#P hidden message 733 254 45 196617 target 0;
#P hidden newex 679 498 39 196617 / 100.;
#P user dial 679 453 19 19 100 1 0 0 234 270 1 1. 227 234 168 248 248 248 147 147 147 187 153 91 175 26 26 1 184 43;
#P user dial 696 453 19 19 100 10 0 0 234 270 1 1. 227 234 168 248 248 248 147 147 147 187 153 91 175 26 26 1 184 43;
#P user dial 662 453 19 19 100 10 0 0 234 270 1 1. 227 234 168 248 248 248 147 147 147 187 153 91 175 26 26 1 184 43;
#P user dial 645 453 19 19 100 10 1 0 234 270 1 1. 227 234 168 248 248 248 147 147 147 187 153 91 175 26 26 1 184 43;
#P hidden newex 651 309 27 196617 100;
#P hidden newex 733 199 45 196617 loadbang;
#P flonum 775 435 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 775 453 65 196617 retrigger \$1;
#P toggle 721 435 15 0;
#P message 721 453 51 196617 legato \$1;
#P toggle 713 388 15 0;
#P message 713 409 45 196617 steal \$1;
#P newex 611 520 40 196617 *~ 0.1;
#P newex 611 378 51 196617 pack 0 0;
#P newex 611 400 85 196617 prepend midinote;
#P newex 611 478 95 196617 poly~ adsr-synth 1;
#P number 651 326 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 611 349 51 196617 makenote;
#P newex 610 690 28 196617 dac~;
#P user kslider 611 271 35 1 36 48 19 7 0 128 128 128 128 128 128 255 255 255 0 0 0 0 0 0;
#P comment 687 326 68 196617 note duration;
#P comment 647 441 15 196617 A;
#P comment 707 481 100 196617 <-- look inside;
#P window linecount 33;
#P comment 16 27 319 196617 ( s = Server.local \; SynthDef( "Help-SPE1" \, { arg i_out=0 \, freq \; var out \; out = RLPF.ar( LFSaw.ar( freq \, mul: EnvGen.kr( Env.perc \, levelScale: 0.3 \, doneAction: 2 )) \, LFNoise1.kr(1 \, 36 \, 110).midicps \, 0.1 ) \; // out = [out \, DelayN.ar(out \, 0.04 \, 0.04) ] \; 4.do({ out = AllpassN.ar(out \, 0.05 \, [0.05.rand \, 0.05.rand] \, 4) }) \; Out.ar( i_out \, out ) \; }).send(s) \; ) ( // streams as a sequence of pitches var stream \, dur \; dur = 1/12 \; stream = Routine.new({ loop({ if (0.5.coin \, { // run of fifths: 24.yield \; // synonym for wait \, used by .play to schedule next occurence 31.yield \; 36.yield \; 43.yield \; 48.yield \; 55.yield \; }) \; rrand(2 \, 5).do({ // varying arpeggio 60.yield \; #[63 \, 65].choose.yield \; 67.yield \; #[70 \, 72 \, 74].choose.yield \; }) \; // random high melody rrand(3 \, 9).do({ #[74 \, 75 \, 77 \, 79 \, 81].choose.yield }) \; }) \; }) \; Routine({ loop({ Synth( "Help-SPE1" \, [ freq \, stream.next.midicps ] ) \; dur.wait \; // synonym for yield \, used by .play to schedule next occurence }) }).play );
#P fasten 77 0 84 0 402 243;
#P connect 65 0 83 0;
#P fasten 84 0 82 0 402 269 363 269 363 120 468 120;
#P fasten 83 0 82 0 405 344 369 344 369 124 468 124;
#P connect 82 0 81 0;
#P fasten 77 0 64 0 404 259 469 259;
#P fasten 65 0 64 0 405 292 469 292;
#P connect 66 0 64 0;
#P fasten 69 0 64 0 515 298 469 298;
#P connect 75 0 81 1;
#P fasten 69 1 64 1 532 298 501 298;
#P connect 74 0 75 0;
#P connect 75 0 72 0;
#P connect 72 0 71 0;
#P connect 71 0 67 0;
#P connect 67 0 68 0;
#P connect 68 0 69 0;
#P fasten 81 0 79 0 468 183 429 183 429 54 545 54;
#P connect 79 0 80 0;
#P connect 80 0 78 0;
#P connect 78 0 71 2;
#P connect 73 0 75 1;
#P connect 11 0 5 0;
#P fasten 38 0 5 0 746 673 615 673;
#P fasten 54 0 5 0 825 673 615 673;
#P fasten 52 0 5 0 575 688 615 688;
#P fasten 51 0 5 0 556 688 615 688;
#P fasten 43 0 5 0 677 673 615 673;
#P connect 27 0 26 0;
#P connect 26 0 29 0;
#P connect 29 0 30 0;
#P connect 30 0 4 0;
#P fasten 64 0 6 0 469 343 616 343;
#P connect 4 0 6 0;
#P fasten 34 0 10 0 685 370 616 370;
#P connect 6 0 10 0;
#P connect 10 0 9 0;
#P connect 9 0 8 0;
#P fasten 12 0 8 0 718 429 616 429;
#P hidden fasten 25 0 8 0 738 475 616 475;
#P connect 8 0 11 0;
#P fasten 35 0 8 1 848 475 633 475;
#P fasten 14 0 8 1 726 475 633 475;
#P fasten 16 0 8 1 780 475 633 475;
#P fasten 11 0 5 1 616 544 633 544;
#P fasten 38 0 5 1 746 673 633 673;
#P fasten 43 0 5 1 677 673 633 673;
#P fasten 54 0 5 1 825 673 633 673;
#P connect 70 0 6 1;
#P fasten 4 1 6 1 803 316 636 316;
#P connect 37 0 11 1;
#P hidden connect 20 0 8 2;
#P hidden fasten 18 0 19 0 738 253 656 253;
#P hidden connect 19 0 7 0;
#P connect 7 0 6 2;
#P fasten 34 1 10 1 700 373 657 373;
#P connect 6 1 10 1;
#P connect 28 0 26 1;
#P hidden connect 21 0 8 3;
#P fasten 11 0 43 0 616 592 677 592;
#P hidden connect 24 0 8 4;
#P hidden connect 23 0 24 0;
#P connect 44 0 43 1;
#P hidden connect 22 0 8 5;
#P connect 45 0 43 2;
#P connect 13 0 12 0;
#P connect 15 0 14 0;
#P hidden connect 18 0 25 0;
#P fasten 11 0 38 0 616 565 746 565;
#P connect 39 0 38 1;
#P connect 17 0 16 0;
#P connect 58 0 57 0;
#P connect 40 0 38 2;
#P fasten 11 0 54 0 616 593 825 593;
#P connect 55 0 54 1;
#P connect 36 0 35 0;
#P connect 47 0 46 0;
#P connect 56 0 54 2;
#P fasten 59 0 50 0 1052 533 932 533;
#P connect 49 0 50 0;
#P connect 62 0 61 0;
#P fasten 61 0 60 0 1052 431 1052 431;
#P connect 60 0 59 0;
#P connect 59 0 63 0;
#P connect 76 0 61 1;
#P pop;