The winning code!!!

#N canvas 202 107 1228 617 12;
#X floatatom 414 85 0 0 0 0 - - -;
#X obj 385 134 translate;
#X msg 452 86 0 0 1;
#X obj 385 44 gemhead;
#X msg 501 163 0 1 0;
#X obj 385 205 rotate;
#X floatatom 403 165 0 0 0 0 - - -;
#X text 185 21 load in a model file;
#X obj 501 37 loadbang;
#X obj 33 85 cnv 15 220 70 empty empty empty 20 12 0 14 -195568 -66577
0;
#N canvas 0 22 454 304 gemwin 0;
#X obj 132 136 gemwin;
#X obj 67 89 outlet;
#X obj 67 10 inlet;
#X obj 67 41 route create;
#X msg 67 70 set destroy;
#X msg 182 68 set create;
#X msg 132 112 create \, 1;
#X msg 238 112 destroy;
#N canvas 87 154 247 179 Gem.init 0;
#X obj 59 26 loadbang;
#X msg 118 81 reset;
#X obj 118 113 outlet;
#X obj 59 45 t b b;
#X msg 51 75 lighting 1;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 3 0 4 0;
#X connect 3 1 1 0;
#X connect 4 0 2 0;
#X restore 289 80 pd Gem.init;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 6 0;
#X connect 3 1 5 0;
#X connect 3 1 7 0;
#X connect 4 0 1 0;
#X connect 5 0 1 0;
#X connect 6 0 0 0;
#X connect 7 0 0 0;
#X connect 8 0 0 0;
#X restore 38 129 pd gemwin;
#X msg 38 105 destroy;
#X text 34 85 Create window and render;
#X text 69 378 Gem can load 3d-models in the alias|wavefront .obj format
;
#X obj 657 379 cnv 15 500 40 empty empty empty 20 12 0 14 -245500 -66577
0;
#X obj 578 277 gemhead;
#X obj 613 482 pix_texture;
#X obj 578 428 pix_video;
#X msg 665 389 dialog;
#X text 572 215 Click on the [create( message to see live video in
Gem. (You must have a camera attached before loading this patch).;
#X text 722 387 pop-up dialog to configure the camera (Windows and
Mac OS X);
#X msg 621 338 device 1;
#N canvas 162 133 570 420 serin 0;
#X obj 205 60 cnv 20 20 20 empty \$0-open-canvas 1 4 10 0 16 -233017
-1 0;
#X obj 60 61 hradio 18 1 1 8 empty empty empty 0 -6 0 8 -225271 -1
-1 1;
#X obj 60 13 inlet;
#X msg 200 202 label \$1;
#X obj 200 180 makefilename %d;
#X obj 59 108 int;
#X obj 59 337 outlet;
#X msg 201 306 set \$1 \$2;
#X obj 59 266 trigger bang anything;
#X obj 201 286 list;
#X obj 200 225 send \$0-open-canvas;
#X msg 60 210 device \$1;
#X connect 1 0 5 0;
#X connect 2 0 1 0;
#X connect 3 0 10 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 5 0 11 0;
#X connect 7 0 6 0;
#X connect 8 0 6 0;
#X connect 8 1 9 0;
#X connect 9 0 7 0;
#X connect 11 0 8 0;
#X coords 0 -1 1 1 165 20 1 60 60;
#X restore 621 314 pd serin;
#N canvas 340 107 682 322 gemwin 0;
#X obj 102 122 tgl 15 0 \$0-gemstart \$0-gemstart empty 17 7 0 10 -262144
-1 -1 1 1;
#X obj 102 161 r \$0-gemstart;
#X obj 102 182 select 1 0;
#X msg 102 214 create \, 1;
#X msg 177 215 destroy;
#X obj 102 239 t a;
#X obj 318 54 inlet;
#X obj 318 255 gemwin;
#X obj 318 100 t a a;
#X obj 318 287 outlet;
#X obj 350 128 route create destroy;
#X obj 350 150 t b;
#X msg 350 172 1;
#X obj 390 150 t b;
#X msg 390 172 0;
#X obj 350 195 t f;
#X msg 350 219 set \$1;
#X text 118 122 rendering;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 4 0;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 8 1 10 0;
#X connect 10 0 11 0;
#X connect 10 1 13 0;
#X connect 11 0 12 0;
#X connect 12 0 15 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 0 0;
#X coords 0 -1 1 1 85 40 1 100 100;
#X restore 1025 503 pd gemwin;
#X obj 385 255 model venus.obj;
#X obj 212 283 gemhead 1;
#X obj 212 321 world_light;
#X connect 0 0 1 1;
#X connect 1 0 5 0;
#X connect 2 0 1 2;
#X connect 3 0 1 0;
#X connect 4 0 5 2;
#X connect 5 0 24 0;
#X connect 6 0 5 1;
#X connect 8 0 2 0;
#X connect 8 0 4 0;
#X connect 10 0 11 0;
#X connect 11 0 10 0;
#X connect 15 0 17 0;
#X connect 16 0 24 0;
#X connect 17 0 16 0;
#X connect 18 0 17 0;
#X connect 21 0 17 0;
#X connect 22 0 21 0;
#X connect 25 0 26 0;