#N canvas 0 18 1004 682 12;
#N canvas 0 0 491 319 inlet-template 0;
#X text 29 40 [drawobj 0 0 inlet];
#X text 29 60 [drawobj 0 25 list prepend num];
#X text 29 100 [drawconnect 0 0 1 0];
#X text 29 120 [drawconnect 0 1 0 1];
#X text 29 80 [drawobj 0 50 s vswitch-in];
#X obj 33 176 drawnumber num 0 0 0 inlet;
#X obj 9 9 struct \$0-inlet-template float num;
#X restore 8 46 pd inlet-template;
#X obj 8 121 route change;
#N canvas 248 361 689 300 arrow-template 0;
#X obj 31 148 outlet;
#X obj 65 73 drawpolygon 0 1 5 28 x0(0:1000)(58:1058) 28 x0(0:1000)(48:1048)
24 x0(0:1000)(58:1058) 28 x0(0:1000)(48:1048) 32 x0(0:1000)(58:1058)
28;
#X obj 31 28 struct \$0-arrow-template float x0;
#X connect 2 0 0 0;
#X restore 8 96 pd arrow-template;
#N canvas 0 0 1004 682 vinlet-template 0;
#X obj 58 106 plot inlets 0 0 0 110 120;
#X obj 27 33 struct \$0-vinlet-template float x float y array inlets
\$0-inlet-template;
#X restore 8 71 pd vinlet-template;
#X obj 498 80 namecanvas \$0-vswitch;
#N canvas 0 0 1004 682 init 0;
#X obj 170 395 * 32;
#X obj 87 499 f;
#X obj 170 365 - 2;
#X msg 355 155 next;
#X msg 123 156 next;
#X msg 223 156 next;
#X obj 123 55 f \$0;
#X msg 123 80 traverse \$1-vswitch \, next;
#X obj 31 282 spigot;
#X msg 146 228 1;
#X obj 223 130 t b b a;
#X obj 123 282 spigot 1;
#X obj 249 201 f;
#X obj 283 201 + 1;
#X obj 249 226 sel 1;
#X msg 249 251 0;
#X obj 170 445 pack f \$0;
#X obj 33 85 t a;
#X msg 170 471 \; \$2-vswitch donecanvasdialog 1 -1 1 0 0 \$1 40 \$1
40 0 0;
#X obj 170 420 + 60;
#X obj 123 27 loadbang;
#X obj 287 395 r \$0-x0;
#X text 354 396 update gop size from ds arrow;
#X obj 206 365 s \$0-vinlet-size;
#X obj 455 248 r \$0-vinlets;
#N canvas 0 86 1004 682 spawn-objects 0;
#X obj 26 10 inlet;
#X obj 26 35 t b b b b;
#X obj 285 118 pointer;
#X obj 285 68 f \$0;
#X msg 285 93 traverse \$1-vswitch \, bang;
#X msg 26 95 0;
#X msg 72 174 150 550;
#X obj 286 28 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 26 138 append \$0-arrow-template x0;
#X obj 72 200 append \$0-vinlet-template x y;
#X obj 92 272 outlet;
#X obj 26 272 outlet;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 1 1 3 0;
#X connect 1 2 6 0;
#X connect 1 3 3 0;
#X connect 2 0 8 1;
#X connect 2 0 9 2;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X connect 5 0 8 0;
#X connect 6 0 9 0;
#X connect 7 0 3 0;
#X connect 8 0 11 0;
#X connect 9 0 10 0;
#X restore 472 129 pd spawn-objects;
#X obj 716 276 t a;
#X obj 123 130 t b b a a;
#X obj 669 347 max 1;
#X obj 669 429 f;
#X obj 703 429 + 1;
#X obj 669 402 until;
#X obj 669 372 t a b;
#X msg 719 402 0;
#X obj 669 454 t a a;
#X obj 455 273 t a a;
#X obj 123 105 pointer \$0-vinlet-template \$0-arrow-template;
#X obj 170 310 getsize \$0-vinlet-template inlets;
#X obj 455 310 setsize \$0-vinlet-template inlets;
#X obj 87 529 set \$0-arrow-template x0;
#X obj 669 515 set \$0-inlet-template num;
#X obj 741 478 element \$0-vinlet-template inlets;
#X msg 472 180 2;
#X obj 472 154 b;
#X connect 0 0 1 1;
#X connect 0 0 19 0;
#X connect 1 0 39 0;
#X connect 2 0 0 0;
#X connect 3 0 11 0;
#X connect 4 0 11 0;
#X connect 5 0 11 0;
#X connect 6 0 7 0;
#X connect 7 0 36 0;
#X connect 8 0 1 0;
#X connect 9 0 8 1;
#X connect 10 0 5 0;
#X connect 10 0 8 0;
#X connect 10 1 12 0;
#X connect 10 2 39 1;
#X connect 11 0 17 0;
#X connect 12 0 13 0;
#X connect 12 0 14 0;
#X connect 13 0 12 1;
#X connect 14 0 15 0;
#X connect 15 0 11 1;
#X connect 16 0 18 0;
#X connect 17 0 36 0;
#X connect 19 0 16 0;
#X connect 20 0 6 0;
#X connect 21 0 19 0;
#X connect 24 0 35 0;
#X connect 25 0 43 0;
#X connect 25 1 26 0;
#X connect 26 0 38 1;
#X connect 26 0 41 1;
#X connect 27 0 4 0;
#X connect 27 0 8 0;
#X connect 27 1 9 0;
#X connect 27 1 12 0;
#X connect 27 2 37 0;
#X connect 27 3 26 0;
#X connect 28 0 32 0;
#X connect 29 0 30 0;
#X connect 29 0 34 0;
#X connect 30 0 29 1;
#X connect 31 0 29 0;
#X connect 32 0 31 0;
#X connect 32 1 33 0;
#X connect 33 0 29 1;
#X connect 34 0 40 0;
#X connect 34 1 41 0;
#X connect 35 0 28 0;
#X connect 35 1 38 0;
#X connect 36 0 27 0;
#X connect 36 1 10 0;
#X connect 36 2 3 0;
#X connect 36 3 25 0;
#X connect 37 0 2 0;
#X connect 37 0 23 0;
#X connect 37 0 28 0;
#X connect 41 0 40 1;
#X connect 42 0 35 0;
#X connect 43 0 42 0;
#X restore 381 80 pd init;
#X obj 87 178 s \$0-x0;
#X text 151 179 (to pd init);
#X obj 8 257 inlet;
#X obj 118 292 r vswitch-in;
#X obj 118 317 list split 1;
#X obj 97 342 sel;
#X obj 97 367 list append;
#X obj 77 268 r \$0-vinlet-size;
#X obj 8 282 f;
#X obj 40 283 + 1;
#X obj 8 313 mod;
#X obj 77 293 - 1;
#X obj 8 179 div 32;
#X obj 8 231 s \$0-vinlets;
#X obj 97 392 outlet;
#X obj 8 204 + 2;
#X text 152 46 <-- would need [drawobj] and [drawconnect] to work;
#X floatatom 308 200 5 0 0 0 - - -;
#X text 357 200 no of inlets;
#X obj 8 146 get \$0-arrow-template x0;
#X connect 1 0 25 0;
#X connect 2 0 1 0;
#X connect 8 0 14 0;
#X connect 9 0 10 0;
#X connect 10 0 11 1;
#X connect 10 1 12 1;
#X connect 11 0 12 0;
#X connect 12 0 20 0;
#X connect 13 0 17 0;
#X connect 14 0 15 0;
#X connect 14 0 16 0;
#X connect 15 0 14 1;
#X connect 16 0 11 0;
#X connect 17 0 16 1;
#X connect 18 0 21 0;
#X connect 21 0 19 0;
#X connect 21 0 23 0;
#X connect 25 0 6 0;
#X connect 25 0 18 0;
#X coords 0 0 60 40 60 40 1 0 0;