#N canvas 348 152 654 428 10;
#X floatatom 487 214 0 0 0 0 - - -;
#X obj 464 260 translate;
#X msg 522 222 0 0 1;
#X obj 41 388 gemwin;
#X obj 440 187 gemhead;
#X msg 16 282 create;
#X msg 17 311 destroy;
#X msg 93 308 1;
#X msg 94 338 0;
#X msg 585 291 0 1 0;
#X obj 469 333 rotate;
#X floatatom 487 293 0 0 0 0 - - -;
#X obj 187 330 gemhead 1;
#X obj 187 368 world_light;
#X text 367 3 load in a model file;
#X obj 553 188 loadbang;
#X obj 469 376 model ../data/venus.obj;
#N canvas 22 20 213 300 Gem.init 0;
#X obj 71 191 outlet;
#X obj 71 81 loadbang;
#X msg 101 134 reset;
#X obj 71 109 t b b;
#X msg 71 164 lighting 1;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 3 1 2 0;
#X connect 4 0 0 0;
#X restore 95 363 pd Gem.init;
#N canvas 8 99 658 667 obj 0;
#X obj 285 13 inlet;
#X obj 362 208 list trim;
#X obj 362 145 list prepend read;
#X obj 285 35 route bang read write;
#X obj 41 151 l2s .;
#X obj 42 179 route obj;
#X obj 104 210 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 45 210 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 277 202 rewind;
#X obj 362 167 list append cr;
#X obj 361 230 textfile;
#X obj 218 144 r \$0-rew;
#X obj 370 187 r \$0-txt;
#X obj 136 179 t b a;
#N canvas 339 -1 619 698 vertices 0;
#X floatatom 107 324 7 0 0 2 X - -;
#X floatatom 167 324 7 0 0 2 Y - -;
#X floatatom 233 324 7 0 0 2 Z - -;
#X obj 35 325 nbx 5 14 5 711 0 0 empty empty v_number 0 -7 0 10 -262144
-1 -1 711 256;
#X obj 46 507 until;
#X obj 142 111 route # v;
#X obj 142 132 route vertices elements;
#X floatatom 235 159 5 0 0 0 - - -;
#X obj 170 192 until;
#X msg 95 117 3;
#X obj 181 215 s \$0-txt;
#X obj 132 168 i;
#X obj 132 189 + 4;
#X obj 95 144 t b b a;
#X obj 132 241 list;
#X obj 169 239 s \$0-rew;
#X obj 132 214 t b a b;
#X obj 84 15 inlet;
#X obj 161 662 s \$0-txt;
#X obj 142 91 spigot 1;
#X obj 196 72 spigot;
#X obj 214 491 list prepend venus.mtl;
#X obj 214 470 list prepend default;
#X obj 213 450 list prepend 711;
#X obj 326 429 r \$0-vertices;
#X obj 309 405 r \$0-elements;
#X obj 329 449 r \$0-g-ver;
#X obj 341 471 r \$0-mtl;
#X obj 213 429 list append 1419;
#X obj 161 443 s \$0-sw;
#X msg 186 419 0;
#X obj 185 16 r \$0-sw;
#N canvas 0 0 462 312 packit 0;
#X obj 82 43 inlet;
#X obj 134 54 inlet;
#X obj 184 50 inlet;
#X obj 155 187 outlet;
#X obj 154 164 pack f f f;
#X obj 94 102 / 1000;
#X obj 157 121 t b a;
#X obj 157 102 / 1000;
#X obj 222 102 / 1000;
#X obj 198 122 t b a;
#X connect 0 0 5 0;
#X connect 1 0 7 0;
#X connect 2 0 8 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 6 0 4 0;
#X connect 6 1 4 1;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 4 0;
#X connect 9 1 4 2;
#X restore 111 348 pd packit;
#X obj 369 293 s \$0-txt;
#X obj 130 15 inlet;
#X obj 331 552 r \$0-obj;
#X obj 201 615 list append;
#X msg 160 419 1;
#X obj 244 553 r \$0-objwrite;
#X obj 201 591 spigot;
#X obj 341 603 r \$0-obj;
#X obj 318 659 list append;
#X obj 304 634 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 336 627 write test.obj cr;
#X obj 248 398 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 212 511 rewind \, set mtllib \$1 \, add g \$2 \, add # vertices
\$3 \, add # elements \$4;
#X obj 217 48 == 0;
#X msg 127 416 2;
#X msg 94 529 4;
#X obj 45 485 i 711;
#X obj 291 111 list prepend;
#X obj 291 138 t l;
#X obj 333 172 list append;
#X obj 172 390 s \$0-rew;
#X obj 111 368 t a b b b b;
#X obj 369 239 list split 4;
#X obj 457 239 t l;
#X obj 333 206 list split 8;
#X obj 369 266 list prepend add;
#X obj 300 45 sel 2;
#X obj 333 87 t b b b;
#X obj 126 551 list prepend add v;
#X msg 166 502 3;
#X obj 111 394 t a b b b;
#X obj 111 459 t b b a;
#X obj 7 455 r \$0-obj-end;
#N canvas 0 0 470 320 unpack 0;
#X obj 160 72 inlet;
#X obj 120 190 outlet;
#X obj 186 186 outlet;
#X obj 254 188 outlet;
#X obj 160 95 unpack f f f;
#X obj 129 140 * 1000;
#X obj 190 140 * 1000;
#X obj 253 141 * 1000;
#X msg 145 165 set \$1;
#X msg 192 166 set \$1;
#X msg 240 163 set \$1;
#X connect 0 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 4 2 7 0;
#X connect 5 0 8 0;
#X connect 6 0 9 0;
#X connect 7 0 10 0;
#X connect 8 0 1 0;
#X connect 9 0 2 0;
#X connect 10 0 3 0;
#X restore 128 269 pd unpack;
#X msg 10 190 range 5 \$1 \, set \$1;
#X obj 332 572 list prepend write;
#X obj 193 638 list append cr;
#X obj 181 46 == 1;
#X connect 0 0 32 0;
#X connect 1 0 32 1;
#X connect 2 0 32 2;
#X connect 3 0 12 0;
#X connect 3 0 49 1;
#X connect 4 0 18 0;
#X connect 5 0 6 0;
#X connect 5 1 14 1;
#X connect 6 0 11 1;
#X connect 6 1 7 0;
#X connect 8 0 10 0;
#X connect 9 0 13 0;
#X connect 11 0 12 0;
#X connect 11 0 67 0;
#X connect 11 0 49 1;
#X connect 12 0 16 0;
#X connect 13 1 11 0;
#X connect 13 2 8 0;
#X connect 14 0 66 0;
#X connect 16 0 14 0;
#X connect 16 1 8 0;
#X connect 16 2 15 0;
#X connect 17 0 19 0;
#X connect 17 0 20 0;
#X connect 19 0 5 0;
#X connect 20 0 50 0;
#X connect 21 0 45 0;
#X connect 22 0 21 0;
#X connect 23 0 22 0;
#X connect 24 0 23 1;
#X connect 25 0 28 1;
#X connect 26 0 22 1;
#X connect 27 0 21 1;
#X connect 28 0 23 0;
#X connect 30 0 29 0;
#X connect 31 0 46 0;
#X connect 31 0 59 0;
#X connect 31 0 70 0;
#X connect 32 0 54 0;
#X connect 34 0 9 0;
#X connect 35 0 68 0;
#X connect 36 0 69 0;
#X connect 37 0 29 0;
#X connect 38 0 39 1;
#X connect 39 0 36 0;
#X connect 40 0 43 0;
#X connect 41 0 18 0;
#X connect 42 0 41 0;
#X connect 43 0 41 1;
#X connect 44 0 28 0;
#X connect 45 0 18 0;
#X connect 46 0 20 1;
#X connect 47 0 29 0;
#X connect 48 0 4 0;
#X connect 49 0 4 0;
#X connect 50 0 51 0;
#X connect 51 0 50 1;
#X connect 51 0 52 1;
#X connect 52 0 57 0;
#X connect 54 0 63 0;
#X connect 54 1 49 0;
#X connect 54 2 30 0;
#X connect 54 2 4 0;
#X connect 54 3 48 0;
#X connect 54 4 53 0;
#X connect 55 0 58 0;
#X connect 55 1 56 0;
#X connect 56 0 55 0;
#X connect 57 1 55 0;
#X connect 58 0 33 0;
#X connect 59 0 60 0;
#X connect 60 0 52 0;
#X connect 60 1 50 1;
#X connect 61 0 18 0;
#X connect 63 0 64 0;
#X connect 63 1 47 0;
#X connect 63 2 28 0;
#X connect 63 3 37 0;
#X connect 64 0 39 0;
#X connect 64 1 62 0;
#X connect 64 2 61 0;
#X connect 65 0 4 1;
#X connect 66 0 0 0;
#X connect 66 1 1 0;
#X connect 66 2 2 0;
#X connect 67 0 3 0;
#X connect 68 0 36 1;
#X connect 69 0 18 0;
#X connect 70 0 19 1;
#X coords 0 -1 1 1 250 40 1 30 300;
#X restore 54 317 pd vertices;
#X obj 325 93 t b b a;
#X obj 382 93 s \$0-objwrite;
#X obj 404 256 s \$0-obj-end;
#X connect 0 0 3 0;
#X connect 1 0 10 0;
#X connect 2 0 9 0;
#X connect 3 0 10 0;
#X connect 3 1 15 0;
#X connect 3 2 16 0;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 5 1 6 0;
#X connect 8 0 10 0;
#X connect 9 0 1 0;
#X connect 10 0 14 0;
#X connect 10 1 17 0;
#X connect 11 0 8 0;
#X connect 12 0 1 0;
#X connect 15 0 14 1;
#X connect 15 1 8 0;
#X connect 15 2 2 0;
#X coords 0 -1 1 1 260 120 1 50 300;
#X restore 11 94 pd obj editor;
#X obj 365 328 list prepend open;
#X obj 367 351 list trim;
#X obj 425 46 openpanel;
#X obj 425 22 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 12 29 read \$1;
#X obj 439 214 t b a;
#X msg 23 68 write \$1;
#X obj 364 305 list append;
#X obj 28 49 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 284 306 s \$0-gemtrig;
#X obj 448 88 s \$0-obj;
#X obj 12 9 r \$0-obj;
#X connect 0 0 1 1;
#X connect 1 0 10 0;
#X connect 2 0 1 2;
#X connect 4 0 24 0;
#X connect 5 0 3 0;
#X connect 6 0 3 0;
#X connect 7 0 3 0;
#X connect 8 0 3 0;
#X connect 9 0 10 2;
#X connect 10 0 16 0;
#X connect 11 0 10 1;
#X connect 12 0 13 0;
#X connect 15 0 2 0;
#X connect 15 0 9 0;
#X connect 17 0 3 0;
#X connect 19 0 20 0;
#X connect 20 0 16 0;
#X connect 21 0 26 1;
#X connect 21 0 29 0;
#X connect 22 0 21 0;
#X connect 23 0 18 0;
#X connect 24 0 26 0;
#X connect 24 0 28 0;
#X connect 24 1 1 0;
#X connect 25 0 18 0;
#X connect 26 0 19 0;
#X connect 27 0 25 0;
#X connect 30 0 23 0;