max v2;
#N vpatcher 15 55 929 652;
#P origin -51 49;
#P window setfont "Sans Serif" 9.;
#P comment 669 425 100 9109513 Delay Process;
#P comment 10 303 104 9109513 Calculation of time to sound reaches receiver;
#P comment 342 337 87 9109513 Distance Source to Right Ear;
#P hidden button 176 42 15 0;
#P toggle 45 104 30 0;
#P newex 383 544 27 9109513 *~;
#P newex 266 549 27 9109513 *~;
#P newex 445 526 50 9109513 expr 1/$f1;
#P newex 246 507 50 9109513 expr 1/$f1;
#P message 687 354 34 9109513 \$1 100;
#P newex 687 380 27 9109513 line~;
#P newex 749 401 38 9109513 tapout~;
#P newex 749 371 32 9109513 tapin~;
#P newex 687 328 68 9109513 expr $f1/0.340;
#P message 45 358 34 9109513 \$1 100;
#P newex 45 391 27 9109513 line~;
#P newex 45 336 68 9109513 expr $f1/0.340;
#P newex 1 410 38 9109513 tapout~;
#P newex 1 381 32 9109513 tapin~;
#N vpatcher 160 568 760 968;
#P inlet 368 181 15 0;
#P window setfont "Sans Serif" 9.;
#P flonum 368 216 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P outlet 314 314 15 0;
#P outlet 282 314 15 0;
#P outlet 350 313 15 0;
#P inlet 291 40 15 0;
#P inlet 226 40 15 0;
#P inlet 189 40 15 0;
#P inlet 148 40 15 0;
#P inlet 109 40 15 0;
#P newex 235 269 143 9109513 expr abs(($f2-$f3)/cos($f1))+$f4;
#P newex 235 239 27 9109513 gate;
#P newex 235 189 27 9109513 ==;
#P newex 380 140 27 9109513 >=;
#P newex 380 99 54 9109513 expr $f1+30;
#P newex 291 99 54 9109513 expr $f1-30;
#P newex 130 118 94 9109513 expr $f1*180/3.14159;
#P newex 109 80 129 9109513 expr atan(($f2-$f4)/($f1-$f3));
#P newex 291 142 27 9109513 <=;
#P connect 9 0 1 0;
#P fasten 1 0 2 0 114 108 135 108;
#P fasten 11 0 1 1 194 67 153 67;
#P fasten 10 0 1 2 153 67 192 67;
#P connect 12 0 1 3;
#P fasten 0 0 6 0 296 175 240 175;
#P connect 6 0 7 0;
#P connect 7 0 8 0;
#P fasten 5 0 6 1 385 174 257 174;
#P fasten 1 0 7 1 114 151 257 151;
#P fasten 9 0 8 1 114 162 297 162;
#P fasten 11 0 15 0 194 184 287 184;
#P connect 13 0 3 0;
#P fasten 2 0 0 0 135 139 296 139;
#P fasten 3 0 0 1 296 130 313 130;
#P fasten 12 0 16 0 231 184 319 184;
#P fasten 11 0 8 2 194 162 354 162;
#P fasten 8 0 14 0 240 300 355 300;
#P connect 17 0 8 3;
#P connect 18 0 17 0;
#P fasten 13 0 4 0 296 77 385 77;
#P fasten 2 0 5 0 135 138 385 138;
#P fasten 4 0 5 1 385 129 402 129;
#P pop 1;
#P newobj 343 308 93 9109513 patcher DistStoR;
#N vpatcher 160 630 760 1030;
#P outlet 164 306 15 0;
#P outlet 134 306 15 0;
#P outlet 311 306 15 0;
#P outlet 276 306 15 0;
#P outlet 242 306 15 0;
#P outlet 208 306 15 0;
#P inlet 315 46 15 0;
#P inlet 223 46 15 0;
#P inlet 193 46 15 0;
#P inlet 164 46 15 0;
#P inlet 134 46 15 0;
#P window setfont "Sans Serif" 9.;
#P newex 343 253 60 9109513 expr 360-$f1;
#P newex 313 230 54 9109513 expr $f1-90;
#P newex 284 253 54 9109513 expr $f1+90;
#P newex 251 230 60 9109513 expr $f1-270;
#P newex 221 253 60 9109513 expr 180-$f1;
#P newex 192 230 54 9109513 expr $f1-90;
#P newex 160 253 60 9109513 expr $f1*(-1);
#P newex 133 230 54 9109513 expr $f1+90;
#P newex 222 205 27 9109513 gate;
#P newex 375 205 27 9109513 gate;
#P newex 345 205 27 9109513 gate;
#P newex 313 205 27 9109513 gate;
#P newex 281 205 27 9109513 gate;
#P newex 251 205 27 9109513 gate;
#P newex 193 205 27 9109513 gate;
#P newex 162 205 27 9109513 gate;
#P newex 211 169 170 9109513 select 1 2 3 4 5 6 7 8;
#N vpatcher 480 599 1170 1096;
#P outlet 409 451 15 0;
#P window setfont "Sans Serif" 9.;
#P message 536 269 14 9109513 8;
#P message 396 265 14 9109513 7;
#P message 208 264 14 9109513 6;
#P message 85 259 14 9109513 5;
#P outlet 350 451 15 0;
#P outlet 300 454 15 0;
#P outlet 246 454 15 0;
#P inlet 341 32 15 0;
#P inlet 308 32 15 0;
#P inlet 272 33 15 0;
#P inlet 239 33 16 0;
#P inlet 210 33 15 0;
#P button 533 241 15 0;
#P button 177 231 15 0;
#P button 61 234 15 0;
#P button 373 244 15 0;
#P flonum 347 271 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 496 272 14 9109513 0;
#P message 182 267 14 9109513 0;
#P message 83 333 14 9109513 0;
#P newex 356 101 94 9109513 if $f1>4.712 then $f1;
#P newex 49 109 94 9109513 if $f1>3.141 then $f1;
#P newex 468 365 61 9109513 expr $f2+$f1;
#P newex 331 365 61 9109513 expr $f1+$f2;
#P newex 160 362 59 9109513 expr $f2-$f1;
#P newex 41 360 59 9109513 expr $f2-$f1;
#P newex 461 293 128 9109513 expr $f1*abs(cos(6.283-$f2));
#P newex 318 297 124 9109513 expr $f1*abs(sin(6.283-$f2));
#P newex 157 291 128 9109513 expr $f1*abs(cos($f2-3.141));
#P newex 23 289 124 9109513 expr $f1*abs(sin($f2-3.141));
#P newex 371 195 144 9109513 if $f1<$f2 then $f1 else out2 $f2;
#P newex 62 204 144 9109513 if $f1<$f2 then $f1 else out2 $f2;
#P newex 519 159 138 9109513 expr abs((0-$f2)/sin(6.283-$f1));
#P newex 190 157 138 9109513 expr abs((0-$f2)/sin($f1-3.141));
#P newex 350 159 150 9109513 expr abs(($f2-$f3)/cos(6.283-$f1));
#P newex 43 157 141 9109513 expr abs((0-$f2)/cos($f1-3.141));
#P newex 354 71 94 9109513 if $f1<6.283 then $f1;
#P newex 49 86 94 9109513 if $f1<4.712 then $f1;
#P connect 6 0 8 0;
#P connect 8 0 12 0;
#P connect 16 0 2 0;
#P connect 26 0 0 0;
#P connect 0 0 16 0;
#P connect 6 0 23 0;
#P connect 2 0 6 0;
#P connect 23 0 18 0;
#P connect 23 0 34 0;
#P connect 30 0 12 1;
#P connect 26 0 8 1;
#P connect 6 1 9 0;
#P connect 9 0 13 0;
#P connect 29 0 2 1;
#P connect 6 1 24 0;
#P connect 24 0 19 0;
#P connect 16 0 4 0;
#P connect 4 0 6 1;
#P connect 24 0 35 0;
#P connect 29 0 13 1;
#P connect 15 0 31 0;
#P connect 13 0 31 0;
#P connect 18 0 31 0;
#P connect 21 0 31 0;
#P connect 26 0 9 1;
#P connect 14 0 32 0;
#P connect 19 0 32 0;
#P connect 12 0 32 0;
#P connect 20 0 32 0;
#P connect 30 0 4 1;
#P connect 7 0 10 0;
#P connect 10 0 14 0;
#P connect 27 0 21 0;
#P connect 22 0 21 0;
#P connect 17 0 3 0;
#P connect 7 1 33 0;
#P connect 7 0 33 0;
#P connect 6 1 33 0;
#P connect 6 0 33 0;
#P connect 26 0 1 0;
#P connect 1 0 17 0;
#P connect 3 0 7 0;
#P connect 7 0 22 0;
#P connect 30 0 14 1;
#P connect 22 0 36 0;
#P connect 34 0 38 0;
#P connect 35 0 38 0;
#P connect 36 0 38 0;
#P connect 37 0 38 0;
#P connect 27 0 3 1;
#P connect 26 0 10 1;
#P connect 7 1 11 0;
#P connect 11 0 15 0;
#P connect 29 0 3 2;
#P connect 25 0 20 0;
#P connect 5 0 7 1;
#P connect 17 0 5 0;
#P connect 29 0 15 1;
#P connect 7 1 25 0;
#P connect 25 0 37 0;
#P connect 26 0 11 1;
#P connect 30 0 5 1;
#P pop 1;
#P newobj 286 131 74 9109513 patcher 2ndPoss;
#P newex 235 96 84 9109513 expr $f1/180*3.141;
#N vpatcher 320 630 910 1030;
#P origin -42 8;
#P window setfont "Sans Serif" 9.;
#P message 464 218 14 9109513 4;
#P message 322 221 14 9109513 3;
#P message 213 221 14 9109513 2;
#P message 68 224 14 9109513 1;
#P outlet 398 340 15 0;
#P button 296 195 15 0;
#P button 409 195 15 0;
#P flonum 404 220 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 165 220 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P button 171 195 15 0;
#P flonum 21 223 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P button 37 195 15 0;
#P message 288 215 14 9109513 0;
#P newex 248 82 94 9109513 if $f1>1.571 then $f1;
#P newex 64 80 78 9109513 if $f1>0 then $f1;
#P outlet 316 336 15 0;
#P outlet 241 340 17 0;
#P outlet 137 336 15 0;
#P inlet 528 21 15 0;
#P inlet 494 21 15 0;
#P inlet 446 21 15 0;
#P inlet 398 21 15 0;
#N comlet;
#P inlet 337 21 21 0;
#P newex 388 284 59 9109513 expr $f2-$f1;
#P newex 267 285 61 9109513 expr $f2+$f1;
#P newex 155 284 61 9109513 expr $f1+$f2;
#P newex 35 280 61 9109513 expr $f1+$f2;
#P newex 376 245 128 9109513 expr $f1*abs(cos(3.141-$f2));
#P newex 254 253 124 9109513 expr $f1*abs(sin(3.141-$f2));
#P newex 140 246 102 9109513 expr $f1*abs(cos($f2));
#P newex 13 247 99 9109513 expr $f1*abs(sin($f2));
#P newex 284 162 144 9109513 if $f1<$f2 then $f1 else out2 $f2;
#P newex 403 132 144 9109513 expr abs(($f2-$f3)/sin(3.141-$f1));
#P newex 254 132 141 9109513 expr abs((0-$f2)/cos(3.141-$f1));
#P newex 37 162 144 9109513 if $f1<$f2 then $f1 else out2 $f2;
#P newex 129 132 121 9109513 expr abs(($f2-$f3)/sin($f1));
#P newex 0 132 124 9109513 expr abs(($f2-$f3)/cos($f1));
#P newex 248 59 94 9109513 if $f1<3.141 then $f1;
#P newex 64 55 94 9109513 if $f1<1.571 then $f1;
#P comment 173 22 100 9109513 Distance to Closest Wall;
#P connect 25 0 3 0;
#P connect 5 0 9 0;
#P connect 28 0 29 0;
#P fasten 18 0 29 0 403 113 26 113;
#P connect 9 0 13 0;
#P connect 3 0 5 0;
#P connect 5 0 28 0;
#P fasten 18 0 3 1 403 107 62 107;
#P connect 17 0 1 0;
#P connect 1 0 25 0;
#P connect 28 0 36 0;
#P connect 21 0 13 1;
#P connect 17 0 9 1;
#P fasten 20 0 3 2 499 108 119 108;
#P connect 25 0 4 0;
#P connect 27 0 22 0;
#P connect 29 0 22 0;
#P connect 14 0 22 0;
#P connect 16 0 22 0;
#P connect 5 1 10 0;
#P connect 10 0 14 0;
#P fasten 19 0 31 0 451 115 170 115;
#P connect 30 0 31 0;
#P connect 4 0 5 1;
#P connect 5 1 30 0;
#P fasten 19 0 4 1 451 109 189 109;
#P connect 20 0 14 1;
#P connect 30 0 37 0;
#P connect 17 0 10 1;
#P fasten 21 0 4 2 533 105 244 105;
#P connect 32 0 23 0;
#P connect 31 0 23 0;
#P connect 13 0 23 0;
#P connect 15 0 23 0;
#P connect 17 0 2 0;
#P connect 2 0 26 0;
#P connect 26 0 6 0;
#P connect 8 0 11 0;
#P connect 11 0 15 0;
#P connect 6 0 8 0;
#P connect 34 0 27 0;
#P connect 8 0 34 0;
#P connect 8 1 24 0;
#P connect 5 1 24 0;
#P connect 8 0 24 0;
#P connect 5 0 24 0;
#P connect 21 0 15 1;
#P connect 34 0 38 0;
#P connect 17 0 11 1;
#P connect 8 1 12 0;
#P fasten 20 0 6 1 499 85 390 85;
#P connect 12 0 16 0;
#P connect 38 0 35 0;
#P connect 36 0 35 0;
#P connect 37 0 35 0;
#P connect 39 0 35 0;
#P connect 26 0 7 0;
#P connect 33 0 32 0;
#P fasten 19 0 32 0 451 240 409 240;
#P connect 8 1 33 0;
#P connect 7 0 8 1;
#P connect 20 0 16 1;
#P connect 33 0 39 0;
#P fasten 19 0 7 1 451 85 475 85;
#P fasten 17 0 12 1 342 154 499 154;
#P connect 21 0 7 2;
#P pop 1;
#P newobj 195 131 74 9109513 patcher 1stPoss;
#P connect 4 0 12 0;
#P connect 20 0 29 0;
#P connect 5 0 13 0;
#P connect 3 0 4 0;
#P connect 21 0 30 0;
#P fasten 24 0 4 1 320 79 184 79;
#P connect 11 0 14 0;
#P connect 3 1 5 0;
#P connect 1 0 0 0;
#P connect 2 0 25 0;
#P fasten 0 0 25 0 200 226 213 226;
#P fasten 24 0 5 1 320 79 215 79;
#P fasten 20 0 0 1 139 96 216 96;
#P fasten 0 3 3 0 263 159 216 159;
#P fasten 2 3 3 0 354 159 216 159;
#P connect 6 0 15 0;
#P connect 3 2 11 0;
#P fasten 21 0 0 2 169 96 232 96;
#P fasten 24 0 1 0 320 78 240 78;
#P fasten 24 0 11 1 320 79 244 79;
#P connect 2 1 26 0;
#P fasten 0 1 26 0 221 226 247 226;
#P fasten 22 0 0 3 198 78 248 78;
#P connect 3 3 6 0;
#P connect 7 0 16 0;
#P fasten 23 0 0 4 228 78 264 78;
#P fasten 24 0 6 1 320 79 273 79;
#P connect 2 2 27 0;
#P fasten 0 2 27 0 242 226 281 226;
#P connect 3 4 7 0;
#P connect 8 0 17 0;
#P connect 1 0 2 0;
#P fasten 20 0 2 0 139 78 291 78;
#P fasten 24 0 7 1 320 79 303 79;
#P connect 19 0 28 0;
#P connect 18 0 28 0;
#P connect 17 0 28 0;
#P connect 16 0 28 0;
#P connect 15 0 28 0;
#P connect 14 0 28 0;
#P connect 13 0 28 0;
#P connect 12 0 28 0;
#P connect 3 5 8 0;
#P connect 9 0 18 0;
#P fasten 21 0 2 2 169 78 323 78;
#P fasten 24 0 8 1 320 97 335 97;
#P fasten 22 0 2 3 198 78 339 78;
#P connect 10 0 19 0;
#P connect 3 6 9 0;
#P fasten 23 0 2 4 228 78 355 78;
#P fasten 24 0 9 1 320 97 367 97;
#P connect 3 7 10 0;
#P fasten 24 0 10 1 320 97 397 97;
#P pop 1;
#P newobj 451 308 104 9109513 patcher VectorAnalysis;
#N vpatcher 0 568 600 968;
#P inlet 368 181 15 0;
#P window setfont "Sans Serif" 9.;
#P flonum 368 216 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P outlet 314 314 15 0;
#P outlet 282 314 15 0;
#P outlet 350 313 15 0;
#P inlet 291 40 15 0;
#P inlet 226 40 15 0;
#P inlet 189 40 15 0;
#P inlet 148 40 15 0;
#P inlet 109 40 15 0;
#P newex 235 269 143 9109513 expr abs(($f2-$f3)/cos($f1))+$f4;
#P newex 235 239 27 9109513 gate;
#P newex 235 189 27 9109513 ==;
#P newex 380 140 27 9109513 >=;
#P newex 380 99 54 9109513 expr $f1+30;
#P newex 291 99 54 9109513 expr $f1-30;
#P newex 130 118 94 9109513 expr $f1*180/3.14159;
#P newex 109 80 129 9109513 expr atan(($f2-$f4)/($f1-$f3));
#P newex 291 142 27 9109513 <=;
#P connect 9 0 1 0;
#P fasten 1 0 2 0 114 108 135 108;
#P fasten 11 0 1 1 194 67 153 67;
#P fasten 10 0 1 2 153 67 192 67;
#P connect 12 0 1 3;
#P fasten 0 0 6 0 296 175 240 175;
#P connect 6 0 7 0;
#P connect 7 0 8 0;
#P fasten 5 0 6 1 385 174 257 174;
#P fasten 1 0 7 1 114 151 257 151;
#P fasten 9 0 8 1 114 162 297 162;
#P fasten 11 0 15 0 194 184 287 184;
#P connect 13 0 3 0;
#P fasten 2 0 0 0 135 139 296 139;
#P fasten 3 0 0 1 296 130 313 130;
#P fasten 12 0 16 0 231 184 319 184;
#P fasten 11 0 8 2 194 162 354 162;
#P fasten 8 0 14 0 240 300 355 300;
#P connect 17 0 8 3;
#P connect 18 0 17 0;
#P fasten 13 0 4 0 296 77 385 77;
#P fasten 2 0 5 0 135 138 385 138;
#P fasten 4 0 5 1 385 129 402 129;
#P pop 1;
#P newobj 235 308 93 9109513 patcher DistStoR;
#P user filtergraph~ 436 425 190 67 139 9 0. 22050. 0.0625 16. 1 1 1 0 0 1 1;
#X frgb 193 193 255;
#X brgb 233 233 255;
#X rgb2 0 0 0;
#X rgb3 130 130 130;
#X rgb4 0 0 0;
#X rgb5 118 121 166;
#X rgb6 210 74 54;
#X rgb7 255 22 22;
#X linmarkers 5512.5 11025. 16537.5;
#X logmarkers 10. 100. 1000. 10000.;
#X nfilters 1;
#X setfilter 0 1 0 0 0 440. 1. 1.332913 0.0001 22050. 0.0001 16. 0.5 25.;
#X done;
#P newex 423 501 79 9109513 biquad~;
#P user ezdac~ 360 582 404 615 0;
#P user filtergraph~ 163 425 190 67 139 9 0. 22050. 0.0625 16. 1 1 1 0 0 1 1;
#X frgb 193 193 255;
#X brgb 233 233 255;
#X rgb2 0 0 0;
#X rgb3 130 130 130;
#X rgb4 0 0 0;
#X rgb5 118 121 166;
#X rgb6 210 74 54;
#X rgb7 255 22 22;
#X linmarkers 5512.5 11025. 16537.5;
#X logmarkers 10. 100. 1000. 10000.;
#X nfilters 1;
#X setfilter 0 1 0 0 0 440. 1. 1.332913 0.0001 22050. 0.0001 16. 0.5 25.;
#X done;
#P newex 152 508 79 9109513 biquad~;
#P message 574 355 34 9109513 \$1 100;
#P message 156 358 34 9109513 \$1 100;
#N vpatcher 800 599 1400 999;
#P inlet 368 181 15 0;
#P window setfont "Sans Serif" 9.;
#P flonum 368 216 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P outlet 314 314 15 0;
#P outlet 282 314 15 0;
#P outlet 350 313 15 0;
#P inlet 291 40 15 0;
#P inlet 226 40 15 0;
#P inlet 189 40 15 0;
#P inlet 148 40 15 0;
#P inlet 109 40 15 0;
#P newex 235 269 143 9109513 expr abs(($f2-$f3)/cos($f1))+$f4;
#P newex 235 239 27 9109513 gate;
#P newex 235 189 27 9109513 ==;
#P newex 380 140 27 9109513 >=;
#P newex 380 99 54 9109513 expr $f1+30;
#P newex 291 99 54 9109513 expr $f1-30;
#P newex 130 118 94 9109513 expr $f1*180/3.14159;
#P newex 109 80 129 9109513 expr atan(($f2-$f4)/($f1-$f3));
#P newex 291 142 27 9109513 <=;
#P connect 9 0 1 0;
#P fasten 1 0 2 0 114 108 135 108;
#P fasten 11 0 1 1 194 67 153 67;
#P fasten 10 0 1 2 153 67 192 67;
#P connect 12 0 1 3;
#P fasten 0 0 6 0 296 175 240 175;
#P connect 6 0 7 0;
#P connect 7 0 8 0;
#P fasten 5 0 6 1 385 174 257 174;
#P fasten 1 0 7 1 114 151 257 151;
#P fasten 9 0 8 1 114 162 297 162;
#P fasten 11 0 15 0 194 184 287 184;
#P connect 13 0 3 0;
#P fasten 2 0 0 0 135 139 296 139;
#P fasten 3 0 0 1 296 130 313 130;
#P fasten 12 0 16 0 231 184 319 184;
#P fasten 11 0 8 2 194 162 354 162;
#P fasten 8 0 14 0 240 300 355 300;
#P connect 17 0 8 3;
#P connect 18 0 17 0;
#P fasten 13 0 4 0 296 77 385 77;
#P fasten 2 0 5 0 135 138 385 138;
#P fasten 4 0 5 1 385 129 402 129;
#P pop 1;
#P newobj 343 282 93 9109513 patcher DistStoR;
#N vpatcher 800 625 1400 1025;
#P outlet 164 306 15 0;
#P outlet 134 306 15 0;
#P outlet 311 306 15 0;
#P outlet 276 306 15 0;
#P outlet 242 306 15 0;
#P outlet 208 306 15 0;
#P inlet 315 46 15 0;
#P inlet 223 46 15 0;
#P inlet 193 46 15 0;
#P inlet 164 46 15 0;
#P inlet 134 46 15 0;
#P window setfont "Sans Serif" 9.;
#P newex 343 253 60 9109513 expr 360-$f1;
#P newex 313 230 54 9109513 expr $f1-90;
#P newex 284 253 54 9109513 expr $f1+90;
#P newex 251 230 60 9109513 expr $f1-270;
#P newex 221 253 60 9109513 expr 180-$f1;
#P newex 192 230 54 9109513 expr $f1-90;
#P newex 160 253 60 9109513 expr $f1*(-1);
#P newex 133 230 54 9109513 expr $f1+90;
#P newex 222 205 27 9109513 gate;
#P newex 375 205 27 9109513 gate;
#P newex 345 205 27 9109513 gate;
#P newex 313 205 27 9109513 gate;
#P newex 281 205 27 9109513 gate;
#P newex 251 205 27 9109513 gate;
#P newex 193 205 27 9109513 gate;
#P newex 162 205 27 9109513 gate;
#P newex 211 169 170 9109513 select 1 2 3 4 5 6 7 8;
#N vpatcher 160 599 850 1096;
#P outlet 409 451 15 0;
#P window setfont "Sans Serif" 9.;
#P message 536 269 14 9109513 8;
#P message 396 265 14 9109513 7;
#P message 208 264 14 9109513 6;
#P message 85 259 14 9109513 5;
#P outlet 350 451 15 0;
#P outlet 300 454 15 0;
#P outlet 246 454 15 0;
#P inlet 341 32 15 0;
#P inlet 308 32 15 0;
#P inlet 272 33 15 0;
#P inlet 239 33 16 0;
#P inlet 210 33 15 0;
#P button 533 241 15 0;
#P button 177 231 15 0;
#P button 61 234 15 0;
#P button 373 244 15 0;
#P flonum 347 271 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 496 272 14 9109513 0;
#P message 182 267 14 9109513 0;
#P message 83 333 14 9109513 0;
#P newex 356 101 94 9109513 if $f1>4.712 then $f1;
#P newex 49 109 94 9109513 if $f1>3.141 then $f1;
#P newex 468 365 61 9109513 expr $f2+$f1;
#P newex 331 365 61 9109513 expr $f1+$f2;
#P newex 160 362 59 9109513 expr $f2-$f1;
#P newex 41 360 59 9109513 expr $f2-$f1;
#P newex 461 293 128 9109513 expr $f1*abs(cos(6.283-$f2));
#P newex 318 297 124 9109513 expr $f1*abs(sin(6.283-$f2));
#P newex 157 291 128 9109513 expr $f1*abs(cos($f2-3.141));
#P newex 23 289 124 9109513 expr $f1*abs(sin($f2-3.141));
#P newex 371 195 144 9109513 if $f1<$f2 then $f1 else out2 $f2;
#P newex 62 204 144 9109513 if $f1<$f2 then $f1 else out2 $f2;
#P newex 519 159 138 9109513 expr abs((0-$f2)/sin(6.283-$f1));
#P newex 190 157 138 9109513 expr abs((0-$f2)/sin($f1-3.141));
#P newex 350 159 150 9109513 expr abs(($f2-$f3)/cos(6.283-$f1));
#P newex 43 157 141 9109513 expr abs((0-$f2)/cos($f1-3.141));
#P newex 354 71 94 9109513 if $f1<6.283 then $f1;
#P newex 49 86 94 9109513 if $f1<4.712 then $f1;
#P connect 6 0 8 0;
#P connect 8 0 12 0;
#P connect 16 0 2 0;
#P connect 26 0 0 0;
#P connect 0 0 16 0;
#P connect 6 0 23 0;
#P connect 2 0 6 0;
#P connect 23 0 18 0;
#P connect 23 0 34 0;
#P connect 30 0 12 1;
#P connect 26 0 8 1;
#P connect 6 1 9 0;
#P connect 9 0 13 0;
#P connect 29 0 2 1;
#P connect 6 1 24 0;
#P connect 24 0 19 0;
#P connect 16 0 4 0;
#P connect 4 0 6 1;
#P connect 24 0 35 0;
#P connect 29 0 13 1;
#P connect 21 0 31 0;
#P connect 18 0 31 0;
#P connect 13 0 31 0;
#P connect 15 0 31 0;
#P connect 26 0 9 1;
#P connect 20 0 32 0;
#P connect 12 0 32 0;
#P connect 19 0 32 0;
#P connect 14 0 32 0;
#P connect 30 0 4 1;
#P connect 7 0 10 0;
#P connect 10 0 14 0;
#P connect 27 0 21 0;
#P connect 22 0 21 0;
#P connect 17 0 3 0;
#P connect 7 1 33 0;
#P connect 7 0 33 0;
#P connect 6 0 33 0;
#P connect 6 1 33 0;
#P connect 26 0 1 0;
#P connect 1 0 17 0;
#P connect 3 0 7 0;
#P connect 7 0 22 0;
#P connect 30 0 14 1;
#P connect 22 0 36 0;
#P connect 37 0 38 0;
#P connect 36 0 38 0;
#P connect 35 0 38 0;
#P connect 34 0 38 0;
#P connect 27 0 3 1;
#P connect 26 0 10 1;
#P connect 7 1 11 0;
#P connect 11 0 15 0;
#P connect 29 0 3 2;
#P connect 25 0 20 0;
#P connect 5 0 7 1;
#P connect 17 0 5 0;
#P connect 29 0 15 1;
#P connect 7 1 25 0;
#P connect 25 0 37 0;
#P connect 26 0 11 1;
#P connect 30 0 5 1;
#P pop 1;
#P newobj 286 131 74 9109513 patcher 2ndPoss;
#P newex 235 96 84 9109513 expr $f1/180*3.141;
#N vpatcher 0 625 590 1025;
#P origin -42 8;
#P window setfont "Sans Serif" 9.;
#P message 464 218 14 9109513 4;
#P message 322 221 14 9109513 3;
#P message 213 221 14 9109513 2;
#P message 68 224 14 9109513 1;
#P outlet 398 340 15 0;
#P button 296 195 15 0;
#P button 409 195 15 0;
#P flonum 404 220 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 165 220 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P button 171 195 15 0;
#P flonum 21 223 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P button 37 195 15 0;
#P message 288 215 14 9109513 0;
#P newex 248 82 94 9109513 if $f1>1.571 then $f1;
#P newex 64 80 78 9109513 if $f1>0 then $f1;
#P outlet 316 336 15 0;
#P outlet 241 340 17 0;
#P outlet 137 336 15 0;
#P inlet 528 21 15 0;
#P inlet 494 21 15 0;
#P inlet 446 21 15 0;
#P inlet 398 21 15 0;
#N comlet;
#P inlet 337 21 21 0;
#P newex 388 284 59 9109513 expr $f2-$f1;
#P newex 267 285 61 9109513 expr $f2+$f1;
#P newex 155 284 61 9109513 expr $f1+$f2;
#P newex 35 280 61 9109513 expr $f1+$f2;
#P newex 376 245 128 9109513 expr $f1*abs(cos(3.141-$f2));
#P newex 254 253 124 9109513 expr $f1*abs(sin(3.141-$f2));
#P newex 140 246 102 9109513 expr $f1*abs(cos($f2));
#P newex 13 247 99 9109513 expr $f1*abs(sin($f2));
#P newex 284 162 144 9109513 if $f1<$f2 then $f1 else out2 $f2;
#P newex 403 132 144 9109513 expr abs(($f2-$f3)/sin(3.141-$f1));
#P newex 254 132 141 9109513 expr abs((0-$f2)/cos(3.141-$f1));
#P newex 37 162 144 9109513 if $f1<$f2 then $f1 else out2 $f2;
#P newex 129 132 121 9109513 expr abs(($f2-$f3)/sin($f1));
#P newex 0 132 124 9109513 expr abs(($f2-$f3)/cos($f1));
#P newex 248 59 94 9109513 if $f1<3.141 then $f1;
#P newex 64 55 94 9109513 if $f1<1.571 then $f1;
#P comment 173 22 100 9109513 Distance to Closest Wall;
#P connect 25 0 3 0;
#P connect 5 0 9 0;
#P connect 28 0 29 0;
#P fasten 18 0 29 0 403 113 26 113;
#P connect 9 0 13 0;
#P connect 3 0 5 0;
#P connect 5 0 28 0;
#P fasten 18 0 3 1 403 107 62 107;
#P connect 17 0 1 0;
#P connect 1 0 25 0;
#P connect 28 0 36 0;
#P connect 21 0 13 1;
#P connect 17 0 9 1;
#P fasten 20 0 3 2 499 108 119 108;
#P connect 25 0 4 0;
#P connect 16 0 22 0;
#P connect 14 0 22 0;
#P connect 29 0 22 0;
#P connect 27 0 22 0;
#P connect 5 1 10 0;
#P connect 10 0 14 0;
#P fasten 19 0 31 0 451 115 170 115;
#P connect 30 0 31 0;
#P connect 4 0 5 1;
#P connect 5 1 30 0;
#P fasten 19 0 4 1 451 109 189 109;
#P connect 20 0 14 1;
#P connect 30 0 37 0;
#P connect 17 0 10 1;
#P fasten 21 0 4 2 533 105 244 105;
#P connect 15 0 23 0;
#P connect 13 0 23 0;
#P connect 31 0 23 0;
#P connect 32 0 23 0;
#P connect 17 0 2 0;
#P connect 2 0 26 0;
#P connect 26 0 6 0;
#P connect 8 0 11 0;
#P connect 11 0 15 0;
#P connect 6 0 8 0;
#P connect 34 0 27 0;
#P connect 8 0 34 0;
#P connect 8 1 24 0;
#P connect 5 0 24 0;
#P connect 8 0 24 0;
#P connect 5 1 24 0;
#P connect 21 0 15 1;
#P connect 34 0 38 0;
#P connect 17 0 11 1;
#P connect 8 1 12 0;
#P fasten 20 0 6 1 499 85 390 85;
#P connect 12 0 16 0;
#P connect 39 0 35 0;
#P connect 37 0 35 0;
#P connect 36 0 35 0;
#P connect 38 0 35 0;
#P connect 26 0 7 0;
#P connect 33 0 32 0;
#P fasten 19 0 32 0 451 240 409 240;
#P connect 8 1 33 0;
#P connect 7 0 8 1;
#P connect 20 0 16 1;
#P connect 33 0 39 0;
#P fasten 19 0 7 1 451 85 475 85;
#P fasten 17 0 12 1 342 154 499 154;
#P connect 21 0 7 2;
#P pop 1;
#P newobj 195 131 74 9109513 patcher 1stPoss;
#P connect 4 0 12 0;
#P connect 20 0 29 0;
#P connect 5 0 13 0;
#P connect 3 0 4 0;
#P connect 21 0 30 0;
#P fasten 24 0 4 1 320 79 184 79;
#P connect 11 0 14 0;
#P connect 3 1 5 0;
#P connect 1 0 0 0;
#P fasten 0 0 25 0 200 226 213 226;
#P connect 2 0 25 0;
#P fasten 24 0 5 1 320 79 215 79;
#P fasten 20 0 0 1 139 96 216 96;
#P fasten 2 3 3 0 354 159 216 159;
#P fasten 0 3 3 0 263 159 216 159;
#P connect 6 0 15 0;
#P connect 3 2 11 0;
#P fasten 21 0 0 2 169 96 232 96;
#P fasten 24 0 1 0 320 78 240 78;
#P fasten 24 0 11 1 320 79 244 79;
#P fasten 0 1 26 0 221 226 247 226;
#P connect 2 1 26 0;
#P fasten 22 0 0 3 198 78 248 78;
#P connect 3 3 6 0;
#P connect 7 0 16 0;
#P fasten 23 0 0 4 228 78 264 78;
#P fasten 24 0 6 1 320 79 273 79;
#P fasten 0 2 27 0 242 226 281 226;
#P connect 2 2 27 0;
#P connect 3 4 7 0;
#P connect 8 0 17 0;
#P fasten 20 0 2 0 139 78 291 78;
#P connect 1 0 2 0;
#P fasten 24 0 7 1 320 79 303 79;
#P connect 12 0 28 0;
#P connect 13 0 28 0;
#P connect 14 0 28 0;
#P connect 15 0 28 0;
#P connect 16 0 28 0;
#P connect 17 0 28 0;
#P connect 18 0 28 0;
#P connect 19 0 28 0;
#P connect 3 5 8 0;
#P connect 9 0 18 0;
#P fasten 21 0 2 2 169 78 323 78;
#P fasten 24 0 8 1 320 97 335 97;
#P fasten 22 0 2 3 198 78 339 78;
#P connect 10 0 19 0;
#P connect 3 6 9 0;
#P fasten 23 0 2 4 228 78 355 78;
#P fasten 24 0 9 1 320 97 367 97;
#P connect 3 7 10 0;
#P fasten 24 0 10 1 320 97 397 97;
#P pop 1;
#P newobj 451 282 104 9109513 patcher VectorAnalysis;
#N vpatcher 640 599 1240 999;
#P inlet 368 181 15 0;
#P window setfont "Sans Serif" 9.;
#P flonum 368 216 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P outlet 314 314 15 0;
#P outlet 282 314 15 0;
#P outlet 350 313 15 0;
#P inlet 291 40 15 0;
#P inlet 226 40 15 0;
#P inlet 189 40 15 0;
#P inlet 148 40 15 0;
#P inlet 109 40 15 0;
#P newex 235 269 143 9109513 expr abs(($f2-$f3)/cos($f1))+$f4;
#P newex 235 239 27 9109513 gate;
#P newex 235 189 27 9109513 ==;
#P newex 380 140 27 9109513 >=;
#P newex 380 99 54 9109513 expr $f1+30;
#P newex 291 99 54 9109513 expr $f1-30;
#P newex 130 118 94 9109513 expr $f1*180/3.14159;
#P newex 109 80 129 9109513 expr atan(($f2-$f4)/($f1-$f3));
#P newex 291 142 27 9109513 <=;
#P connect 9 0 1 0;
#P fasten 1 0 2 0 114 108 135 108;
#P fasten 11 0 1 1 194 67 153 67;
#P fasten 10 0 1 2 153 67 192 67;
#P connect 12 0 1 3;
#P fasten 0 0 6 0 296 175 240 175;
#P connect 6 0 7 0;
#P connect 7 0 8 0;
#P fasten 5 0 6 1 385 174 257 174;
#P fasten 1 0 7 1 114 151 257 151;
#P fasten 9 0 8 1 114 162 297 162;
#P fasten 11 0 15 0 194 184 287 184;
#P connect 13 0 3 0;
#P fasten 2 0 0 0 135 139 296 139;
#P fasten 3 0 0 1 296 130 313 130;
#P fasten 12 0 16 0 231 184 319 184;
#P fasten 11 0 8 2 194 162 354 162;
#P fasten 8 0 14 0 240 300 355 300;
#P connect 17 0 8 3;
#P connect 18 0 17 0;
#P fasten 13 0 4 0 296 77 385 77;
#P fasten 2 0 5 0 135 138 385 138;
#P fasten 4 0 5 1 385 129 402 129;
#P pop 1;
#P newobj 235 282 93 9109513 patcher DistStoR;
#N vpatcher 320 599 920 999;
#P inlet 368 181 15 0;
#P window setfont "Sans Serif" 9.;
#P flonum 368 216 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P outlet 314 314 15 0;
#P outlet 282 314 15 0;
#P outlet 350 313 15 0;
#P inlet 291 40 15 0;
#P inlet 226 40 15 0;
#P inlet 189 40 15 0;
#P inlet 148 40 15 0;
#P inlet 109 40 15 0;
#P newex 235 269 143 9109513 expr abs(($f2-$f3)/cos($f1))+$f4;
#P newex 235 239 27 9109513 gate;
#P newex 235 189 27 9109513 ==;
#P newex 380 140 27 9109513 >=;
#P newex 380 99 54 9109513 expr $f1+30;
#P newex 291 99 54 9109513 expr $f1-30;
#P newex 130 118 94 9109513 expr $f1*180/3.14159;
#P newex 109 80 129 9109513 expr atan(($f2-$f4)/($f1-$f3));
#P newex 291 142 27 9109513 <=;
#P connect 9 0 1 0;
#P fasten 1 0 2 0 114 108 135 108;
#P fasten 11 0 1 1 194 67 153 67;
#P fasten 10 0 1 2 153 67 192 67;
#P connect 12 0 1 3;
#P fasten 0 0 6 0 296 175 240 175;
#P connect 6 0 7 0;
#P connect 7 0 8 0;
#P fasten 5 0 6 1 385 174 257 174;
#P fasten 1 0 7 1 114 151 257 151;
#P fasten 9 0 8 1 114 162 297 162;
#P fasten 11 0 15 0 194 184 287 184;
#P connect 13 0 3 0;
#P fasten 2 0 0 0 135 139 296 139;
#P fasten 3 0 0 1 296 130 313 130;
#P fasten 12 0 16 0 231 184 319 184;
#P fasten 11 0 8 2 194 162 354 162;
#P fasten 8 0 14 0 240 300 355 300;
#P connect 17 0 8 3;
#P connect 18 0 17 0;
#P fasten 13 0 4 0 296 77 385 77;
#P fasten 2 0 5 0 135 138 385 138;
#P fasten 4 0 5 1 385 129 402 129;
#P pop 1;
#P newobj 343 254 93 9109513 patcher DistStoR;
#N vpatcher 320 625 920 1025;
#P outlet 164 306 15 0;
#P outlet 134 306 15 0;
#P outlet 311 306 15 0;
#P outlet 276 306 15 0;
#P outlet 242 306 15 0;
#P outlet 208 306 15 0;
#P inlet 315 46 15 0;
#P inlet 223 46 15 0;
#P inlet 193 46 15 0;
#P inlet 164 46 15 0;
#P inlet 134 46 15 0;
#P window setfont "Sans Serif" 9.;
#P newex 343 253 60 9109513 expr 360-$f1;
#P newex 313 230 54 9109513 expr $f1-90;
#P newex 284 253 54 9109513 expr $f1+90;
#P newex 251 230 60 9109513 expr $f1-270;
#P newex 221 253 60 9109513 expr 180-$f1;
#P newex 192 230 54 9109513 expr $f1-90;
#P newex 160 253 60 9109513 expr $f1*(-1);
#P newex 133 230 54 9109513 expr $f1+90;
#P newex 222 205 27 9109513 gate;
#P newex 375 205 27 9109513 gate;
#P newex 345 205 27 9109513 gate;
#P newex 313 205 27 9109513 gate;
#P newex 281 205 27 9109513 gate;
#P newex 251 205 27 9109513 gate;
#P newex 193 205 27 9109513 gate;
#P newex 162 205 27 9109513 gate;
#P newex 211 169 170 9109513 select 1 2 3 4 5 6 7 8;
#N vpatcher 800 625 1490 1122;
#P outlet 409 451 15 0;
#P window setfont "Sans Serif" 9.;
#P message 536 269 14 9109513 8;
#P message 396 265 14 9109513 7;
#P message 208 264 14 9109513 6;
#P message 85 259 14 9109513 5;
#P outlet 350 451 15 0;
#P outlet 300 454 15 0;
#P outlet 246 454 15 0;
#P inlet 341 32 15 0;
#P inlet 308 32 15 0;
#P inlet 272 33 15 0;
#P inlet 239 33 16 0;
#P inlet 210 33 15 0;
#P button 533 241 15 0;
#P button 177 231 15 0;
#P button 61 234 15 0;
#P button 373 244 15 0;
#P flonum 347 271 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 496 272 14 9109513 0;
#P message 182 267 14 9109513 0;
#P message 83 333 14 9109513 0;
#P newex 356 101 94 9109513 if $f1>4.712 then $f1;
#P newex 49 109 94 9109513 if $f1>3.141 then $f1;
#P newex 468 365 61 9109513 expr $f2+$f1;
#P newex 331 365 61 9109513 expr $f1+$f2;
#P newex 160 362 59 9109513 expr $f2-$f1;
#P newex 41 360 59 9109513 expr $f2-$f1;
#P newex 461 293 128 9109513 expr $f1*abs(cos(6.283-$f2));
#P newex 318 297 124 9109513 expr $f1*abs(sin(6.283-$f2));
#P newex 157 291 128 9109513 expr $f1*abs(cos($f2-3.141));
#P newex 23 289 124 9109513 expr $f1*abs(sin($f2-3.141));
#P newex 371 195 144 9109513 if $f1<$f2 then $f1 else out2 $f2;
#P newex 62 204 144 9109513 if $f1<$f2 then $f1 else out2 $f2;
#P newex 519 159 138 9109513 expr abs((0-$f2)/sin(6.283-$f1));
#P newex 190 157 138 9109513 expr abs((0-$f2)/sin($f1-3.141));
#P newex 350 159 150 9109513 expr abs(($f2-$f3)/cos(6.283-$f1));
#P newex 43 157 141 9109513 expr abs((0-$f2)/cos($f1-3.141));
#P newex 354 71 94 9109513 if $f1<6.283 then $f1;
#P newex 49 86 94 9109513 if $f1<4.712 then $f1;
#P connect 6 0 8 0;
#P connect 8 0 12 0;
#P connect 16 0 2 0;
#P connect 26 0 0 0;
#P connect 0 0 16 0;
#P connect 6 0 23 0;
#P connect 2 0 6 0;
#P connect 23 0 18 0;
#P connect 23 0 34 0;
#P connect 30 0 12 1;
#P connect 26 0 8 1;
#P connect 6 1 9 0;
#P connect 9 0 13 0;
#P connect 29 0 2 1;
#P connect 6 1 24 0;
#P connect 24 0 19 0;
#P connect 16 0 4 0;
#P connect 4 0 6 1;
#P connect 24 0 35 0;
#P connect 29 0 13 1;
#P connect 15 0 31 0;
#P connect 13 0 31 0;
#P connect 18 0 31 0;
#P connect 21 0 31 0;
#P connect 26 0 9 1;
#P connect 14 0 32 0;
#P connect 19 0 32 0;
#P connect 12 0 32 0;
#P connect 20 0 32 0;
#P connect 30 0 4 1;
#P connect 7 0 10 0;
#P connect 10 0 14 0;
#P connect 27 0 21 0;
#P connect 22 0 21 0;
#P connect 17 0 3 0;
#P connect 7 1 33 0;
#P connect 7 0 33 0;
#P connect 6 1 33 0;
#P connect 6 0 33 0;
#P connect 26 0 1 0;
#P connect 1 0 17 0;
#P connect 3 0 7 0;
#P connect 7 0 22 0;
#P connect 30 0 14 1;
#P connect 22 0 36 0;
#P connect 34 0 38 0;
#P connect 35 0 38 0;
#P connect 36 0 38 0;
#P connect 37 0 38 0;
#P connect 27 0 3 1;
#P connect 26 0 10 1;
#P connect 7 1 11 0;
#P connect 11 0 15 0;
#P connect 29 0 3 2;
#P connect 25 0 20 0;
#P connect 5 0 7 1;
#P connect 17 0 5 0;
#P connect 29 0 15 1;
#P connect 7 1 25 0;
#P connect 25 0 37 0;
#P connect 26 0 11 1;
#P connect 30 0 5 1;
#P pop 1;
#P newobj 286 131 74 9109513 patcher 2ndPoss;
#P newex 235 96 84 9109513 expr $f1/180*3.141;
#N vpatcher 480 625 1070 1025;
#P origin -42 8;
#P window setfont "Sans Serif" 9.;
#P message 464 218 14 9109513 4;
#P message 322 221 14 9109513 3;
#P message 213 221 14 9109513 2;
#P message 68 224 14 9109513 1;
#P outlet 398 340 15 0;
#P button 296 195 15 0;
#P button 409 195 15 0;
#P flonum 404 220 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 165 220 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P button 171 195 15 0;
#P flonum 21 223 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P button 37 195 15 0;
#P message 288 215 14 9109513 0;
#P newex 248 82 94 9109513 if $f1>1.571 then $f1;
#P newex 64 80 78 9109513 if $f1>0 then $f1;
#P outlet 316 336 15 0;
#P outlet 241 340 17 0;
#P outlet 137 336 15 0;
#P inlet 528 21 15 0;
#P inlet 494 21 15 0;
#P inlet 446 21 15 0;
#P inlet 398 21 15 0;
#N comlet;
#P inlet 337 21 21 0;
#P newex 388 284 59 9109513 expr $f2-$f1;
#P newex 267 285 61 9109513 expr $f2+$f1;
#P newex 155 284 61 9109513 expr $f1+$f2;
#P newex 35 280 61 9109513 expr $f1+$f2;
#P newex 376 245 128 9109513 expr $f1*abs(cos(3.141-$f2));
#P newex 254 253 124 9109513 expr $f1*abs(sin(3.141-$f2));
#P newex 140 246 102 9109513 expr $f1*abs(cos($f2));
#P newex 13 247 99 9109513 expr $f1*abs(sin($f2));
#P newex 284 162 144 9109513 if $f1<$f2 then $f1 else out2 $f2;
#P newex 403 132 144 9109513 expr abs(($f2-$f3)/sin(3.141-$f1));
#P newex 254 132 141 9109513 expr abs((0-$f2)/cos(3.141-$f1));
#P newex 37 162 144 9109513 if $f1<$f2 then $f1 else out2 $f2;
#P newex 129 132 121 9109513 expr abs(($f2-$f3)/sin($f1));
#P newex 0 132 124 9109513 expr abs(($f2-$f3)/cos($f1));
#P newex 248 59 94 9109513 if $f1<3.141 then $f1;
#P newex 64 55 94 9109513 if $f1<1.571 then $f1;
#P comment 173 22 100 9109513 Distance to Closest Wall;
#P connect 25 0 3 0;
#P connect 5 0 9 0;
#P connect 28 0 29 0;
#P fasten 18 0 29 0 403 113 26 113;
#P connect 9 0 13 0;
#P connect 3 0 5 0;
#P connect 5 0 28 0;
#P fasten 18 0 3 1 403 107 62 107;
#P connect 17 0 1 0;
#P connect 1 0 25 0;
#P connect 28 0 36 0;
#P connect 21 0 13 1;
#P connect 17 0 9 1;
#P fasten 20 0 3 2 499 108 119 108;
#P connect 25 0 4 0;
#P connect 27 0 22 0;
#P connect 29 0 22 0;
#P connect 14 0 22 0;
#P connect 16 0 22 0;
#P connect 5 1 10 0;
#P connect 10 0 14 0;
#P fasten 19 0 31 0 451 115 170 115;
#P connect 30 0 31 0;
#P connect 4 0 5 1;
#P connect 5 1 30 0;
#P fasten 19 0 4 1 451 109 189 109;
#P connect 20 0 14 1;
#P connect 30 0 37 0;
#P connect 17 0 10 1;
#P fasten 21 0 4 2 533 105 244 105;
#P connect 32 0 23 0;
#P connect 31 0 23 0;
#P connect 13 0 23 0;
#P connect 15 0 23 0;
#P connect 17 0 2 0;
#P connect 2 0 26 0;
#P connect 26 0 6 0;
#P connect 8 0 11 0;
#P connect 11 0 15 0;
#P connect 6 0 8 0;
#P connect 34 0 27 0;
#P connect 8 0 34 0;
#P connect 8 1 24 0;
#P connect 5 1 24 0;
#P connect 8 0 24 0;
#P connect 5 0 24 0;
#P connect 21 0 15 1;
#P connect 34 0 38 0;
#P connect 17 0 11 1;
#P connect 8 1 12 0;
#P fasten 20 0 6 1 499 85 390 85;
#P connect 12 0 16 0;
#P connect 38 0 35 0;
#P connect 36 0 35 0;
#P connect 37 0 35 0;
#P connect 39 0 35 0;
#P connect 26 0 7 0;
#P connect 33 0 32 0;
#P fasten 19 0 32 0 451 240 409 240;
#P connect 8 1 33 0;
#P connect 7 0 8 1;
#P connect 20 0 16 1;
#P connect 33 0 39 0;
#P fasten 19 0 7 1 451 85 475 85;
#P fasten 17 0 12 1 342 154 499 154;
#P connect 21 0 7 2;
#P pop 1;
#P newobj 195 131 74 9109513 patcher 1stPoss;
#P connect 4 0 12 0;
#P connect 20 0 29 0;
#P connect 5 0 13 0;
#P connect 3 0 4 0;
#P connect 21 0 30 0;
#P fasten 24 0 4 1 320 79 184 79;
#P connect 11 0 14 0;
#P connect 3 1 5 0;
#P connect 1 0 0 0;
#P connect 2 0 25 0;
#P fasten 0 0 25 0 200 226 213 226;
#P fasten 24 0 5 1 320 79 215 79;
#P fasten 20 0 0 1 139 96 216 96;
#P fasten 0 3 3 0 263 159 216 159;
#P fasten 2 3 3 0 354 159 216 159;
#P connect 6 0 15 0;
#P connect 3 2 11 0;
#P fasten 21 0 0 2 169 96 232 96;
#P fasten 24 0 1 0 320 78 240 78;
#P fasten 24 0 11 1 320 79 244 79;
#P connect 2 1 26 0;
#P fasten 0 1 26 0 221 226 247 226;
#P fasten 22 0 0 3 198 78 248 78;
#P connect 3 3 6 0;
#P connect 7 0 16 0;
#P fasten 23 0 0 4 228 78 264 78;
#P fasten 24 0 6 1 320 79 273 79;
#P connect 2 2 27 0;
#P fasten 0 2 27 0 242 226 281 226;
#P connect 3 4 7 0;
#P connect 8 0 17 0;
#P connect 1 0 2 0;
#P fasten 20 0 2 0 139 78 291 78;
#P fasten 24 0 7 1 320 79 303 79;
#P connect 19 0 28 0;
#P connect 18 0 28 0;
#P connect 17 0 28 0;
#P connect 16 0 28 0;
#P connect 15 0 28 0;
#P connect 14 0 28 0;
#P connect 13 0 28 0;
#P connect 12 0 28 0;
#P connect 3 5 8 0;
#P connect 9 0 18 0;
#P fasten 21 0 2 2 169 78 323 78;
#P fasten 24 0 8 1 320 97 335 97;
#P fasten 22 0 2 3 198 78 339 78;
#P connect 10 0 19 0;
#P connect 3 6 9 0;
#P fasten 23 0 2 4 228 78 355 78;
#P fasten 24 0 9 1 320 97 367 97;
#P connect 3 7 10 0;
#P fasten 24 0 10 1 320 97 397 97;
#P pop 1;
#P newobj 451 254 104 9109513 patcher VectorAnalysis;
#N vpatcher 0 599 600 999;
#P inlet 368 181 15 0;
#P window setfont "Sans Serif" 9.;
#P flonum 368 216 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P outlet 314 314 15 0;
#P outlet 282 314 15 0;
#P outlet 350 313 15 0;
#P inlet 291 40 15 0;
#P inlet 226 40 15 0;
#P inlet 189 40 15 0;
#P inlet 148 40 15 0;
#P inlet 109 40 15 0;
#P newex 235 269 143 9109513 expr abs(($f2-$f3)/cos($f1))+$f4;
#P newex 235 239 27 9109513 gate;
#P newex 235 189 27 9109513 ==;
#P newex 380 140 27 9109513 >=;
#P newex 380 99 54 9109513 expr $f1+30;
#P newex 291 99 54 9109513 expr $f1-30;
#P newex 130 118 94 9109513 expr $f1*180/3.14159;
#P newex 109 80 129 9109513 expr atan(($f2-$f4)/($f1-$f3));
#P newex 291 142 27 9109513 <=;
#P connect 9 0 1 0;
#P fasten 1 0 2 0 114 108 135 108;
#P fasten 11 0 1 1 194 67 153 67;
#P fasten 10 0 1 2 153 67 192 67;
#P connect 12 0 1 3;
#P fasten 0 0 6 0 296 175 240 175;
#P connect 6 0 7 0;
#P connect 7 0 8 0;
#P fasten 5 0 6 1 385 174 257 174;
#P fasten 1 0 7 1 114 151 257 151;
#P fasten 9 0 8 1 114 162 297 162;
#P fasten 11 0 15 0 194 184 287 184;
#P connect 13 0 3 0;
#P fasten 2 0 0 0 135 139 296 139;
#P fasten 3 0 0 1 296 130 313 130;
#P fasten 12 0 16 0 231 184 319 184;
#P fasten 11 0 8 2 194 162 354 162;
#P fasten 8 0 14 0 240 300 355 300;
#P connect 17 0 8 3;
#P connect 18 0 17 0;
#P fasten 13 0 4 0 296 77 385 77;
#P fasten 2 0 5 0 135 138 385 138;
#P fasten 4 0 5 1 385 129 402 129;
#P pop 1;
#P newobj 235 254 93 9109513 patcher DistStoR;
#P newex 574 381 27 9109513 line~;
#P newex 156 391 27 9109513 line~;
#P newex 647 402 38 9109513 tapout~;
#P newex 647 372 32 9109513 tapin~;
#P newex 574 329 68 9109513 expr $f1/0.340;
#P newex 156 336 68 9109513 expr $f1/0.340;
#N vpatcher 640 625 1240 1025;
#P outlet 314 314 15 0;
#P outlet 282 314 15 0;
#P outlet 350 313 15 0;
#P inlet 291 40 15 0;
#P inlet 226 40 15 0;
#P inlet 189 40 15 0;
#P inlet 148 40 15 0;
#P inlet 109 40 15 0;
#P window setfont "Sans Serif" 9.;
#P newex 235 269 124 9109513 expr abs(($f2-$f3)/cos($f1));
#P newex 235 239 27 9109513 gate;
#P newex 235 189 27 9109513 ==;
#P newex 380 140 27 9109513 >=;
#P newex 380 99 54 9109513 expr $f1+30;
#P newex 291 99 54 9109513 expr $f1-30;
#P newex 130 118 94 9109513 expr $f1*180/3.14159;
#P newex 109 80 129 9109513 expr atan(($f2-$f4)/($f1-$f3));
#P newex 291 142 27 9109513 <=;
#P connect 9 0 1 0;
#P fasten 1 0 2 0 114 108 135 108;
#P fasten 11 0 1 1 194 67 153 67;
#P fasten 10 0 1 2 153 67 192 67;
#P connect 12 0 1 3;
#P fasten 0 0 6 0 296 175 240 175;
#P connect 6 0 7 0;
#P connect 7 0 8 0;
#P fasten 5 0 6 1 385 174 257 174;
#P fasten 1 0 7 1 114 151 257 151;
#P fasten 11 0 15 0 194 184 287 184;
#P connect 13 0 3 0;
#P fasten 2 0 0 0 135 139 296 139;
#P fasten 9 0 8 1 114 162 297 162;
#P fasten 3 0 0 1 296 130 313 130;
#P fasten 12 0 16 0 231 184 319 184;
#P fasten 11 0 8 2 194 162 354 162;
#P fasten 8 0 14 0 240 300 355 300;
#P fasten 13 0 4 0 296 77 385 77;
#P fasten 2 0 5 0 135 138 385 138;
#P fasten 4 0 5 1 385 129 402 129;
#P pop 1;
#P newobj 358 218 79 9109513 patcher DistStoR;
#P hidden newex 285 154 58 9109513 expr $f1-0.1;
#P hidden newex 378 154 60 9109513 expr $f1+0.1;
#P comment 477 32 95 9109513 Sound Receiver's Position in Room;
#P message 112 51 29 9109513 open;
#P newex 112 410 38 9109513 tapout~;
#P newex 112 381 32 9109513 tapin~;
#N sfplay~  1 120960 0 ;
#P newobj 112 91 39 9109513 sfplay~;
#N vpatcher 640 625 1240 1025;
#P outlet 314 314 15 0;
#P outlet 282 314 15 0;
#P outlet 350 313 15 0;
#P inlet 291 40 15 0;
#P inlet 226 40 15 0;
#P inlet 189 40 15 0;
#P inlet 148 40 15 0;
#P inlet 109 40 15 0;
#P window setfont "Sans Serif" 9.;
#P newex 235 269 124 9109513 expr abs(($f2-$f3)/cos($f1));
#P newex 235 239 27 9109513 gate;
#P newex 235 189 27 9109513 ==;
#P newex 380 140 27 9109513 >=;
#P newex 380 99 54 9109513 expr $f1+30;
#P newex 291 99 54 9109513 expr $f1-30;
#P newex 130 118 94 9109513 expr $f1*180/3.14159;
#P newex 109 80 129 9109513 expr atan(($f2-$f4)/($f1-$f3));
#P newex 291 142 27 9109513 <=;
#P connect 9 0 1 0;
#P fasten 1 0 2 0 114 108 135 108;
#P fasten 11 0 1 1 194 67 153 67;
#P fasten 10 0 1 2 153 67 192 67;
#P connect 12 0 1 3;
#P fasten 0 0 6 0 296 175 240 175;
#P connect 6 0 7 0;
#P connect 7 0 8 0;
#P fasten 5 0 6 1 385 174 257 174;
#P fasten 1 0 7 1 114 151 257 151;
#P fasten 11 0 15 0 194 184 287 184;
#P connect 13 0 3 0;
#P fasten 2 0 0 0 135 139 296 139;
#P fasten 9 0 8 1 114 162 297 162;
#P fasten 3 0 0 1 296 130 313 130;
#P fasten 12 0 16 0 231 184 319 184;
#P fasten 11 0 8 2 194 162 354 162;
#P fasten 8 0 14 0 240 300 355 300;
#P fasten 13 0 4 0 296 77 385 77;
#P fasten 2 0 5 0 135 138 385 138;
#P fasten 4 0 5 1 385 129 402 129;
#P pop 1;
#P newobj 258 218 79 9109513 patcher DistStoR;
#P hidden newex 562 126 84 9109513 if $f1<0 then set 0;
#P hidden newex 440 126 84 9109513 if $f1<0 then set 0;
#P hidden newex 327 126 84 9109513 if $f1<0 then set 0;
#P hidden newex 218 126 84 9109513 if $f1<0 then set 0;
#P hidden newex 562 101 103 9109513 if $f1>$f2 then set $f2;
#P hidden newex 439 101 103 9109513 if $f1>$f2 then set $f2;
#P hidden newex 327 101 103 9109513 if $f1>$f2 then set $f2;
#P hidden newex 218 101 103 9109513 if $f1>$f2 then set $f2;
#P flonum 269 71 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 221 71 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 609 71 35 9 0. 360. 3 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 531 71 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 487 71 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 406 71 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 360 71 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#N vpatcher 0 625 600 1025;
#P outlet 164 306 15 0;
#P outlet 134 306 15 0;
#P outlet 311 306 15 0;
#P outlet 276 306 15 0;
#P outlet 242 306 15 0;
#P outlet 208 306 15 0;
#P inlet 315 46 15 0;
#P inlet 223 46 15 0;
#P inlet 193 46 15 0;
#P inlet 164 46 15 0;
#P inlet 134 46 15 0;
#P window setfont "Sans Serif" 9.;
#P newex 343 253 60 9109513 expr 360-$f1;
#P newex 313 230 54 9109513 expr $f1-90;
#P newex 284 253 54 9109513 expr $f1+90;
#P newex 251 230 60 9109513 expr $f1-270;
#P newex 221 253 60 9109513 expr 180-$f1;
#P newex 192 230 54 9109513 expr $f1-90;
#P newex 160 253 60 9109513 expr $f1*(-1);
#P newex 133 230 54 9109513 expr $f1+90;
#P newex 222 205 27 9109513 gate;
#P newex 375 205 27 9109513 gate;
#P newex 345 205 27 9109513 gate;
#P newex 313 205 27 9109513 gate;
#P newex 281 205 27 9109513 gate;
#P newex 251 205 27 9109513 gate;
#P newex 193 205 27 9109513 gate;
#P newex 162 205 27 9109513 gate;
#P newex 211 169 170 9109513 select 1 2 3 4 5 6 7 8;
#N vpatcher 480 625 1170 1122;
#P outlet 409 451 15 0;
#P window setfont "Sans Serif" 9.;
#P message 536 269 14 9109513 8;
#P message 396 265 14 9109513 7;
#P message 208 264 14 9109513 6;
#P message 85 259 14 9109513 5;
#P outlet 350 451 15 0;
#P outlet 300 454 15 0;
#P outlet 246 454 15 0;
#P inlet 341 32 15 0;
#P inlet 308 32 15 0;
#P inlet 272 33 15 0;
#P inlet 239 33 16 0;
#P inlet 210 33 15 0;
#P button 533 241 15 0;
#P button 177 231 15 0;
#P button 61 234 15 0;
#P button 373 244 15 0;
#P flonum 347 271 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 496 272 14 9109513 0;
#P message 182 267 14 9109513 0;
#P message 83 333 14 9109513 0;
#P newex 356 101 94 9109513 if $f1>4.712 then $f1;
#P newex 49 109 94 9109513 if $f1>3.141 then $f1;
#P newex 468 365 61 9109513 expr $f2+$f1;
#P newex 331 365 61 9109513 expr $f1+$f2;
#P newex 160 362 59 9109513 expr $f2-$f1;
#P newex 41 360 59 9109513 expr $f2-$f1;
#P newex 461 293 128 9109513 expr $f1*abs(cos(6.283-$f2));
#P newex 318 297 124 9109513 expr $f1*abs(sin(6.283-$f2));
#P newex 157 291 128 9109513 expr $f1*abs(cos($f2-3.141));
#P newex 23 289 124 9109513 expr $f1*abs(sin($f2-3.141));
#P newex 371 195 144 9109513 if $f1<$f2 then $f1 else out2 $f2;
#P newex 62 204 144 9109513 if $f1<$f2 then $f1 else out2 $f2;
#P newex 519 159 138 9109513 expr abs((0-$f2)/sin(6.283-$f1));
#P newex 190 157 138 9109513 expr abs((0-$f2)/sin($f1-3.141));
#P newex 350 159 150 9109513 expr abs(($f2-$f3)/cos(6.283-$f1));
#P newex 43 157 141 9109513 expr abs((0-$f2)/cos($f1-3.141));
#P newex 354 71 94 9109513 if $f1<6.283 then $f1;
#P newex 49 86 94 9109513 if $f1<4.712 then $f1;
#P connect 6 0 8 0;
#P connect 8 0 12 0;
#P connect 16 0 2 0;
#P connect 26 0 0 0;
#P connect 0 0 16 0;
#P connect 6 0 23 0;
#P connect 2 0 6 0;
#P connect 23 0 18 0;
#P connect 23 0 34 0;
#P connect 30 0 12 1;
#P connect 26 0 8 1;
#P connect 6 1 9 0;
#P connect 9 0 13 0;
#P connect 29 0 2 1;
#P connect 6 1 24 0;
#P connect 24 0 19 0;
#P connect 16 0 4 0;
#P connect 4 0 6 1;
#P connect 24 0 35 0;
#P connect 29 0 13 1;
#P connect 21 0 31 0;
#P connect 18 0 31 0;
#P connect 13 0 31 0;
#P connect 15 0 31 0;
#P connect 26 0 9 1;
#P connect 20 0 32 0;
#P connect 12 0 32 0;
#P connect 19 0 32 0;
#P connect 14 0 32 0;
#P connect 30 0 4 1;
#P connect 7 0 10 0;
#P connect 10 0 14 0;
#P connect 27 0 21 0;
#P connect 22 0 21 0;
#P connect 17 0 3 0;
#P connect 7 1 33 0;
#P connect 7 0 33 0;
#P connect 6 0 33 0;
#P connect 6 1 33 0;
#P connect 26 0 1 0;
#P connect 1 0 17 0;
#P connect 3 0 7 0;
#P connect 7 0 22 0;
#P connect 30 0 14 1;
#P connect 22 0 36 0;
#P connect 37 0 38 0;
#P connect 36 0 38 0;
#P connect 35 0 38 0;
#P connect 34 0 38 0;
#P connect 27 0 3 1;
#P connect 26 0 10 1;
#P connect 7 1 11 0;
#P connect 11 0 15 0;
#P connect 29 0 3 2;
#P connect 25 0 20 0;
#P connect 5 0 7 1;
#P connect 17 0 5 0;
#P connect 29 0 15 1;
#P connect 7 1 25 0;
#P connect 25 0 37 0;
#P connect 26 0 11 1;
#P connect 30 0 5 1;
#P pop 1;
#P newobj 286 131 74 9109513 patcher 2ndPoss;
#P newex 235 96 84 9109513 expr $f1/180*3.141;
#N vpatcher 160 625 750 1025;
#P origin -42 8;
#P window setfont "Sans Serif" 9.;
#P message 464 218 14 9109513 4;
#P message 322 221 14 9109513 3;
#P message 213 221 14 9109513 2;
#P message 68 224 14 9109513 1;
#P outlet 398 340 15 0;
#P button 296 195 15 0;
#P button 409 195 15 0;
#P flonum 404 220 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 165 220 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P button 171 195 15 0;
#P flonum 21 223 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P button 37 195 15 0;
#P message 288 215 14 9109513 0;
#P newex 248 82 94 9109513 if $f1>1.571 then $f1;
#P newex 64 80 78 9109513 if $f1>0 then $f1;
#P outlet 316 336 15 0;
#P outlet 241 340 17 0;
#P outlet 137 336 15 0;
#P inlet 528 21 15 0;
#P inlet 494 21 15 0;
#P inlet 446 21 15 0;
#P inlet 398 21 15 0;
#N comlet;
#P inlet 337 21 21 0;
#P newex 388 284 59 9109513 expr $f2-$f1;
#P newex 267 285 61 9109513 expr $f2+$f1;
#P newex 155 284 61 9109513 expr $f1+$f2;
#P newex 35 280 61 9109513 expr $f1+$f2;
#P newex 376 245 128 9109513 expr $f1*abs(cos(3.141-$f2));
#P newex 254 253 124 9109513 expr $f1*abs(sin(3.141-$f2));
#P newex 140 246 102 9109513 expr $f1*abs(cos($f2));
#P newex 13 247 99 9109513 expr $f1*abs(sin($f2));
#P newex 284 162 144 9109513 if $f1<$f2 then $f1 else out2 $f2;
#P newex 403 132 144 9109513 expr abs(($f2-$f3)/sin(3.141-$f1));
#P newex 254 132 141 9109513 expr abs((0-$f2)/cos(3.141-$f1));
#P newex 37 162 144 9109513 if $f1<$f2 then $f1 else out2 $f2;
#P newex 129 132 121 9109513 expr abs(($f2-$f3)/sin($f1));
#P newex 0 132 124 9109513 expr abs(($f2-$f3)/cos($f1));
#P newex 248 59 94 9109513 if $f1<3.141 then $f1;
#P newex 64 55 94 9109513 if $f1<1.571 then $f1;
#P comment 173 22 100 9109513 Distance to Closest Wall;
#P connect 25 0 3 0;
#P connect 5 0 9 0;
#P connect 28 0 29 0;
#P fasten 18 0 29 0 403 113 26 113;
#P connect 9 0 13 0;
#P connect 3 0 5 0;
#P connect 5 0 28 0;
#P fasten 18 0 3 1 403 107 62 107;
#P connect 17 0 1 0;
#P connect 1 0 25 0;
#P connect 28 0 36 0;
#P connect 21 0 13 1;
#P connect 17 0 9 1;
#P fasten 20 0 3 2 499 108 119 108;
#P connect 25 0 4 0;
#P connect 16 0 22 0;
#P connect 14 0 22 0;
#P connect 29 0 22 0;
#P connect 27 0 22 0;
#P connect 5 1 10 0;
#P connect 10 0 14 0;
#P fasten 19 0 31 0 451 115 170 115;
#P connect 30 0 31 0;
#P connect 4 0 5 1;
#P connect 5 1 30 0;
#P fasten 19 0 4 1 451 109 189 109;
#P connect 20 0 14 1;
#P connect 30 0 37 0;
#P connect 17 0 10 1;
#P fasten 21 0 4 2 533 105 244 105;
#P connect 15 0 23 0;
#P connect 13 0 23 0;
#P connect 31 0 23 0;
#P connect 32 0 23 0;
#P connect 17 0 2 0;
#P connect 2 0 26 0;
#P connect 26 0 6 0;
#P connect 8 0 11 0;
#P connect 11 0 15 0;
#P connect 6 0 8 0;
#P connect 34 0 27 0;
#P connect 8 0 34 0;
#P connect 8 1 24 0;
#P connect 5 0 24 0;
#P connect 8 0 24 0;
#P connect 5 1 24 0;
#P connect 21 0 15 1;
#P connect 34 0 38 0;
#P connect 17 0 11 1;
#P connect 8 1 12 0;
#P fasten 20 0 6 1 499 85 390 85;
#P connect 12 0 16 0;
#P connect 39 0 35 0;
#P connect 37 0 35 0;
#P connect 36 0 35 0;
#P connect 38 0 35 0;
#P connect 26 0 7 0;
#P connect 33 0 32 0;
#P fasten 19 0 32 0 451 240 409 240;
#P connect 8 1 33 0;
#P connect 7 0 8 1;
#P connect 20 0 16 1;
#P connect 33 0 39 0;
#P fasten 19 0 7 1 451 85 475 85;
#P fasten 17 0 12 1 342 154 499 154;
#P connect 21 0 7 2;
#P pop 1;
#P newobj 195 131 74 9109513 patcher 1stPoss;
#P connect 4 0 12 0;
#P connect 20 0 29 0;
#P connect 5 0 13 0;
#P connect 3 0 4 0;
#P connect 21 0 30 0;
#P fasten 24 0 4 1 320 79 184 79;
#P connect 11 0 14 0;
#P connect 3 1 5 0;
#P connect 1 0 0 0;
#P fasten 0 0 25 0 200 226 213 226;
#P connect 2 0 25 0;
#P fasten 24 0 5 1 320 79 215 79;
#P fasten 20 0 0 1 139 96 216 96;
#P fasten 2 3 3 0 354 159 216 159;
#P fasten 0 3 3 0 263 159 216 159;
#P connect 6 0 15 0;
#P connect 3 2 11 0;
#P fasten 21 0 0 2 169 96 232 96;
#P fasten 24 0 1 0 320 78 240 78;
#P fasten 24 0 11 1 320 79 244 79;
#P fasten 0 1 26 0 221 226 247 226;
#P connect 2 1 26 0;
#P fasten 22 0 0 3 198 78 248 78;
#P connect 3 3 6 0;
#P connect 7 0 16 0;
#P fasten 23 0 0 4 228 78 264 78;
#P fasten 24 0 6 1 320 79 273 79;
#P fasten 0 2 27 0 242 226 281 226;
#P connect 2 2 27 0;
#P connect 3 4 7 0;
#P connect 8 0 17 0;
#P fasten 20 0 2 0 139 78 291 78;
#P connect 1 0 2 0;
#P fasten 24 0 7 1 320 79 303 79;
#P connect 12 0 28 0;
#P connect 13 0 28 0;
#P connect 14 0 28 0;
#P connect 15 0 28 0;
#P connect 16 0 28 0;
#P connect 17 0 28 0;
#P connect 18 0 28 0;
#P connect 19 0 28 0;
#P connect 3 5 8 0;
#P connect 9 0 18 0;
#P fasten 21 0 2 2 169 78 323 78;
#P fasten 24 0 8 1 320 97 335 97;
#P fasten 22 0 2 3 198 78 339 78;
#P connect 10 0 19 0;
#P connect 3 6 9 0;
#P fasten 23 0 2 4 228 78 355 78;
#P fasten 24 0 9 1 320 97 367 97;
#P connect 3 7 10 0;
#P fasten 24 0 10 1 320 97 397 97;
#P pop 1;
#P newobj 451 218 104 9109513 patcher VectorAnalysis;
#P comment 195 40 142 9109513 Rectangular Room Dimensions;
#P comment 357 32 95 9109513 Sound Source's Position in Room;
#P comment 594 21 100 9109513 Angle Sound Source Directed Towards (0-360 Degrees);
#P comment 143 246 87 9109513 Distance Source to Left Ear;
#P comment 554 194 100 9109513 Analysis of Soundwave hitting a wall;
#P hidden comment 680 104 100 9109513 Limiting position of source and receiver within the dimensions of the room;
#P comment 9 136 100 9109513 Click when done choosing Room Dimension \, Positions \, Angle \, and Sound sample;
#P comment 759 322 104 9109513 Calculation of time to sound reaches receiver;
#P comment 26 432 100 9109513 Delay Process;
#P comment 337 392 100 9109513 Frequency Filtering when sound hits wall;
#P comment 798 71 100 9109513 Notes: Vector Analysis calculates the position a wave hits a wall depending on which wall it hits \, which angle it hits \, and distance to the wall.;
#P comment 795 174 100 9109513 Notes: Vector Analysis takes inputs: Room Dimension \, Source Position \, Angle of Source. Outputs: Room Dimension \, Source Position on wall \, Angle off wall \, and Distance to that position on wall.;
#P comment 804 381 100 9109513 Notes: DistStoR takes inputs: Position of Source and Receiver \, and Angle of Source. Outputs: Position of Receiverr \, and Distance from Source to R.;
#P comment 804 504 100 9109513 Notes: Second Stage DisStoR takes an extra input: Distance already traveled by reflected wave.;
#P comment 903 126 100 9109513 Notes: Vector Analysis has two patchers within \, which test out which wall the sound wave would hit and the distance to that wall.;
#P fasten 32 0 62 0 117 245 6 245;
#P connect 62 0 63 0;
#P connect 65 0 63 0;
#P fasten 31 2 64 0 331 335 50 335;
#P connect 64 0 66 0;
#P connect 66 0 65 0;
#P hidden connect 76 0 32 0;
#P connect 35 0 32 0;
#P connect 32 0 33 0;
#P connect 44 0 34 0;
#P connect 33 0 34 0;
#P fasten 34 0 54 0 117 481 157 481;
#P fasten 59 2 40 0 322 331 161 331;
#P fasten 46 2 40 0 322 282 161 282;
#P fasten 49 2 40 0 322 335 161 335;
#P connect 40 0 52 0;
#P connect 52 0 44 0;
#P connect 55 0 54 1;
#P hidden connect 76 0 77 0;
#P hidden connect 16 0 23 0;
#P hidden connect 18 0 23 0;
#P hidden connect 16 0 27 0;
#P hidden connect 77 0 21 0;
#P connect 15 2 46 0;
#P connect 47 2 49 0;
#P connect 50 2 59 0;
#P connect 59 2 72 0;
#P connect 49 2 72 0;
#P connect 46 2 72 0;
#P connect 31 2 72 0;
#P connect 15 3 46 1;
#P connect 47 3 49 1;
#P connect 50 3 59 1;
#P fasten 16 0 31 0 365 122 263 122;
#P connect 54 0 74 0;
#P connect 31 0 46 2;
#P connect 46 0 49 2;
#P connect 49 0 59 2;
#P hidden connect 77 0 22 0;
#P fasten 17 0 31 1 411 122 280 122;
#P connect 31 1 46 3;
#P connect 46 1 49 3;
#P connect 49 1 59 3;
#P connect 72 0 74 1;
#P hidden fasten 18 0 38 0 492 94 290 94;
#P hidden fasten 38 0 31 2 290 179 297 179;
#P connect 15 5 46 4;
#P connect 47 5 49 4;
#P connect 50 5 59 4;
#P fasten 19 0 31 3 536 122 314 122;
#P hidden connect 21 0 23 1;
#P connect 15 4 46 5;
#P connect 47 4 49 5;
#P connect 50 4 59 5;
#P fasten 20 0 31 4 614 122 331 122;
#P hidden connect 18 0 24 0;
#P hidden connect 17 0 28 0;
#P connect 15 2 48 0;
#P connect 47 2 51 0;
#P connect 50 2 61 0;
#P fasten 21 0 39 0 226 94 363 94;
#P connect 15 3 48 1;
#P connect 47 3 51 1;
#P connect 50 3 61 1;
#P hidden connect 77 0 16 0;
#P hidden connect 23 0 16 0;
#P hidden connect 27 0 16 0;
#P connect 74 0 56 0;
#P fasten 63 0 56 0 6 581 365 581;
#P connect 76 0 56 0;
#P fasten 22 0 39 1 274 94 380 94;
#P connect 39 0 48 2;
#P connect 48 0 51 2;
#P connect 51 0 61 2;
#P hidden fasten 18 0 37 0 492 94 383 94;
#P connect 57 0 75 0;
#P connect 39 1 48 3;
#P connect 48 1 51 3;
#P connect 51 1 61 3;
#P hidden fasten 37 0 39 2 383 179 397 179;
#P connect 75 0 56 1;
#P fasten 69 0 56 1 754 580 399 580;
#P connect 73 0 75 1;
#P hidden connect 77 0 17 0;
#P hidden connect 25 0 17 0;
#P hidden connect 28 0 17 0;
#P connect 15 5 48 4;
#P connect 47 5 51 4;
#P connect 50 5 61 4;
#P fasten 19 0 39 3 536 94 414 94;
#P hidden connect 22 0 24 1;
#P connect 15 4 48 5;
#P connect 47 4 51 5;
#P connect 50 4 61 5;
#P fasten 43 0 57 0 652 496 428 496;
#P fasten 20 0 39 4 614 122 431 122;
#P connect 58 0 57 1;
#P hidden connect 17 0 25 0;
#P hidden connect 18 0 29 0;
#P connect 39 2 73 0;
#P connect 61 2 73 0;
#P connect 48 2 73 0;
#P connect 51 2 73 0;
#P fasten 21 0 15 0 226 122 456 122;
#P connect 15 0 47 0;
#P connect 47 0 50 0;
#P connect 50 0 60 0;
#P fasten 22 0 15 1 274 122 479 122;
#P connect 15 1 47 1;
#P connect 47 1 50 1;
#P connect 50 1 60 1;
#P hidden connect 77 0 18 0;
#P hidden connect 23 0 18 0;
#P hidden connect 29 0 18 0;
#P fasten 16 0 15 2 365 122 502 122;
#P connect 15 2 47 2;
#P connect 47 2 50 2;
#P connect 50 2 60 2;
#P fasten 17 0 15 3 411 122 525 122;
#P connect 15 3 47 3;
#P connect 47 3 50 3;
#P connect 50 3 60 3;
#P hidden connect 77 0 19 0;
#P hidden connect 26 0 19 0;
#P hidden connect 30 0 19 0;
#P hidden connect 21 0 25 1;
#P fasten 20 0 15 4 614 122 548 122;
#P connect 15 5 47 4;
#P connect 47 4 50 4;
#P connect 50 4 60 4;
#P hidden connect 19 0 26 0;
#P hidden connect 19 0 30 0;
#P fasten 61 2 41 0 430 328 579 328;
#P fasten 51 2 41 0 430 304 579 304;
#P fasten 48 2 41 0 430 284 579 284;
#P connect 41 0 53 0;
#P connect 53 0 45 0;
#P hidden connect 77 0 20 0;
#P fasten 32 0 42 0 117 148 652 148;
#P connect 45 0 43 0;
#P connect 42 0 43 0;
#P hidden connect 22 0 26 1;
#P fasten 39 2 67 0 431 281 692 281;
#P connect 67 0 71 0;
#P connect 71 0 70 0;
#P fasten 32 0 68 0 117 240 754 240;
#P connect 68 0 69 0;
#P connect 70 0 69 0;
#P pop;