#N canvas 180 25 525 851 10;
#X declare -lib iemmatrix;
#N canvas 0 0 450 300 (subpatch) 0;
#X array j0 100 float 0;
#X coords 0 1 99 -1 200 140 1;
#X restore 69 219 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array y0 100 float 0;
#X coords 0 1 99 -1 200 140 1;
#X restore 273 218 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array j1 100 float 0;
#X coords 0 1 99 -1 200 140 1;
#X restore 69 379 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array y1 100 float 0;
#X coords 0 1 99 -1 200 140 1;
#X restore 273 378 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array j2 100 float 0;
#X coords 0 1 99 -1 200 140 1;
#X restore 69 549 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array y2 100 float 0;
#X coords 0 1 99 -1 200 140 1;
#X restore 273 548 graph;
#N canvas 0 0 450 300 plot 0;
#X obj 60 19 inlet;
#X obj 44 198 mtx;
#X obj 58 42 t a a;
#X obj 39 70 mtx_size;
#X obj 39 112 until;
#X obj 39 92 t f b;
#X obj 68 131 + 1;
#X obj 39 131 i;
#X msg 82 93 1;
#X obj 43 152 t f f;
#X obj 152 243 outlet;
#X obj 44 222 list prepend 0;
#X obj 45 243 outlet;
#X obj 152 219 - 1;
#X msg 44 175 col \$1;
#X connect 0 0 2 0;
#X connect 1 0 11 0;
#X connect 2 0 3 0;
#X connect 2 1 1 1;
#X connect 3 1 5 0;
#X connect 4 0 7 0;
#X connect 5 0 4 0;
#X connect 5 1 8 0;
#X connect 6 0 7 1;
#X connect 7 0 6 0;
#X connect 7 0 9 0;
#X connect 8 0 7 1;
#X connect 9 0 14 0;
#X connect 9 1 13 0;
#X connect 11 0 12 0;
#X connect 13 0 10 0;
#X connect 14 0 1 0;
#X restore 124 112 pd plot;
#X obj 124 160 s;
#X msg 162 135 symbol j\$1;
#N canvas 0 0 450 300 plot 0;
#X obj 60 19 inlet;
#X obj 44 198 mtx;
#X obj 58 42 t a a;
#X obj 39 70 mtx_size;
#X obj 39 112 until;
#X obj 39 92 t f b;
#X obj 68 131 + 1;
#X obj 39 131 i;
#X msg 82 93 1;
#X obj 43 152 t f f;
#X obj 152 243 outlet;
#X obj 44 222 list prepend 0;
#X obj 45 243 outlet;
#X obj 152 219 - 1;
#X msg 44 175 col \$1;
#X connect 0 0 2 0;
#X connect 1 0 11 0;
#X connect 2 0 3 0;
#X connect 2 1 1 1;
#X connect 3 1 5 0;
#X connect 4 0 7 0;
#X connect 5 0 4 0;
#X connect 5 1 8 0;
#X connect 6 0 7 1;
#X connect 7 0 6 0;
#X connect 7 0 9 0;
#X connect 8 0 7 1;
#X connect 9 0 14 0;
#X connect 9 1 13 0;
#X connect 11 0 12 0;
#X connect 13 0 10 0;
#X connect 14 0 1 0;
#X restore 245 114 pd plot;
#X obj 245 162 s;
#X msg 283 137 symbol y\$1;
#N canvas 0 0 450 300 (subpatch) 0;
#X array j3 100 float 0;
#X coords 0 1 99 -1 200 140 1;
#X restore 69 709 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array y3 100 float 0;
#X coords 0 1 99 -1 200 140 1;
#X restore 273 708 graph;
#X obj 127 20 hsl 128 15 1 300 0 0 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 124 42 0.1 \$1 100;
#X obj 125 87 mtx_spherical_radial h 3;
#X obj 125 63 mtx_linspace;
#N canvas 460 154 494 171 META 0;
#X text 12 105 AUTHOR IOhannes m zmoelnig;
#X text 12 85 OUTLET_0 matrix;
#X text 12 125 HELP_PATCH_AUTHORS IOhannes m zmölnig;
#X text 12 25 LICENSE GPL-2+;
#X text 12 65 INLET_0 matrix;
#X text 12 5 KEYWORDS control matrix math;
#X text 12 44 DESCRIPTION calculate spherical radials of a matrix of coordinates, f 67;
#X obj 13 150 declare -lib iemmatrix;
#X restore 421 16 pd META;
#X connect 6 0 7 0;
#X connect 6 1 8 0;
#X connect 8 0 7 1;
#X connect 9 0 10 0;
#X connect 9 1 11 0;
#X connect 11 0 10 1;
#X connect 14 0 15 0;
#X connect 15 0 17 0;
#X connect 16 0 6 0;
#X connect 16 1 9 0;
#X connect 17 0 16 0;
