Here is something .... I hope ....

#N canvas 455 33 976 646 10;

#X obj 13 12 cnv 15 100 60 empty empty empty 20 12 0 14 -195568 -66577

0;

#N canvas 0 22 450 300 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 142 68 set create;

#X msg 198 112 destroy;

#X msg 132 112 create \, 1;

#X connect 2 0 3 0;

#X connect 3 0 4 0;

#X connect 3 0 7 0;

#X connect 3 1 5 0;

#X connect 3 1 6 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 restore 18 51 pd gemwin;

#X msg 18 32 destroy;

#X text 14 11 Create window:;

#X obj 180 -43 gemhead;

#X floatatom 224 301 5 0 100 1 size - -;

#X msg 188 199 font \$1;

#X obj 188 180 openpanel;

#X obj 188 163 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1

-1;

#X floatatom 276 114 5 0 0 0 - - -;

#X floatatom 195 111 4 0 0 0 - - -;

#X obj 178 136 rotateXYZ;

#X obj 177 326 textextruded;

#X msg 204 282 depth \$1;

#X floatatom 204 263 5 0 0 1 depth - -;

#X floatatom 232 112 5 0 0 0 - - -;

#X msg 196 226 text 3D Text Rules!;

#X obj 350 205 pix_texture;

#X obj 478 184 hsl 128 15 0 360 0 0 empty empty X 12 8 1 12 -233017

-1 -1 0 1;

#X obj 476 206 hsl 128 15 0 360 0 0 empty empty Y 12 8 1 12 -233017

-1 -1 0 1;

#X obj 476 226 hsl 128 15 0 360 0 0 empty empty Z 12 8 1 12 -233017

-1 -1 800 1;

#X obj 350 245 rotateXYZ 0 0 0;

#X obj 477 251 hsl 128 15 0 1 0 1 empty empty R 12 8 1 12 -261689 -1

-1 12700 1;

#X obj 477 278 hsl 128 15 0 1 0 1 empty empty G 12 8 1 12 -225271 -1

-1 12700 1;

#X obj 478 303 hsl 128 15 0 1 0 1 empty empty B 12 8 1 12 -228992 -1

-1 12700 1;

#X obj 350 104 pix_video;

#X obj 350 153 pix_threshold;

#X floatatom 478 112 5 0 100 1 threshold - -;

#X obj 481 77 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 10 -228856

-1 -1 3000 1;

#X obj 476 338 hsl 128 15 0.5 5 0 1 empty empty empty -2 -6 0 10 -232576

-1 -1 3600 1;

#X floatatom 478 357 5 0 0 1 size - -;

#X obj 476 378 hsl 128 15 5 50 0 1 empty empty empty -2 -6 0 10 -204800

-1 -1 0 1;

#X floatatom 478 397 5 0 0 1 segments - -;

#X obj 350 400 sphere;

#X msg 475 133 0.1 0.1 0.1;

#X text 480 65 comment;

#X msg 352 35 device 0;

#N canvas 162 133 570 420 serin 0;

#X obj 205 60 cnv 20 20 20 empty \$0-open-canvas 0 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 0;

#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 352 11 pd serin;

#X text 741 19 on;

#X text 785 20 off;

#X obj 849 107 int 0;

#X obj 909 107 + 2;

#X floatatom 832 141 0 0 0 0 - - -;

#X obj 643 393 sphere;

#X obj 829 78 metro 50;

#X msg 734 45 1;

#X msg 771 47 0;

#X obj 680 331 r initstuff;

#X obj 643 302 pix_texture;

#X obj 643 220 translateXYZ 2 0 0;

#X msg 680 365 30;

#X obj 643 46 color 0 0 1;

#X text 196 403 on;

#X text 235 401 off;

#X msg 9 427 1;

#X msg 45 429 0;

#X msg 190 429 1;

#X msg 228 429 0;

#X obj 266 447 gemhead 1;

#X obj 87 489 world_light;

#X obj 87 434 gemhead 1;

#X obj 266 503 light;

#X text 88 380 global light;

#X text 263 380 local light;

#X text 15 405 on;

#X text 45 406 off;

#X obj 643 176 rotateXYZ 0 0 0;

#X obj 682 114 int 0;

#X obj 734 115 + 2;

#X floatatom 682 147 0 0 0 0 - - -;

#X obj 682 80 metro 50;

#X obj 765 106 int 0;

#X obj 815 106 + 2;

#X floatatom 763 142 0 0 0 0 - - -;

#X obj 758 79 metro 50;

#X obj 348 311 colorRGB 1 1 1;

#X obj 643 269 colorRGB 1 1 1;

#X obj 762 246 hsl 128 15 0 1 0 1 empty empty R 12 8 1 12 -261689 -1

-1 10000 1;

#X obj 762 266 hsl 128 15 0 1 0 1 empty empty G 12 8 1 12 -225271 -1

-1 7200 1;

#X obj 763 288 hsl 128 15 0 1 0 1 empty empty B 12 8 1 12 -228992 -1

-1 2400 1;

#X floatatom 41 111 5 0 0 0 - - -;

#X floatatom 79 110 5 0 0 0 - - -;

#X floatatom 122 111 5 0 0 0 - - -;

#X obj 0 133 translateXYZ 0 0 0;

#X text 170 94;

#X obj 562 -13 gemhead 3;

#X obj 141 30 gemhead 5;

#X floatatom 504 447 5 0 0 0 - - -;

#X floatatom 517 463 5 0 0 0 - - -;

#X floatatom 546 478 5 0 0 0 - - -;

#X floatatom 561 505 5 0 0 0 - - -;

#X obj 493 535 ripple;

#X obj 413 485 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144

-1 -1;

#X connect 1 0 2 0;

#X connect 2 0 1 0;

#X connect 4 0 25 0;

#X connect 5 0 12 1;

#X connect 6 0 12 0;

#X connect 7 0 6 0;

#X connect 8 0 7 0;

#X connect 9 0 11 3;

#X connect 10 0 11 1;

#X connect 11 0 12 0;

#X connect 13 0 12 0;

#X connect 14 0 13 0;

#X connect 15 0 11 2;

#X connect 16 0 12 0;

#X connect 17 0 21 0;

#X connect 18 0 21 1;

#X connect 19 0 21 2;

#X connect 20 0 21 3;

#X connect 21 0 75 0;

#X connect 22 0 75 1;

#X connect 23 0 75 2;

#X connect 24 0 75 3;

#X connect 25 0 26 0;

#X connect 26 0 17 0;

#X connect 28 0 27 0;

#X connect 28 0 26 1;

#X connect 29 0 30 0;

#X connect 29 0 33 1;

#X connect 31 0 32 0;

#X connect 31 0 33 2;

#X connect 34 0 26 2;

#X connect 36 0 25 0;

#X connect 37 0 36 0;

#X connect 40 0 41 0;

#X connect 40 0 42 0;

#X connect 41 0 40 1;

#X connect 42 0 66 3;

#X connect 44 0 40 0;

#X connect 45 0 44 0;

#X connect 45 0 70 0;

#X connect 45 0 74 0;

#X connect 46 0 44 0;

#X connect 46 0 41 0;

#X connect 46 0 70 0;

#X connect 46 0 68 0;

#X connect 46 0 74 0;

#X connect 46 0 72 0;

#X connect 47 0 50 0;

#X connect 48 0 43 0;

#X connect 49 0 76 0;

#X connect 50 0 43 2;

#X connect 51 0 66 0;

#X connect 54 0 59 0;

#X connect 55 0 59 0;

#X connect 56 0 61 0;

#X connect 57 0 61 0;

#X connect 58 0 61 0;

#X connect 60 0 59 0;

#X connect 66 0 49 0;

#X connect 67 0 68 0;

#X connect 67 0 69 0;

#X connect 68 0 67 1;

#X connect 69 0 66 1;

#X connect 70 0 67 0;

#X connect 71 0 72 0;

#X connect 71 0 73 0;

#X connect 72 0 71 1;

#X connect 73 0 66 2;

#X connect 74 0 71 0;

#X connect 75 0 91 0;

#X connect 75 0 33 0;

#X connect 76 0 48 0;

#X connect 77 0 76 1;

#X connect 78 0 76 2;

#X connect 79 0 76 3;

#X connect 80 0 83 1;

#X connect 81 0 83 2;

#X connect 82 0 83 3;

#X connect 83 0 11 0;

#X connect 85 0 51 0;

#X connect 86 0 83 0;

#X connect 87 0 91 1;

#X connect 88 0 91 2;

#X connect 89 0 91 3;

#X connect 90 0 91 4;

#X connect 92 0 91 0;