[PD] Who needs freaking GEM for 3D?

Sat Aug 20 11:25:09 CEST 2005

Hi,

attached is some weekend fun with projective geometry and data
structures. 

Enjoy the dance!

Ciao
-- 
 Frank Barknecht                               _ ______footils.org__

          _ __latest track: "plak" @ http://footils.org/cms/show/44
-------------- next part --------------
#N struct rect float x float y float z;
#N canvas 801 54 362 178 10;
#N canvas 0 0 793 697 view 1;
#X scalar rect 261.077 439.846 73.1282 \;;
#X scalar rect 222.923 148.923 23.8462 \;;
#X scalar rect 490 221.143 95.6571 \;;
#X scalar rect 325.628 130.512 54.7907 \;;
#X scalar rect 556.384 323.313 31.3131 \;;
#X scalar rect 335.689 327.822 46.8444 \;;
#X scalar rect 364.558 446.279 54.7907 \;;
#X scalar rect 197.258 318.845 34.5155 \;;
#X scalar rect 461.385 152.5 23.8462 \;;
#X scalar rect 748.877 298.526 145.754 \;;
#X scalar rect 133.326 195.865 48.764 \;;
#X scalar rect 145.193 393.158 10.8772 \;;
#X scalar rect 169.855 213.091 155.564 \;;
#X scalar rect 428.925 432.657 105.493 \;;
#X scalar rect 562.783 275.826 210.261 \;;
#X scalar rect 474.97 368.404 31.3131 \;;
#X scalar rect 172.185 335.765 5.21008 \;;
#X scalar rect 270.837 498.186 54.7907 \;;
#X scalar rect 114.737 335.509 10.8772 \;;
#X scalar rect 432.769 184.692 23.8462 \;;
#X scalar rect 507.947 265.895 78.3158 \;;
#X scalar rect 42.764 246.022 48.764 \;;
#X restore 125 56 pd view;
#N canvas 576 251 610 508 paint 0;
#X scalar rect 208 339 46 \;;
#X scalar rect 206 152 20 \;;
#X scalar rect 328 198 54 \;;
#X scalar rect 262 142 38 \;;
#X scalar rect 468 292 25 \;;
#X scalar rect 276 284 34 \;;
#X scalar rect 289 361 38 \;;
#X scalar rect 180 286 27 \;;
#X scalar rect 406 155 20 \;;
#X scalar rect 408 228 67 \;;
#X scalar rect 129 188 35 \;;
#X scalar rect 143 375 10 \;;
#X scalar rect 141 188 69 \;;
#X scalar rect 286 311 57 \;;
#X scalar rect 283 208 78 \;;
#X scalar rect 403 328 25 \;;
#X scalar rect 170 329 5 \;;
#X scalar rect 224 397 38 \;;
#X scalar rect 115 322 10 \;;
#X scalar rect 382 182 20 \;;
#X scalar rect 357 228 48 \;;
#X scalar rect 64 224 35 \;;
#X restore 189 57 pd paint;
#N canvas 0 0 450 300 rect 0;
#X obj 115 94 struct rect float x float y float z;
#X obj 111 151 filledpolygon 900 0 1 0 0 0 z z z z 0;
#X restore 195 77 pd rect;
#N canvas 386 353 450 300 append 0;
#X obj 218 110 pointer;
#X obj 104 135 append rect x y z;
#X msg 220 84 traverse pd-paint \, bang;
#X msg 102 96 10 10 10;
#X connect 0 0 1 3;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X restore 126 77 pd append;
#N canvas 200 277 696 523 project 0;
#X msg 149 94 traverse pd-paint;
#X msg 83 63 next;
#X msg 286 92 traverse pd-view;
#X obj 153 26 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 150 150 get rect x y z;
#X obj 153 361 set rect x y z;
#X obj 36 278 expr $f1 / (1 - $f2/$f3);
#X obj 224 278 expr $f1 / (1 - $f2/$f3);
#X obj 410 273 expr $f1 / (1 - $f2/$f3);
#X obj 88 92 t a a;
#X obj 83 39 until;
#X obj 183 59 t b b b;
#X obj 444 44 t b f;
#X obj 441 16 r z0;
#X obj 286 121 pointer rect;
#X obj 149 121 pointer rect;
#X obj 450 226 t f f;
#X obj 211 311 + 50;
#X obj 102 306 + 50;
#X obj 137 199 - 50;
#X obj 229 202 - 50;
#X obj 224 32 metro 40;
#X obj 244 4 inlet;
#X obj 79 170 r x0;
#X obj 246 177 r y0;
#X connect 0 0 15 0;
#X connect 1 0 9 0;
#X connect 2 0 14 0;
#X connect 3 0 11 0;
#X connect 4 0 19 0;
#X connect 4 1 20 0;
#X connect 4 2 6 1;
#X connect 4 2 7 1;
#X connect 4 2 16 0;
#X connect 6 0 18 0;
#X connect 7 0 17 0;
#X connect 8 0 5 2;
#X connect 9 0 15 0;
#X connect 9 1 14 0;
#X connect 10 0 1 0;
#X connect 11 0 10 0;
#X connect 11 1 0 0;
#X connect 11 2 2 0;
#X connect 12 0 11 0;
#X connect 12 1 8 2;
#X connect 12 1 7 2;
#X connect 12 1 6 2;
#X connect 13 0 12 0;
#X connect 14 0 5 3;
#X connect 15 0 4 0;
#X connect 15 1 1 0;
#X connect 15 2 10 1;
#X connect 16 0 8 0;
#X connect 16 1 8 1;
#X connect 17 0 5 1;
#X connect 18 0 5 0;
#X connect 19 0 6 0;
#X connect 20 0 7 0;
#X connect 21 0 11 0;
#X connect 22 0 21 0;
#X connect 23 0 19 1;
#X connect 23 0 18 1;
#X connect 24 0 20 1;
#X connect 24 0 17 1;
#X restore 255 78 pd project;
#X obj 255 56 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 11 50 cnv 15 80 100 empty empty view 20 5 1 14 -233017 -66577
0;
#X obj 22 124 nbx 5 14 -1e+37 1e+37 0 0 z0 z0 z0 0 -6 0 10 -262144
-1 -1 124 256;
#X obj 22 74 nbx 5 14 -1e+37 1e+37 0 0 x0 x0 x0 0 -6 0 10 -262144 -1
-1 118 256;
#X obj 22 99 nbx 5 14 -1e+37 1e+37 0 0 y0 y0 y0 0 -6 0 10 -262144 -1
-1 168 256;
#N canvas 600 316 450 300 dance 0;
#X obj 271 99 random 300;
#X obj 271 195 s z0;
#X obj 92 101 random 1000;
#X obj 190 99 random 800;
#X obj 190 195 s y0;
#X obj 92 197 s x0;
#X obj 153 42 inlet;
#X obj 154 65 metro 300;
#X obj 212 39 inlet;
#X obj 271 164 line 0 40;
#X obj 190 164 line 0 40;
#X obj 92 166 line 0 40;
#X obj 92 134 pack 0 300;
#X obj 190 132 pack 0 300;
#X obj 271 132 pack 0 300;
#X connect 0 0 14 0;
#X connect 2 0 12 0;
#X connect 3 0 13 0;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 7 0 0 0;
#X connect 8 0 7 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 8 0 14 1;
#X connect 9 0 1 0;
#X connect 10 0 4 0;
#X connect 11 0 5 0;
#X connect 12 0 11 0;
#X connect 13 0 10 0;
#X connect 14 0 9 0;
#X restore 129 134 pd dance;
#X obj 129 114 tgl 15 0 empty empty click_me 0 -6 0 10 -258699 -1 -1
0 1;
#X floatatom 180 115 5 50 2000 1 speed - -;
#X connect 5 0 4 0;
#X connect 11 0 10 0;
#X connect 12 0 10 1;