max v2;
#N vpatcher 428 368 1296 768;
#P origin 14 10;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#N vpatcher 10 59 365 271;
#P window setfont "Sans Serif" 9.;
#P window linecount 0;
#P message 105 122 185 196617  \; max launch_browser http://sound.media.mit.edu/resources/KEMAR.html;
#P window linecount 1;
#P newex 105 98 62 196617 prepend set;
#P newex 57 77 58 196617 trigger b s;
#P newex 57 57 171 196617 sprintf \\\; max launch_browser %s;
#P inlet 57 37 15 0;
#P connect 0 0 1 0;
#P connect 1 0 2 0;
#P connect 2 1 3 0;
#P connect 3 0 4 0;
#P fasten 2 0 4 0 62 118 110 118;
#P pop;
#P newobj 596 104 84 196617 p launchbrowser;
#P message 596 83 246 196617 http://sound.media.mit.edu/resources/KEMAR.html;
#N vpatcher 468 158 1133 446;
#P window setfont "Sans Serif" 9.;
#P newex 405 46 42 196617 Uzi 0 0;
#P window linecount 2;
#P comment 342 47 55 196617 SEPARATE CHANNELS;
#P inlet 556 41 15 0;
#P window linecount 1;
#P comment 536 25 57 196617 Left/Right;
#P window setfont "Sans Serif" 14.;
#P comment 492 228 89 196622 RIGHT FIR;
#P comment 370 228 89 196622 LEFT FIR;
#P window setfont "Sans Serif" 9.;
#P number 588 110 27 9 0 0 32 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 588 90 27 196617 + 1;
#P newex 463 90 27 196617 !- 2;
#P number 463 110 27 9 0 0 32 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 497 181 62 196617 peek~ R-FIR;
#P newex 497 155 41 196617 pack i f;
#P newex 528 131 71 196617 peek~ S-HRTF;
#P newex 372 181 61 196617 peek~ L-FIR;
#P newex 372 208 78 196617 buffer~ L-FIR 3;
#P newex 372 155 41 196617 pack i f;
#P newex 403 131 71 196617 peek~ S-HRTF;
#P newex 497 208 79 196617 buffer~ R-FIR 3;
#P window setfont "Sans Serif" 14.;
#P comment 19 129 89 196622 STEREO FIR;
#P window setfont "Sans Serif" 9.;
#P newex 17 84 65 196617 prepend read;
#P newex 17 108 95 196617 buffer~ S-HRTF 3 2;
#P comment 250 214 47 196617 Samples;
#P newex 193 190 55 196617 * 1.;
#P inlet 81 41 15 0;
#P newex 238 168 46 196617 / 1000.;
#P newex 135 84 65 196617 prepend open;
#P number 193 213 55 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P comment 242 149 63 196617 milliseconds;
#P comment 206 149 19 196617 Hz;
#P comment 166 149 25 196617 bits;
#P number 135 133 28 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P number 164 133 28 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 193 133 44 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 238 133 44 9 0 0 160 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P comment 137 149 19 196617 Ch;
#P newex 135 108 157 196617 sfinfo~;
#P window linecount 0;
#P comment 67 25 49 196617 Filename;
#P fasten 13 0 17 0 86 70 22 70;
#P connect 17 0 16 0;
#P fasten 13 0 11 0 86 70 140 70;
#P connect 11 0 1 0;
#P connect 1 0 6 0;
#P connect 1 1 5 0;
#P connect 1 2 4 0;
#P connect 4 0 14 0;
#P connect 14 0 10 0;
#P fasten 1 3 3 0 227 128 243 128;
#P connect 3 0 12 0;
#P connect 12 0 14 1;
#P fasten 36 2 21 0 442 81 377 81;
#P connect 21 0 23 0;
#P fasten 36 2 20 0 442 81 408 81;
#P connect 20 0 21 1;
#P fasten 10 0 36 0 198 243 320 243 320 33 410 33;
#P fasten 34 0 28 0 561 73 468 73;
#P connect 28 0 27 0;
#P connect 27 0 20 2;
#P fasten 36 2 25 0 442 81 502 81;
#P connect 25 0 26 0;
#P fasten 36 2 24 0 442 81 533 81;
#P connect 24 0 25 1;
#P fasten 34 0 29 0 561 73 593 73;
#P connect 29 0 30 0;
#P connect 30 0 24 2;
#P pop;
#P newobj 42 355 48 196617 p loadfir;
#P comment 27 171 25 196617 L/R;
#P comment 119 171 55 196617 ELEVATION;
#P toggle 23 154 15 0;
#P newex 638 270 115 196617 +~;
#P message 673 219 27 196617 stop;
#P message 605 219 65 196617 startwindow;
#P newex 638 247 115 196617 adc~;
#P newex 743 303 98 196617 buffir~ R-FIR 0 128;
#P newex 638 303 95 196617 buffir~ L-FIR 0 128;
#P newex 638 329 115 196617 dac~;
#P message 209 200 215 196617 name R-FIR \, unit samples \, grid 1 \, mode move;
#P user waveform~ 209 216 365 152 3 9;
#W mode move;
#W mouseoutput continuous;
#W unit samples;
#W grid 1.;
#W ticks 8;
#W labels 1;
#W vlabels 0;
#W vticks 1;
#W bpm 120. 4.;
#W frgb 0 255 255;
#W brgb 18 17 82;
#W rgb2 0 0 0;
#W rgb3 0 0 0;
#W rgb4 0 255 0;
#W rgb5 0 0 0;
#W rgb6 83 83 83;
#W rgb7 100 100 100;
#P hidden newex 443 26 45 196617 loadbang;
#P message 209 27 214 196617 name L-FIR \, unit samples \, grid 1 \, mode move;
#P user waveform~ 209 43 365 152 3 9;
#W mode move;
#W mouseoutput continuous;
#W unit samples;
#W grid 1.;
#W ticks 8;
#W labels 1;
#W vlabels 0;
#W vticks 1;
#W bpm 120. 4.;
#W frgb 0 255 255;
#W brgb 18 17 82;
#W rgb2 0 0 0;
#W rgb3 0 0 0;
#W rgb4 0 255 0;
#W rgb5 0 0 0;
#W rgb6 83 83 83;
#W rgb7 100 100 100;
#P newex 42 223 100 196617 buddy;
#N vpatcher 127 480 487 927;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P comment 193 405 51 196617 Elevation;
#P comment 107 405 47 196617 Azimuth;
#P newex 213 159 31 196617 / 10;
#P comment 96 84 77 196617 (-180 .. +180);
#P comment 192 84 65 196617 (-40 .. +90);
#P outlet 35 388 15 0;
#P window linecount 0;
#P newex 35 184 27 196617 > 0;
#P newex 124 136 99 196617 bondo 2;
#P newex 124 358 33 196617 round;
#P newex 124 337 27 196617 * 1.;
#P newex 124 301 27 196617 int;
#P newex 124 278 32 196617 / 1.;
#P inlet 213 100 15 0;
#P inlet 124 100 15 0;
#P outlet 124 388 15 0;
#P newex 124 184 23 196617 abs;
#P flonum 158 246 35 9 0 0 32 3 0 0 0 221 221 221 222 222 222 0 0 0;
#N coll angles;
#P newobj 158 222 55 196617 coll angles;
#P newex 213 184 30 196617 * 10;
#P outlet 213 388 15 0;
#P comment 110 70 45 196617 Azimuth;
#P comment 199 70 51 196617 Elevation;
#P comment 193 247 22 196617 ĈA;
#P comment 246 161 52 196617 Elevations multiples of 10;
#P comment 226 224 100 196617 The coll gives azimuth increment for a given elevation;
#P comment 16 405 57 196617 Left/Right;
#P window setfont "Sans Serif" 14.;
#P comment 46 22 262 196622 Restrict azimuth/elevation to ones available in the Kemar compact set;
#P fasten 19 0 20 0 129 159 40 159;
#P connect 20 0 21 0;
#P connect 13 0 19 0;
#P connect 19 0 11 0;
#P connect 11 0 15 0;
#P connect 15 0 16 0;
#P connect 16 0 17 0;
#P connect 17 0 18 0;
#P connect 18 0 12 0;
#P fasten 10 0 17 1 163 326 146 326;
#P fasten 10 0 15 1 163 269 151 269;
#P fasten 8 0 9 0 218 211 163 211;
#P connect 9 0 10 0;
#P connect 14 0 19 1;
#P connect 19 1 24 0;
#P connect 24 0 8 0;
#P connect 8 0 7 0;
#P pop;
#P newobj 23 131 100 196617 p angles;
#P window linecount 2;
#P newex 42 246 100 196617 sprintf H%de%03da.WAV;
#P window setfont "Sans Serif" 12.;
#P window linecount 1;
#P message 57 315 117 196620 H10e060a.WAV;
#P window setfont "Sans Serif" 9.;
#P newex 57 291 60 196617 prepend set;
#P number 68 154 35 9 0 0 228 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P number 113 154 35 9 0 0 228 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P user pictslider 23 25 100 100 1 0 4 4 SliderDefaultKnob.pct 1 SliderDefaultBkgnd.pct 1 2163 0 5963596 -2621260 1. 1.;
#P comment 72 171 51 196617 AZIMUTH;
#P window linecount 2;
#P comment 605 44 214 196617 Download compact.tar.Z or compact.zip \, unzip and put somewhere in your Max search path;
#P connect 2 0 8 0;
#P connect 8 0 22 0;
#P fasten 3 0 9 0 118 214 47 214;
#P connect 9 0 7 0;
#P connect 7 0 25 0;
#P connect 7 0 5 0;
#P connect 5 0 6 0;
#P connect 8 1 4 0;
#P fasten 22 0 25 1 28 345 85 345;
#P connect 2 1 8 1;
#P connect 8 2 3 0;
#P fasten 4 0 9 1 73 201 137 201;
#P connect 9 1 7 1;
#P hidden connect 12 0 11 0;
#P hidden connect 11 0 10 0;
#P hidden connect 12 0 14 0;
#P hidden connect 14 0 13 0;
#P hidden fasten 13 5 10 4 569 319 543 319 543 36 566 36;
#P hidden connect 10 5 13 4;
#P connect 26 0 27 0;
#P fasten 19 0 18 0 610 240 643 240;
#P fasten 20 0 18 0 678 240 643 240;
#P connect 18 0 21 0;
#P connect 21 0 16 0;
#P connect 16 0 15 0;
#P connect 18 1 21 1;
#P fasten 21 0 17 0 643 293 748 293;
#P connect 17 0 15 1;
#P pop;