#N canvas 188 44 862 681 12;
#X obj 538 553 element trace-template bazoo;
#X obj 439 617 set point-template y amp;
#X obj 516 456 pointer;
#X obj 549 350 r nframe;
#X obj 114 406 pointer;
#X text 141 385 current trace;
#X obj 115 454 getsize trace-template bazoo;
#X obj 155 504 + 1;
#X obj 155 528 setsize trace-template bazoo;
#X obj 126 557 element trace-template bazoo;
#X obj 115 478 t f f;
#X obj 21 586 set point-template y amp;
#X text 677 519 last trace in list;
#X text 588 450 reentrancy protection \; should go away;
#X obj 683 501 s last-in-list;
#X obj 730 401 r last-in-list;
#X obj 538 529 f 0;
#X obj 516 374 * 5;
#X obj 516 349 f;
#X obj 668 403 f \$1;
#X text 626 375 voice number;
#X obj 516 405 t f b;
#X obj 588 38 r track-out;
#X obj 588 64 route \$1;
#X obj 588 91 unpack 0 0 0;
#X obj 576 127 ftom;
#X obj 576 153 swap;
#X obj 628 150 rmstodb;
#X obj 576 179 pack 0 0 0;
#X obj 576 207 route 0 1;
#X text 548 324 start new trace;
#X obj 439 565 unpack;
#X text 582 15 voiceno \, freq \, amp \, newflag;
#X text 656 180 newflag \, pitch \, db;
#X obj 487 318 t l b;
#X obj 538 503 t b p;
#X text 36 297 add to trace;
#X obj 91 328 t l b;
#X obj 33 514 unpack;
#X obj 114 430 t p p;
#X obj 337 150 r add-trace-clear;
#X obj 334 252 spigot;
#X obj 373 209 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X msg 337 177 0;
#X msg 373 181 1;
#X text 336 110 only add to trace;
#X text 335 125 if one exists;
#X obj 516 430 append trace-template x y voiceno;
#X connect 0 0 1 2;
#X connect 2 0 4 1;
#X connect 2 0 35 0;
#X connect 3 0 18 1;
#X connect 4 0 39 0;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 9 0 11 2;
#X connect 10 0 9 0;
#X connect 10 1 7 0;
#X connect 15 0 47 3;
#X connect 16 0 0 0;
#X connect 17 0 21 0;
#X connect 18 0 17 0;
#X connect 19 0 47 2;
#X connect 21 0 47 0;
#X connect 21 1 19 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 24 1 27 0;
#X connect 24 2 26 1;
#X connect 25 0 26 0;
#X connect 26 0 28 0;
#X connect 26 1 28 1;
#X connect 27 0 28 2;
#X connect 28 0 29 0;
#X connect 29 0 41 0;
#X connect 29 1 34 0;
#X connect 29 1 44 0;
#X connect 31 0 1 0;
#X connect 31 1 1 1;
#X connect 34 0 31 0;
#X connect 34 1 18 0;
#X connect 35 0 16 0;
#X connect 35 1 0 1;
#X connect 35 1 14 0;
#X connect 37 0 38 0;
#X connect 37 1 4 0;
#X connect 38 0 11 0;
#X connect 38 1 11 1;
#X connect 39 0 6 0;
#X connect 39 1 9 1;
#X connect 39 1 8 1;
#X connect 40 0 43 0;
#X connect 41 0 37 0;
#X connect 42 0 41 1;
#X connect 43 0 42 0;
#X connect 44 0 42 0;
#X connect 47 0 2 0;