#N canvas 206 4 580 616 10;
#N canvas 0 0 450 300 (subpatch) 0;
#X array phdist 2048 float 0;
#X coords 0 1 2047 -1 200 150 1;
#X restore 332 365 graph;
#X obj 82 18 until;
#X msg 82 -5 2048;
#X obj 82 61 f;
#X msg 112 39 0;
#X obj 118 60 + 1;
#X obj 82 -26 t b b;
#X obj 61 -27 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#N canvas 0 0 450 300 (subpatch) 0;
#X array phase 2048 float 0;
#X coords 0 1 2047 0 150 150 1;
#X restore 90 364 graph;
#X obj 82 84 t f f;
#X obj 80 151 tabwrite phase;
#X obj 425 19 until;
#X msg 425 -4 2048;
#X obj 427 63 f;
#X msg 455 40 0;
#X obj 461 61 + 1;
#X obj 425 -25 t b b;
#X obj 404 -26 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 425 85 t f f;
#X obj 425 114 tabread phase;
#X obj 425 150 expr sin(2*3.141592*$f1);
#X obj 424 193 tabwrite phdist;
#X obj 78 330 dac~;
#X obj 84 221 phasor~ 110;
#X obj 84 246 *~ 2047;
#X obj 136 291 hsl 50 15 0 1 0 0 empty empty empty -2 -8 0 10 -260097
-1 -1 1470 1;
#X obj 80 107 / 2048;
#X floatatom 229 53 5 0 0 0 - - -;
#X obj 229 73 t b b f;
#X obj 78 128 expr if($f1<.5 \, $f1*$f2*2 \, $f2+($f1-.5)*(1-$f2)*2)
;
#X obj 194 -11 hsl 128 15 0.25 0.75 0 0 empty empty empty -2 -8 0 10
-260097 -1 -1 5700 1;
#X obj 132 331 line~;
#X obj 133 310 pack f 50;
#X obj 83 304 *~;
#X obj 230 32 line;
#X obj 229 12 pack f 100;
#X obj 16 0 loadbang;
#X msg 47 22 0.6;
#X msg 17 22 0.3;
#X msg 8 130 \; pd dsp \$1;
#X obj 8 95 tgl 30 0 empty empty empty 17 7 0 10 -260097 -1 -1 1 1
;
#X obj 86 198 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -8 0
10 -260097 -1 -1 321 256;
#X obj 83 267 tabread~ phdist;
#X text 75 514 chosen x values of sin function;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 5 0;
#X connect 3 0 9 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 2 0;
#X connect 6 1 4 0;
#X connect 7 0 6 0;
#X connect 9 0 26 0;
#X connect 9 1 10 1;
#X connect 11 0 13 0;
#X connect 12 0 11 0;
#X connect 13 0 15 0;
#X connect 13 0 18 0;
#X connect 14 0 13 1;
#X connect 15 0 13 1;
#X connect 16 0 12 0;
#X connect 16 1 14 0;
#X connect 17 0 16 0;
#X connect 18 0 19 0;
#X connect 18 1 21 1;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 23 0 24 0;
#X connect 24 0 42 0;
#X connect 25 0 32 0;
#X connect 26 0 29 0;
#X connect 27 0 28 0;
#X connect 28 0 17 0;
#X connect 28 1 7 0;
#X connect 28 2 29 1;
#X connect 29 0 10 0;
#X connect 30 0 35 0;
#X connect 31 0 33 1;
#X connect 32 0 31 0;
#X connect 33 0 22 0;
#X connect 33 0 22 1;
#X connect 34 0 27 0;
#X connect 35 0 34 0;
#X connect 36 0 38 0;
#X connect 36 0 37 0;
#X connect 37 0 30 0;
#X connect 38 0 25 0;
#X connect 40 0 39 0;
#X connect 41 0 23 0;
#X connect 42 0 33 0;