#N canvas 22 420 885 901 10; #X obj 31 168 openpanel; #X msg 31 199 open \$1; #X obj 31 141 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000; #X obj 171 323 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1; #N canvas 1585 181 969 1105 biquad 1; #X obj 89 560 inlet~; #X obj 137 796 biquad~; #X obj 174 905 outlet~; #X obj 2 11 hsl 128 15 0 50 0 0 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 9900 1; #N canvas 414 379 980 845 sineLFO 0; #X obj 49 99 inlet frequency; #X obj 30 674 outlet~; #X obj 435 327 osc~; #X obj 219 105 inlet phase; #X msg 611 305 0.01; #X obj 439 395 *~ 0.004; #X obj 442 458 +~ 0.004; #X obj 33 222 osc~; #X obj 37 267 *~; #X obj 37 323 +~; #X obj 34 368 osc~; #X obj 33 419 *~; #X floatatom 76 236 5 0 0 0 - - -, f 5; #X floatatom 86 286 5 0 0 0 - - -, f 5; #X floatatom 73 395 5 0 0 0 - - -, f 5; #X floatatom 68 167 5 0 0 0 - - -, f 5; #X connect 2 0 5 0; #X connect 3 0 7 1; #X connect 4 0 2 1; #X connect 5 0 6 0; #X connect 7 0 8 0; #X connect 8 0 9 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 11 0 1 0; #X connect 12 0 8 1; #X connect 13 0 9 1; #X connect 14 0 11 1; #X connect 15 0 7 0; #X restore 81 128 pd sineLFO; #X obj 81 248 env~; #X obj 122 300 dbtorms; #X obj 122 345 hsl 100 15 -1 10 0 0 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 1046 1; #X floatatom 252 685 5 0 0 0 - - -, f 5; #X floatatom 318 687 5 0 0 0 - - -, f 5; #X obj 535 403 loadbang; #X obj 462 468 t b b; #X floatatom 251 564 5 0 0 0 - - -, f 5; #X obj 43 130 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1; #X obj 74 62 t f f; #X obj 178 54 t b b; #X obj 182 22 loadbang; #X obj 258 618 expr 2*$f2*cos($f1) \; -$f2*$f2; #X obj 534 698 expr (1-($f2*$f2))*sin($f1); #X floatatom 680 818 5 0 0 0 - - -, f 5; #X msg 449 545 0.9; #X obj 326 842 hsl 128 15 0 2500 0 0 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 0 1; #X obj 156 855 hip~ 1000; #X obj 317 140 hsl 128 15 0 5 0 0 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 0 1; #X obj 55 330 mtof; #X obj 315 262 cos~; #X obj 235 744 pack f f 0.155 0 0; #X obj 310 219 phasor~ 0.3; #X obj 319 304 +~ 1.3; #X obj 320 356 *~ 0.2; #X connect 0 0 1 0; #X connect 1 0 22 0; #X connect 3 0 14 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 5 0 24 0; #X connect 6 0 7 0; #X connect 7 0 12 0; #X connect 8 0 26 0; #X connect 9 0 26 1; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 20 0; #X connect 12 0 18 0; #X connect 12 0 17 0; #X connect 14 0 4 0; #X connect 15 1 4 1; #X connect 16 0 15 0; #X connect 17 0 8 0; #X connect 17 1 9 0; #X connect 18 0 19 0; #X connect 20 0 17 1; #X connect 20 0 18 1; #X connect 21 0 22 1; #X connect 22 0 2 0; #X connect 23 0 27 1; #X connect 23 0 27 0; #X connect 25 0 28 0; #X connect 26 0 1 0; #X connect 27 0 25 0; #X connect 28 0 29 0; #X restore 35 449 pd biquad; #X obj 37 659 dac~; #X obj 168 486 tabwrite~ array1; #N canvas 0 50 450 250 (subpatch) 0; #X array array1 100 float 5 black black; #A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; #X coords 0 1 99 -1 200 140 1; #X restore 295 445 graph; #X obj 29 265 readsf~ 2; #X msg 164 263 start; #X obj 171 346 metro 50; #N canvas 0 50 450 250 (subpatch) 0; #X array array2 100 float 5 black black; #A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; #X coords 0 1 99 -1 200 140 1; #X restore 295 305 graph; #X obj 202 604 tabwrite~ array2; #X obj 396 537 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1; #X obj 396 560 metro 50; #X obj 218 221 dirac~; #X obj 313 61 loadbang; #X obj 313 94 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 1 1; #X msg 259 177 1; #X obj 215 701 tabwrite~ array3; #N canvas 0 0 450 300 (subpatch) 0; #X array array3 64 float 3 black black; #A 0 0 0.155 0.275318 0.363483 0.422629 0.456271 0.468122 0.46192 0.441305 0.409713 0.370293 0.325866 0.27888 0.231409 0.185147 0.141425 0.101237 0.0652677 0.0339296 0.00740051 -0.0143378 -0.0314619 -0.0442705 -0.0531512 -0.0585506 -0.0609479 -0.0608325 -0.0586858 -0.0549661 -0.050098 -0.0444638 -0.0383994 -0.0321911 -0.0260759 -0.0202424 -0.014834 -0.0099526 -0.00566269 -0.00199674 0.00104007 0.00346479 0.00531186 0.0066287 0.00747161 0.00790217 0.00798421 0.00778117 0.00735408 0.00675991 0.00605047 0.0052716 0.00446279 0.00365702 0.00288091 0.00215503 0.00149432 0.000908714 0.000403699 -1.89883e-05 -0.000360724 -0.000625355 -0.000818599 -0.000947496 -0.00101992 ; #X coords 0 1 64 -1 200 140 1; #X restore 388 674 graph; #X obj 344 142 metro 250; #N canvas 798 163 953 1122 biquad 0; #X obj 89 560 inlet~; #X obj 137 796 biquad~; #X obj 174 905 outlet~; #X obj 2 11 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 0 1; #N canvas 524 237 433 504 sineLFO 0; #X obj 49 99 inlet frequency; #X obj 48 386 outlet~; #X obj 53 172 osc~; #X obj 219 105 inlet phase; #X msg 229 150 0.01; #X obj 57 240 *~ 0.004; #X obj 60 303 +~ 0.004; #X connect 0 0 2 0; #X connect 2 0 5 0; #X connect 3 0 4 0; #X connect 4 0 2 1; #X connect 5 0 6 0; #X connect 6 0 1 0; #X restore 81 128 pd sineLFO; #X obj 81 248 env~; #X obj 122 300 dbtorms; #X obj 122 345 hsl 100 15 -1 10 0 0 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 1314 1; #X floatatom 252 685 5 0 0 0 - - -, f 5; #X floatatom 318 687 5 0 0 0 - - -, f 5; #X obj 535 403 loadbang; #X obj 462 468 t b b; #X floatatom 251 564 5 0 0 0 - - -, f 5; #X obj 43 130 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1; #X obj 74 62 t f f; #X obj 178 54 t b b; #X obj 182 22 loadbang; #X floatatom 680 818 5 0 0 0 - - -, f 5; #X msg 449 545 0.9; #X obj 326 842 hsl 128 15 0 2500 0 0 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 0 1; #X obj 156 855 hip~ 1000; #X obj 317 140 hsl 128 15 0 5 0 0 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 0 1; #X obj 55 330 mtof; #X obj 315 262 cos~; #X obj 235 744 pack f f 0.155 0 0; #X obj 310 219 phasor~ 0.3; #X obj 319 304 +~ 1.3; #X obj 320 356 *~ 0.2; #X obj 237 612 expr~ 2*$f2*cos($v1) \; -$f2*$f2; #X connect 0 0 1 0; #X connect 1 0 20 0; #X connect 3 0 14 0; #X connect 5 0 6 0; #X connect 5 0 22 0; #X connect 6 0 7 0; #X connect 7 0 12 0; #X connect 8 0 24 0; #X connect 9 0 24 1; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 18 0; #X connect 12 0 28 0; #X connect 14 0 4 0; #X connect 15 1 4 1; #X connect 16 0 15 0; #X connect 18 0 28 1; #X connect 19 0 20 1; #X connect 20 0 2 0; #X connect 21 0 25 1; #X connect 21 0 25 0; #X connect 23 0 26 0; #X connect 24 0 1 0; #X connect 25 0 23 0; #X connect 26 0 27 0; #X connect 27 0 5 0; #X restore 655 466 pd biquad; #X connect 0 0 1 0; #X connect 1 0 8 0; #X connect 1 0 9 0; #X connect 2 0 0 0; #X connect 3 0 10 0; #X connect 4 0 6 0; #X connect 4 0 19 0; #X connect 4 0 5 0; #X connect 4 0 5 1; #X connect 8 0 12 0; #X connect 8 0 4 0; #X connect 8 1 4 0; #X connect 9 0 8 0; #X connect 10 0 6 0; #X connect 13 0 14 0; #X connect 14 0 12 0; #X connect 15 0 4 0; #X connect 16 0 17 0; #X connect 17 0 21 0; #X connect 18 0 15 0; #X connect 21 0 18 0; #X connect 21 0 19 0;