#N canvas 0 0 380 300 10;
#X obj 37 37 phasor~ 440;
#X obj 37 150 dac~;
#X obj 37 121 *~ 0.2;
#X obj 37 79 expr~ if($v1==0.5 \, 0 \, (abs(0.5-$v1))/(0.5-$v1)*sqrt(1-(2*$v1-1)^2))
;
#X connect 0 0 3 0;
#X connect 2 0 1 0;
#X connect 2 0 1 1;
#X connect 3 0 2 0;
