max v2;
#N vpatcher 17 56 1273 889;
#P origin 0 5;
#P window setfont "Sans Serif" 9.;
#P comment 974 80 100 196617 Basic chords \, etc.;
#P window setfont "Sans Serif" 12.;
#P window linecount 2;
#P comment 971 426 97 196620 Filtering/Resonance;
#P window linecount 1;
#P comment 847 425 97 196620 The Sound;
#P window linecount 2;
#P comment 750 311 97 196620 Making the Note;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P comment 974 64 100 196617 Using RTC lib;
#P window setfont "Sans Serif" 12.;
#P window linecount 2;
#P comment 622 35 97 196620 Random/Manual;
#P window setfont "Sans Serif" 9.;
#P window linecount 4;
#P comment 716 227 68 196617 note velocity (or use keyboard above);
#P window setfont "Sans Serif" 12.;
#P window linecount 1;
#P comment 344 33 97 196620 Playing a List;
#P window setfont "Sans Serif" 9.;
#P message 375 243 14 196617 1;
#P message 378 305 14 196617 0;
#P toggle 441 129 15 0;
#P newex 441 151 29 196617 gate;
#P newex 518 83 27 196617 + 1;
#P newex 518 62 52 196617 random 4;
#P number 518 103 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 377 222 67 196617 74 75 77 79;
#P number 1133 433 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 488 125 49 196617 metro 50;
#P toggle 488 106 15 0;
#P number 560 103 32 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P button 488 167 15 0;
#N counter 0 1 6;
#X flags 0 0;
#P newobj 488 186 71 196617 counter 0 1 6;
#P number 680 226 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 488 263 27 196617 t b l;
#P message 488 243 38 196617 \$1 0.5;
#P number 488 223 38 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P button 408 288 15 0;
#P message 378 266 97 196617 24 31 36 43 48 55;
#P newex 442 304 42 196617 zl nth 3;
#B color 5;
#P number 1093 526 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P toggle 1093 432 15 0;
#P newex 1093 454 50 196617 metro 50;
#P button 1093 485 15 0;
#P newex 1093 505 83 196617 drunk 2000 200;
#P flonum 802 557 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 802 579 66 196617 s phasoramp;
#P flonum 881 675 35 9 0. 1.2 3 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 864 657 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 847 694 45 196617 p mydel;
#N vpreset 2;
#X append 1 2 13 154 640 kslider int 78 \; 16 209 680 number int 100 \; 22 433 740 toggle int 1 \; 24 480 748 toggle int 0 \; 26 480 802 flonum float 0. \; 29 498 672 dial int;
#X append 1 2 21 \; 30 498 689 dial int 13 \; 31 498 723 dial int 60 \; 32 498 706 dial int 0 \; 36 76 640 toggle int 1 \; 37 76 685 number int 86 \; 45 480 870;
#X append 1 2 flonum float 0. \; 46 544 668 flonum float 0.33 \; 48 657 785 flonum float 4. \; 49 675 802 flonum float 0.96 \; 53 655 716 flonum float 3. \; 54 673 733 flonum float 0.97 \; 56 557 873;
#X append 1 2 flonum float 0.27 \;;
#X append 2 2 13 154 640 kslider int 76 \; 16 209 680 number int 100 \; 22 433 740 toggle int 1 \; 24 480 748 toggle int 1 \; 26 480 802 flonum float 0. \; 29 498 672 dial int;
#X append 2 2 23 \; 30 498 689 dial int 22 \; 31 498 723 dial int 60 \; 32 498 706 dial int 35 \; 36 76 640 toggle int 0 \; 37 76 685 number int 86 \; 45 480 870;
#X append 2 2 flonum float 0. \; 46 544 668 flonum float 0.3 \; 48 657 785 flonum float 0. \; 49 675 802 flonum float 0. \; 53 655 716 flonum float 0. \; 54 673 733 flonum float 0. \; 56 557 873;
#X append 2 2 flonum float 0.93 \; 64 657 864 flonum float 0. \; 65 675 881 flonum float 0. \; 67 557 802 flonum float 0.3 \; 71 432 1093 toggle int 0 \; 72 526 1093 number int 733 \; 76 223 488;
#X append 2 2 number int 4 \; 79 226 680 number int 0 \; 82 103 560 number int 159 \; 83 106 488 toggle int 1 \;;
#P preset 1159 42 47 27;
#P message 643 754 14 196617 0;
#P message 624 754 14 196617 1;
#P newex 973 579 46 196617 s sweep;
#P message 973 560 125 196617 200 \, 2000 500 200 1000;
#P comment 974 545 82 196617  filter sweep;
#P flonum 873 557 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 873 579 63 196617 s resonance;
#P flonum 733 673 35 9 0. 1.1 3 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 716 655 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 699 692 45 196617 p mydel;
#P comment 629 675 100 196617 feedback (ms);
#P comment 614 658 100 196617 delay time (ms);
#P flonum 802 675 35 9 0. 1.2 3 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 785 657 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 768 694 45 196617 p mydel;
#P flonum 668 544 35 9 0. 1. 3 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 870 480 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 870 498 75 196617 maxsustain \$1;
#P newex 691 331 40 196617 notein;
#P comment 727 486 15 196617 R;
#P comment 709 486 15 196617 S;
#P comment 692 486 15 196617 D;
#P newex 640 134 30 196617 + 43;
#P newex 640 114 55 196617 random 36;
#P number 685 76 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P toggle 640 76 15 0;
#P newex 640 94 55 196617 metro 175;
#P hidden message 762 137 45 196617 target 0;
#P hidden newex 706 543 39 196617 / 100.;
#P user dial 706 498 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 723 498 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 689 498 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 672 498 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 680 192 27 196617 100;
#P hidden newex 762 82 45 196617 loadbang;
#P flonum 802 480 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 802 498 65 196617 retrigger \$1;
#P toggle 748 480 15 0;
#P message 748 498 51 196617 legato \$1;
#P toggle 740 433 15 0;
#P message 740 454 45 196617 steal \$1;
#P newex 638 565 40 196617 *~ 0.1;
#P newex 622 360 51 196617 pack 0 0;
#P newex 622 382 85 196617 prepend midinote;
#P newex 638 523 95 196617 poly~ adsr-synth 1;
#P number 680 209 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 622 331 51 196617 makenote;
#P newex 683 772 28 196617 dac~;
#P user kslider 640 154 35 1 36 48 19 7 0 128 128 128 128 128 128 255 255 255 0 0 0 0 0 0;
#P comment 716 209 68 196617 note duration;
#P comment 674 486 15 196617 A;
#P comment 734 526 100 196617 <-- look inside;
#P window linecount 33;
#P comment 8 25 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 user panel 336 25 263 330;
#X brgb 191 191 191;
#X frgb 0 0 0;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P user panel 613 26 242 261;
#X brgb 191 191 191;
#X frgb 0 0 0;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P window linecount 1;
#P comment 974 48 100 196617 To Do:;
#P user panel 613 303 242 108;
#X brgb 191 191 191;
#X frgb 0 0 0;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P user panel 612 418 339 298;
#X brgb 191 191 191;
#X frgb 0 0 0;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P user panel 964 418 223 188;
#X brgb 191 191 191;
#X frgb 0 0 0;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P user panel 612 729 110 64;
#X brgb 191 191 191;
#X frgb 0 0 0;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P window setfont "American Typewriter" 18.;
#P comment 30 561 174 199491602 Algorithm Stream;
#P window setfont "Sans Serif" 9.;
#P comment 30 587 100 196617 v0.03;
#P fasten 86 0 93 0 380 237;
#P connect 74 0 92 0;
#P fasten 92 0 91 0 383 338 347 338 347 118 446 118;
#P fasten 93 0 91 0 380 263 341 263 341 114 446 114;
#P connect 91 0 90 0;
#P fasten 86 0 73 0 382 253 447 253;
#P fasten 74 0 73 0 383 286 447 286;
#P fasten 78 0 73 0 493 292 447 292;
#P connect 75 0 73 0;
#P connect 84 0 90 1;
#P fasten 78 1 73 1 510 292 479 292;
#P connect 83 0 84 0;
#P connect 84 0 81 0;
#P connect 81 0 80 0;
#P connect 80 0 76 0;
#P connect 76 0 77 0;
#P connect 77 0 78 0;
#P fasten 90 0 88 0 446 177 407 177 407 56 523 56;
#P connect 88 0 89 0;
#P connect 89 0 87 0;
#P connect 87 0 80 2;
#P fasten 82 0 84 1 565 121 532 121;
#P fasten 13 0 15 0 645 251 627 251;
#P fasten 73 0 15 0 447 338 627 338;
#P connect 15 0 19 0;
#P fasten 43 0 19 0 696 352 627 352;
#P connect 19 0 18 0;
#P hidden fasten 34 0 17 0 767 470 643 470;
#P fasten 21 0 17 0 745 474 643 474;
#P fasten 18 0 17 0 627 462 643 462;
#P connect 17 0 20 0;
#P connect 36 0 35 0;
#P connect 35 0 38 0;
#P connect 38 0 39 0;
#P connect 39 0 13 0;
#P fasten 13 1 15 1 832 311 647 311;
#P fasten 79 0 15 1 685 269 647 269;
#P fasten 25 0 17 1 807 520 660 520;
#P fasten 23 0 17 1 753 520 660 520;
#P fasten 44 0 17 1 875 520 660 520;
#P fasten 16 0 15 2 685 269 667 269;
#P connect 15 1 19 1;
#P fasten 43 1 19 1 711 355 668 355;
#P connect 46 0 20 1;
#P hidden connect 29 0 17 2;
#P hidden fasten 27 0 28 0 767 136 685 136;
#P hidden connect 28 0 16 0;
#P fasten 63 0 14 0 852 718 688 718;
#P fasten 52 0 14 0 704 718 688 718;
#P fasten 47 0 14 0 773 718 688 718;
#P fasten 20 0 14 0 643 723 688 723;
#P fasten 60 0 14 0 629 770 688 770;
#P fasten 61 0 14 0 648 770 688 770;
#P connect 37 0 35 1;
#P hidden connect 30 0 17 3;
#P fasten 20 0 52 0 643 637 704 637;
#P fasten 63 0 14 1 852 718 706 718;
#P fasten 52 0 14 1 704 718 706 718;
#P fasten 47 0 14 1 773 718 706 718;
#P fasten 20 0 14 1 643 589 706 589;
#P hidden connect 33 0 17 4;
#P hidden connect 32 0 33 0;
#P connect 53 0 52 1;
#P hidden connect 31 0 17 5;
#P connect 54 0 52 2;
#P connect 22 0 21 0;
#P connect 24 0 23 0;
#P hidden connect 27 0 34 0;
#P fasten 20 0 47 0 643 610 773 610;
#P connect 48 0 47 1;
#P connect 26 0 25 0;
#P connect 67 0 66 0;
#P connect 49 0 47 2;
#P fasten 20 0 63 0 643 638 852 638;
#P connect 64 0 63 1;
#P connect 45 0 44 0;
#P connect 56 0 55 0;
#P connect 65 0 63 2;
#P fasten 68 0 59 0 1098 578 978 578;
#P connect 58 0 59 0;
#P connect 71 0 70 0;
#P fasten 70 0 69 0 1098 476 1098 476;
#P connect 69 0 68 0;
#P connect 68 0 72 0;
#P connect 85 0 70 1;
#P pop;
