#N canvas 1088 497 450 300 10;
#X obj 185 240 table quarter_circle;
#N canvas 0 0 450 300 (subpatch) 0;
#X array quarter_circle 100 float 0;
#X coords 0 100 100 0 100 100 1;
#X restore 50 50 graph;
#X obj 227 33 loadbang;
#X msg 227 53 100;
#X obj 227 75 until;
#X obj 225 99 f;
#X obj 250 99 + 1;
#X obj 225 122 t a a;
#X obj 225 154 expr sqrt(10000 - ($f1 * $f1));
#X obj 225 179 tabwrite quarter_circle;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 5 1;
#X connect 7 0 8 0;
#X connect 7 1 9 1;
#X connect 8 0 9 0;
