max v2; #N vpatcher 111 52 897 742; #P window setfont Times 18.; #P window linecount 1; #P comment 411 411 179 1310738 resonant bandpass filter; #P user ezdac~ 184 560 228 593 0; #P user gain~ 201 439 20 79 158 0 1.071519 7.94321 10.; #P toggle 54 101 15 0; #P toggle 148 77 15 0; #P window setfont "Fixedwidth Serif" 18.; #P message 148 101 87 1441810 loop \$1; #P message 89 101 54 1441810 open; #N sfplay~ 1 120960 0 ; #P newobj 54 143 87 1441810 sfplay~; #P window setfont Times 18.; #P comment 219 355 40 1310738 gain; #P window setfont "Fixedwidth Serif" 18.; #P flonum 259 355 74 18 0. 100. 3 22 0 0 0 221 221 221 222 222 222 0 0 0; #P window setfont Times 18.; #P comment 312 389 26 1310738 Fc; #P comment 377 378 21 1310738 Q; #P window setfont "Fixedwidth Serif" 18.; #P flonum 399 378 74 18 0. 100. 3 22 0 0 0 221 221 221 222 222 222 0 0 0; #P window setfont Times 18.; #P comment 400 295 322 1310738 linear interpolation and conversion to signal; #P window setfont "Fixedwidth Serif" 18.; #P newex 333 293 65 1441810 line~; #P newex 333 264 131 1441810 pack 0. 10.; #P newex 201 409 208 1441810 reson~ 1. 300. 10.; #P window setfont Times 18.; #P comment 342 185 353 1310738 logarithmic mapping between 300 and 3000 Hz; #P window setfont "Fixedwidth Serif" 18.; #P flonum 333 237 118 18 0 0 0 22 0 0 0 221 221 221 222 222 222 0 0 0; #P newex 333 207 340 1441810 expr pow(10.\\\,($f1/127.))*300.; #P number 333 154 62 18 0 127 3 22 0 0 0 221 221 221 222 222 222 0 0 0; #P user uslider 333 56 23 78 128 1 0 0; #P newex 333 28 131 1441810 ctlin a 1 1; #P window setfont Times 18.; #P comment 465 29 203 1310738 mod wheel (MIDI control); #P connect 18 0 16 0; #P connect 17 0 16 0; #P connect 20 0 16 0; #P connect 19 0 18 0; #P connect 21 0 22 0; #P fasten 16 0 7 0 59 191 206 191; #P connect 7 0 21 0; #P connect 21 0 22 1; #P connect 14 0 7 1; #P connect 1 0 2 0; #P connect 2 0 3 0; #P connect 3 0 4 0; #P connect 4 0 5 0; #P connect 5 0 8 0; #P connect 8 0 9 0; #P connect 9 0 7 2; #P connect 11 0 7 3; #P pop;