Teapot Patch

Here is kind of a fun take on Patch's video, model, color, etc. patch.

#N canvas 481 25 749 676 10;
#X text 97 11 Video Geomotry Model Text Effect Color POST on blog as
text;
#X obj 20 129 pix_texture;
#X obj 23 232 rotateXYZ;
#X obj 20 164 pix_motionblur;
#X floatatom 123 146 5 0 100 0 blur - -;
#X obj 125 179 / 100;
#N canvas 815 188 450 300 poursubpatch 0;
#X floatatom 105 174 0 0 0 0 - - -;
#X obj 105 148 + 1;
#X msg 54 151 stop;
#X obj 105 122 float;
#X obj 105 70 trigger bang bang;
#X msg 182 100 0;
#X obj 22 69 select 30;
#X obj 54 220 * -1;
#X floatatom 321 197 0 0 0 0 - - -;
#X obj 321 171 + 1;
#X msg 270 174 stop;
#X obj 321 145 float;
#X obj 321 93 trigger bang bang;
#X msg 398 123 -30;
#X obj 238 92 select 0;
#X obj 105 97 metro 50;
#X obj 321 120 metro 50;
#X obj 91 14 inlet;
#X obj 148 260 outlet;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 1 0 3 1;
#X connect 1 0 6 0;
#X connect 2 0 12 0;
#X connect 2 0 15 0;
#X connect 3 0 1 0;
#X connect 4 0 15 0;
#X connect 4 1 5 0;
#X connect 5 0 3 1;
#X connect 6 0 2 0;
#X connect 7 0 18 0;
#X connect 8 0 18 0;
#X connect 9 0 8 0;
#X connect 9 0 11 1;
#X connect 9 0 14 0;
#X connect 10 0 16 0;
#X connect 11 0 9 0;
#X connect 12 0 16 0;
#X connect 12 1 13 0;
#X connect 13 0 11 1;
#X connect 14 0 10 0;
#X connect 15 0 3 0;
#X connect 16 0 11 0;
#X connect 17 0 4 0;
#X restore 157 235 pd poursubpatch;
#N canvas 383 119 756 502 moviesubpatch 0;
#X obj 46 53 gemhead;
#X obj 100 230 unpack 0 0 0;
#X floatatom 105 268 5 0 0 3 length - -;
#X floatatom 152 267 5 0 0 3 width - -;
#X floatatom 194 268 5 0 0 3 height - -;
#X obj 196 208 bng 15 250 50 0 empty empty end_reached 20 7 0 10 -262144
-1 -1;
#X floatatom 159 183 5 0 10000 1 frame# - -;
#X obj 103 58 openpanel;
#X msg 91 103 open \$1;
#X obj 60 198 pix_film;
#X msg 96 156 auto \$1;
#X obj 116 127 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X msg 160 155 colorspace Grey;
#X msg 291 176 0;
#X text 287 203 looper;
#X obj 184 104 loadbang;
#X obj 173 11 inlet;
#X obj 32 253 outlet;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 1 2 4 0;
#X connect 5 0 13 0;
#X connect 6 0 9 1;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 17 0;
#X connect 9 1 1 0;
#X connect 9 2 5 0;
#X connect 10 0 9 0;
#X connect 11 0 10 0;
#X connect 12 0 9 0;
#X connect 13 0 6 0;
#X connect 15 0 11 0;
#X connect 16 0 7 0;
#X restore 20 99 pd moviesubpatch;
#X obj 28 380 teapot 2 2;
#N canvas 467 65 803 609 textsubpatch 0;
#X obj 332 280 gemhead;
#X obj 332 521 text3d hello world;
#X text 235 62 3-D polygonal text;
#X msg 97 87 1;
#X msg 131 87 0;
#X obj 97 148 metro 250;
#X obj 378 476 loadbang;
#X obj 97 116 t f;
#X msg 378 498 font ../data/vera.ttf;
#X obj 114 21 inlet;
#X obj 183 22 inlet;
#X msg 22 262 text I'm a little teapot;
#X msg 69 285 text short and stout.;
#X msg 121 340 text and here is my spout.;
#X msg 103 313 text Here is my handle;
#X msg 143 379 text When I get all steamed up \,;
#X msg 298 234 text hear me shout.;
#X obj 494 171;
#X floatatom 594 159 5 0 0 0 - - -;
#X msg 462 263 text Just tip me over and pour me out!;
#X obj 82 217 sel 0 1 2 3 4 5;
#X obj 97 179 random 8;
#X floatatom 774 171 0 0 0 0 - - -;
#X obj 774 145 + 1;
#X msg 774 41 bang;
#X msg 683 99 stop;
#X obj 774 119 float;
#X obj 774 67 trigger bang bang;
#X text 932 96 first set value to zero;
#X text 931 67 initialization is in two steps;
#X text 932 115 (before starting the metronome);
#X text 636 122 conditionally;
#X text 636 139 stop the;
#X text 637 153 metronome;
#X text 811 40 <--- click here to start;
#X text 659 5 Here's a counter that counts from 1 to 10:;
#X obj 683 73 select 8;
#X msg 888 99 -1;
#X obj 774 93 metro 1500;
#X obj 567 370 scaleXYZ;
#X floatatom 627 332 5 0 0 0 - - -;
#X obj 566 291 loadbang;
#X floatatom 518 328 5 0 0 0 - - -;
#X obj 461 384 colorRGB;
#X floatatom 470 344 5 0 0 0 - - -;
#X obj 332 307 translateXYZ 0 -5.5 -3.5;
#X msg 507 295 -6;
#X msg 662 306 0.4;
#X connect 0 0 45 0;
#X connect 3 0 7 0;
#X connect 4 0 7 0;
#X connect 5 0 21 0;
#X connect 6 0 8 0;
#X connect 7 0 24 0;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X connect 11 0 1 0;
#X connect 12 0 1 0;
#X connect 13 0 1 0;
#X connect 14 0 1 0;
#X connect 15 0 1 0;
#X connect 16 0 1 0;
#X connect 19 0 1 0;
#X connect 20 0 11 0;
#X connect 20 1 12 0;
#X connect 20 2 14 0;
#X connect 20 3 13 0;
#X connect 20 4 15 0;
#X connect 20 5 16 0;
#X connect 20 6 19 0;
#X connect 22 0 20 0;
#X connect 23 0 22 0;
#X connect 23 0 26 1;
#X connect 23 0 36 0;
#X connect 24 0 27 0;
#X connect 25 0 38 0;
#X connect 26 0 23 0;
#X connect 27 0 38 0;
#X connect 27 1 37 0;
#X connect 36 0 25 0;
#X connect 37 0 26 1;
#X connect 38 0 26 0;
#X connect 39 0 1 0;
#X connect 40 0 39 1;
#X connect 40 0 39 2;
#X connect 40 0 39 3;
#X connect 41 0 47 0;
#X connect 41 0 46 0;
#X connect 42 0 45 2;
#X connect 43 0 39 0;
#X connect 44 0 43 1;
#X connect 44 0 43 2;
#X connect 44 0 43 3;
#X connect 45 0 43 0;
#X connect 46 0 42 0;
#X connect 47 0 40 0;
#X restore 150 329 pd textsubpatch;
#X obj 596 383 cnv 15 100 60 empty empty empty 20 12 0 14 -195568 -66577
0;
#N canvas 0 0 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 603 425 pd gemwin;
#X msg 602 399 destroy;
#X text 596 374 Create window:;
#X obj 19 618 translateXYZ;
#X obj 46 648 model 1.obj;
#X obj 102 543 loadbang;
#X obj 14 583 scaleXYZ;
#X floatatom 43 553 5 0 0 0 - - -;
#X obj 26 351 translateXYZ;
#X obj 43 498 loadbang;
#X obj 51 312 scaleXYZ;
#X obj 89 259 loadbang;
#X msg 80 285 1;
#X msg 44 527 1.2;
#X msg 88 588 2.3;
#X text 126 649 LOAD a model "1.obj";
#X obj 526 58 cnv 15 200 300 empty empty empty 20 40 0 100 -257985
-66577 0;
#X obj 543 90 bng 25 250 50 0 empty empty LOAD_MOVIE 0 -6 0 8 -262144
-1 -1;
#X msg 580 219 bang;
#X text 621 220 Pour the teapot;
#X obj 569 186 hsl 128 15 200 1500 0 0 empty empty EFFECT_BLUR -2 -6
0 10 -262144 -1 -1 3300 1;
#X obj 575 134 tgl 30 0 empty empty ACTIVATE_BLUR 0 -6 0 10 -262144
-1 -1 1 1;
#X obj 571 266 bng 30 250 50 0 empty empty SING! 0 -6 0 10 -262144
-1 -1;
#X floatatom 389 149 5 0 0 0 - - -;
#X obj 255 127 bng 15 250 50 0 empty empty empty 0 -6 0 10 -262144
-1 -1;
#X obj 311 163 metro 500;
#X obj 197 154 random 101;
#X connect 1 0 3 0;
#X connect 2 0 21 0;
#X connect 3 0 2 0;
#X connect 3 0 17 0;
#X connect 4 0 5 0;
#X connect 5 0 3 1;
#X connect 6 0 2 3;
#X connect 7 0 1 0;
#X connect 11 0 12 0;
#X connect 12 0 11 0;
#X connect 14 0 15 0;
#X connect 16 0 25 0;
#X connect 17 0 14 0;
#X connect 18 0 17 1;
#X connect 18 0 17 2;
#X connect 18 0 17 3;
#X connect 19 0 8 0;
#X connect 20 0 24 0;
#X connect 21 0 19 0;
#X connect 22 0 23 0;
#X connect 23 0 21 1;
#X connect 23 0 21 2;
#X connect 23 0 21 3;
#X connect 24 0 18 0;
#X connect 25 0 14 2;
#X connect 28 0 7 0;
#X connect 29 0 6 0;
#X connect 31 0 34 0;
#X connect 32 0 36 0;
#X connect 33 0 9 0;
#X connect 34 0 36 1;
#X connect 35 0 37 0;
#X connect 36 0 35 0;
#X connect 37 0 4 0;