max v2; #N vpatcher 77 63 1519 898; #P window setfont "Sans Serif" 9.; #P window linecount 1; #P message 845 369 33 196617 clear; #P flonum 741 395 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; #P newex 711 430 41 196617 *~ 0.2; #P flonum 831 432 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; #P newex 815 459 65 196617 tapout~ 100; #P newex 814 398 59 196617 tapin~ 100; #P message 1031 199 50 196617 speed \$1; #P message 898 139 30 196617 open; #P toggle 981 181 15 0; #P message 981 200 43 196617 loop \$1; #P comment 940 200 25 196617 stop; #P comment 929 178 25 196617 play; #P message 922 200 14 196617 0; #P message 911 178 14 196617 1; #P message 898 157 101 196617 open haiku_cage.aiff; #N sfplay~ 1 120960 0 ; #P newobj 898 226 39 196617 sfplay~; #P message 134 34 30 196617 open; #P comment 258 237 100 196617 Right inlet is '$f2'; #P window setfont "Sans Serif" 24.; #P window linecount 2; #P comment 335 380 75 196632 ramp time; #P flonum 272 336 87 24 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; #P window setfont "Sans Serif" 9.; #P flonum 225 391 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; #P window linecount 1; #P newex 149 392 54 196617 pack 0. 0.; #P button 179 333 15 0; #P message 179 355 17 196617 0.; #P button 149 332 15 0; #P message 149 355 17 196617 1.; #P newex 149 432 40 196617 line 0.; #P toggle 217 76 15 0; #P message 217 95 43 196617 loop \$1; #P window setfont "Sans Serif" 24.; #P newex 155 282 117 196632 r off; #P newex 35 283 114 196632 r on; #P window setfont "Sans Serif" 9.; #P comment 731 118 75 196617 amp threshold; #P newex 132 483 27 196617 *~; #P window setfont "Sans Serif" 18.; #P flonum 670 118 58 18 0. 1. 3 3 0 0 0 221 221 221 222 222 222 0 0 0; #P window setfont "Sans Serif" 24.; #P window linecount 2; #P newex 277 269 304 196632 if $f1 < $f2 then send on bang else send off bang; #P window setfont "Sans Serif" 18.; #P flonum 151 226 97 18 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; #P window setfont "Sans Serif" 9.; #P window linecount 1; #P newex 151 209 94 196617 peakamp~ 50; #B color 5; #P window linecount 3; #P comment 468 178 51 196617 (NB volume goes to 2); #P user scope~ 211 568 341 698 256 3 128 -1. 1. 0 0. 0 0. 102 255 51 135 135 135 0; #P window linecount 1; #P comment 176 95 25 196617 stop; #P comment 165 73 25 196617 play; #P message 158 95 14 196617 0; #P message 147 73 14 196617 1; #P user ezdac~ 132 568 176 601 0; #P newex 132 514 27 196617 *~; #P message 134 52 101 196617 open haiku_cage.aiff; #N sfplay~ 1 120960 0 ; #P newobj 134 121 39 196617 sfplay~; #P comment 466 161 51 196617 Volume; #P comment 518 351 51 196617 Amplitude; #P user uslider 447 161 14 73 201 1 0 0; #P newex 447 253 43 196617 / 100.; #P flonum 447 351 69 9 0. 2. 3 3 0 0 0 221 221 221 222 222 222 0 0 0; #P newex 447 413 33 196617 line~; #P message 447 394 38 196617 \$1 50; #P newex 447 373 38 196617 * 0.5; #P window linecount 3; #P comment 36 248 100 196617 Left inlet is '$f1' - a floating point variable; #P window linecount 5; #P comment 198 433 100 196617 The line creates ramps in the gate \, to avoid sudden clicks. Set the ramp time to '0.' to hear this!; #P window setfont "Sans Serif" 18.; #P window linecount 2; #P comment 10 29 100 196626 Noise Gate; #P window setfont "Sans Serif" 9.; #P window linecount 1; #P comment 10 86 100 196617 v0.1 2006; #P connect 12 0 26 0; #P connect 26 0 14 0; #P fasten 54 0 15 0 820 505; #P connect 43 0 15 0; #P connect 14 0 15 0; #P fasten 30 0 12 0 222 116 139 116; #P fasten 17 0 12 0 163 116 139 116; #P fasten 16 0 12 0 152 113 139 113; #P connect 13 0 12 0; #P connect 42 0 12 0; #P connect 28 0 34 0; #P connect 34 0 33 0; #P connect 33 0 37 0; #P fasten 35 0 37 0 184 382 154 382; #P connect 37 0 32 0; #P connect 32 0 26 1; #P fasten 6 0 14 1 452 505 154 505; #P fasten 12 0 22 0 139 201 156 201; #P connect 22 0 23 0; #P connect 54 0 15 1; #P connect 43 0 15 1; #P fasten 14 0 15 1 137 541 171 541; #P connect 29 0 36 0; #P connect 36 0 35 0; #P fasten 38 0 32 2 230 421 184 421; #P fasten 39 0 37 1 277 375 198 375; #P fasten 14 0 20 0 137 541 216 541; #P connect 31 0 30 0; #P connect 23 0 24 0; #P connect 9 0 8 0; #P connect 8 0 7 0; #P connect 7 0 4 0; #P connect 4 0 5 0; #P connect 5 0 6 0; #P connect 25 0 24 1; #P fasten 54 0 56 0 820 493 702 493 702 419 715 419 716 429; #P connect 57 0 56 1; #P connect 58 0 53 0; #P fasten 56 0 53 0 716 456 801 456 801 394 819 394; #P connect 43 0 53 0; #P connect 55 0 54 0; #P connect 53 0 54 0; #P fasten 52 0 43 0 1036 222 903 222; #P connect 51 0 43 0; #P connect 44 0 43 0; #P fasten 45 0 43 0 916 218 903 218; #P fasten 46 0 43 0 927 221 903 221; #P fasten 49 0 43 0 986 221 903 221; #P connect 34 0 45 0; #P connect 36 0 46 0; #P connect 50 0 49 0; #P connect 23 0 52 0; #P pop;