#N canvas 661 333 572 483 10;
#X obj 20 42 sx/gemwin;
#X obj 161 27 gemhead;
#X obj 161 52 sx/props;
#X obj 161 413 sx/anyblob;
#X obj 141 28 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 161 278 textfile;
#X obj 161 249 until;
#X obj 161 170 t b b;
#X msg 210 244 rewind;
#X msg 48 241 print;
#X obj 161 392 repack 9;
#N canvas 265 354 320 182 coords 0;
#X obj 100 48 table \$0-x 500;
#X obj 100 67 table \$0-y 500;
#X obj 100 86 table \$0-z 500;
#X restore 415 153 pd coords;
#N canvas 0 0 808 496 load-obj 0;
#X obj 168 215 textfile;
#X msg 69 86 print;
#X obj 168 250 route v;
#X obj 168 309 list prepend 0;
#X obj 280 277 + 1;
#X obj 168 178 until;
#X obj 168 279 t a b;
#X msg 169 384 \$1 \$2;
#X msg 219 384 \$1 \$3;
#X msg 271 385 \$1 \$4;
#X obj 168 33 inlet;
#X obj 264 250 1;
#X obj 248 277 f 1;
#X msg 348 253 const 0;
#X obj 271 411 s \$0-z;
#X obj 219 411 s \$0-y;
#X obj 169 410 s \$0-x;
#X obj 168 63 openpanel;
#X msg 331 153 read \$1 cr \, rewind;
#X obj 331 190 outlet;
#X msg 168 150 500;
#X obj 168 99 t b b b a;
#X text 284 42 load an obj-file and write vertex coords. into table
\$0-x \, \$0-y \, \$0-z;
#X connect 0 0 2 0;
#X connect 0 1 5 1;
#X connect 1 0 0 0;
#X connect 2 0 6 0;
#X connect 3 0 7 0;
#X connect 3 0 8 0;
#X connect 3 0 9 0;
#X connect 4 0 12 1;
#X connect 5 0 0 0;
#X connect 6 0 3 0;
#X connect 6 1 12 0;
#X connect 7 0 16 0;
#X connect 8 0 15 0;
#X connect 9 0 14 0;
#X connect 10 0 17 0;
#X connect 11 0 12 1;
#X connect 12 0 4 0;
#X connect 12 0 3 1;
#X connect 13 0 14 0;
#X connect 13 0 15 0;
#X connect 13 0 16 0;
#X connect 17 0 21 0;
#X connect 18 0 0 0;
#X connect 18 0 19 0;
#X connect 20 0 5 0;
#X connect 21 0 20 0;
#X connect 21 1 11 0;
#X connect 21 2 13 0;
#X connect 21 3 18 0;
#X restore 71 169 pd load-obj;
#X msg 71 147 bang;
#N canvas 0 0 450 300 get-coord 0;
#X obj 71 69 inlet;
#X obj 71 102 t a a a;
#X obj 71 193 pack 0 0 0;
#X obj 71 226 outlet;
#X obj 71 146 tabread \$0-x;
#X obj 168 147 tabread \$0-y;
#X obj 271 147 tabread \$0-z;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 1 5 0;
#X connect 1 2 6 0;
#X connect 2 0 3 0;
#X connect 4 0 2 0;
#X connect 5 0 2 1;
#X connect 6 0 2 2;
#X restore 161 348 pd get-coord;
#X obj 161 301 route f;
#N canvas 0 0 450 300 get-face 0;
#X obj 140 96 list-drip;
#X obj 140 128 s2l /;
#X obj 140 150 list split 1;
#X obj 140 66 inlet;
#X obj 140 185 outlet;
#X text 97 128 Zexy:;
#X text 65 95 list-abs:;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 0 0;
#X restore 161 324 pd get-face;
#X text 388 135 Vertex coordinates:;
#X text 229 392 [repack] from zexy can be cloned with [list];
#X text 234 298 "f" as in "face" \, not as in "float"!;
#X connect 1 0 2 0;
#X connect 2 0 7 0;
#X connect 4 0 1 0;
#X connect 5 0 15 0;
#X connect 5 1 6 1;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 7 1 8 0;
#X connect 8 0 5 0;
#X connect 9 0 5 0;
#X connect 10 0 3 0;
#X connect 12 0 5 0;
#X connect 13 0 12 0;
#X connect 14 0 10 0;
#X connect 15 0 16 0;
#X connect 16 0 14 0;