max v2;
#N vpatcher 23 51 454 310;
#P window setfont Times 10.;
#P window linecount 2;
#P comment 655 110 64 1310730 times 2 to the ±1/12 power;
#P window linecount 3;
#P comment 1 80 251 1310730 Playback should be at half speed (lasting 2 seconds) \, with an amplitude envelope applied to the sound \, and with a 3 Hz vibrato up and down 1 semitone applied to the sound.;
#P window linecount 1;
#P comment 1 62 183 1310730 Use the "p" key to play the sound.;
#P comment 1 48 183 1310730 Use the "r" key to record 1 second of sound.;
#P comment 636 24 94 1310730 3Hz semitone vibrato;
#P comment 736 49 97 1310730 amplitude envelope;
#P comment 586 74 45 1310730 half speed;
#P comment 465 32 124 1310730 store 1 second of stereo audio;
#P window setfont "Fixedwidth Serif" 10.;
#P newex 645 38 62 1441802 cycle~ 3.;
#P newex 645 88 50 1441802 pow~ 2.;
#P newex 645 63 74 1441802 *~ 0.083333;
#P user function 726 63 829 135 1 1 0 0;
#X frgb 82 82 82;
#X brgb 204 204 204;
#X rgb2 85 85 85;
#X rgb3 255 255 255;
#X rgb4 0 0 0;
#X rgb5 0 0 0;
#X add 0. 0. 0;
#X add 100. 1. 0;
#X add 1900. 1. 0;
#X add 2000. 0. 0;
#X domain 2000.;
#X range 0. 1.;
#X done;
#P window setfont Times 10.;
#P comment 417 153 30 1310730 record;
#P comment 462 114 55 1310730 audio on/off;
#P window setfont "Fixedwidth Serif" 10.;
#P newex 586 189 85 1441802 dac~;
#P newex 757 138 38 1441802 line~;
#P newex 661 164 106 1441802 *~;
#P newex 586 164 69 1441802 *~;
#P message 521 113 14 1441802 0;
#P newex 586 88 53 1441802 sig~ 0.5;
#P newex 586 113 69 1441802 *~;
#P newex 586 138 160 1441802 groove~ justasecond 2;
#P window setfont Times 10.;
#P comment 493 74 13 1310730 a;
#P window setfont "Fixedwidth Serif" 10.;
#P message 427 132 14 1441802 1;
#P toggle 447 113 15 0;
#P newex 447 131 51 1441802 adc~;
#P newex 447 156 133 1441802 record~ justasecond 2;
#P newex 447 46 163 1441802 buffer~ justasecond 1000 2;
#P window setfont Times 10.;
#P comment 537 74 13 1310730 p;
#P window setfont "Fixedwidth Serif" 10.;
#P newex 447 88 121 1441802 select 97 114 112;
#P newex 447 67 27 1441802 key;
#P window setfont Times 10.;
#P comment 514 74 13 1310730 r;
#P comment 1 34 173 1310730 Use the "a" key to toggle audio on or off.;
#P window linecount 2;
#P comment 535 108 48 1310730 play from beginning;
#P fasten 4 1 10 0 489 109 432 109;
#P connect 3 0 4 0;
#P connect 4 0 9 0;
#P connect 9 0 8 0;
#P fasten 10 0 7 0 432 152 452 152;
#P connect 8 0 7 0;
#P connect 8 1 7 1;
#P connect 4 2 15 0;
#P connect 14 0 13 0;
#P fasten 15 0 12 0 526 134 591 134;
#P connect 13 0 12 0;
#P connect 12 0 16 0;
#P connect 16 0 19 0;
#P connect 25 0 23 0;
#P connect 23 0 24 0;
#P connect 24 0 13 1;
#P fasten 18 0 16 1 762 159 650 159;
#P connect 12 1 17 0;
#P connect 17 0 19 1;
#P fasten 4 2 22 0 526 109 722 109 722 59 731 59;
#P connect 22 1 18 0;
#P connect 18 0 17 1;
#P pop;