[PD] re:Lindenmayer system in pd / GEM

Thu Mar 1 13:26:59 CET 2007

Hi List..

I came across these patches by Cyrille Henry, the postings are from  
august 2006.

when i try to open the patches i am missing "rule" and "rule2".  
Strange that nobody mentioned it back then.

Well i was just curious to see how its done in GEM.

Best Regards Luigi

See below, for an example

------------------------------------------------------------------------ 
----------------------------------------------

#N canvas 561 190 503 642 10;
#X obj 37 108 gemhead;
#N canvas 0 0 558 408 + 0;
#X obj 29 20 inlet;
#X obj 28 69 translateXYZ 0 0 0;
#X obj 29 46 rotateXYZ 0 0 30;
#X obj 105 19 inlet;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 3 0 2 3;
#X restore 68 472 pd +;
#N canvas 0 0 554 404 - 0;
#X obj 29 20 inlet;
#X obj 28 69 translateXYZ 0 0 0;
#X obj 29 46 rotateXYZ 0 0 -30;
#X obj 132 18 inlet;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 3 0 2 3;
#X restore 92 494 pd -;
#X obj 37 351 any;
#X obj 68 351 any;
#X obj 92 351 any;
#X obj 118 518 GEMglPushMatrix;
#X obj 146 545 GEMglPopMatrix;
#X obj 118 352 any;
#X obj 146 352 any;
#X floatatom 214 282 5 0 0 0 - - -;
#X obj 37 156 rotateXYZ 0 0 90;
#X floatatom 260 431 5 0 0 0 - - -;
#X obj 231 363 line;
#X floatatom 231 320 5 0 0 0 - - -;
#X msg 231 340 \$1 100;
#X floatatom 241 387 5 0 0 0 - - -;
#X msg 231 300 0.2;
#X obj 37 232 rule;
#N canvas 189 124 601 813 F 0;
#X obj 28 20 inlet;
#X obj 284 140 inlet;
#X obj 28 261 translateXYZ 0.05 0 0;
#X obj 28 288 rotateXYZ;
#X obj 337 143 inlet;
#X obj 385 146 inlet;
#X obj 28 189 rotateXYZ 0 90 0;
#X obj 28 238 rotateXYZ 0 -90 0;
#X obj 34 562 rotateXYZ;
#X obj 28 93 t a b;
#X obj 170 386 random 1000;
#X obj 170 465 *;
#X obj 248 387 random 1000;
#X msg 170 361 seed \$1;
#X obj 248 338 + 1;
#X msg 248 362 seed \$1;
#X obj 248 468 *;
#X obj 78 385 random 1000;
#X obj 78 331 r rand_seed;
#X obj 117 430 r rand;
#X obj 78 461 *;
#X msg 78 357 seed \$1;
#X obj 170 335 + 1;
#X obj 78 410 - 500;
#X obj 170 412 - 500;
#X obj 248 412 - 500;
#X obj 106 19 inlet;
#X obj 106 48 unpack f f;
#X text 175 46 size \, order;
#X obj 116 73 - 1;
#X obj 74 78 / 300;
#X obj 114 128 / 300;
#X obj 74 502 *;
#X obj 165 505 *;
#X obj 243 504 *;
#X obj 317 440 + 1;
#X obj 34 588 spigot;
#X msg 190 572 1;
#X msg 217 576 0;
#X obj 34 612 color 0 1 0;
#X obj 28 161 color 0.6 0.6 0.6;
#X obj 34 635 scaleXYZ 1 0.33 0.1;
#X obj 34 683 scaleXYZ 1 3 10;
#X obj 34 659 sphere 0.05;
#X obj 197 542 sel 1;
#X obj 111 99 max 1;
#X obj 28 214 tube 0.02 0.02 1 10;
#X connect 0 0 9 0;
#X connect 1 0 2 1;
#X connect 1 0 46 3;
#X connect 2 0 3 0;
#X connect 3 0 8 0;
#X connect 4 0 3 3;
#X connect 5 0 3 1;
#X connect 6 0 46 0;
#X connect 7 0 2 0;
#X connect 8 0 36 0;
#X connect 9 0 40 0;
#X connect 9 1 10 0;
#X connect 9 1 17 0;
#X connect 9 1 12 0;
#X connect 10 0 24 0;
#X connect 11 0 33 0;
#X connect 12 0 25 0;
#X connect 13 0 10 0;
#X connect 14 0 15 0;
#X connect 15 0 12 0;
#X connect 16 0 34 0;
#X connect 17 0 23 0;
#X connect 18 0 21 0;
#X connect 18 0 22 0;
#X connect 19 0 20 1;
#X connect 19 0 11 1;
#X connect 19 0 16 1;
#X connect 20 0 32 0;
#X connect 21 0 17 0;
#X connect 22 0 13 0;
#X connect 22 0 14 0;
#X connect 23 0 20 0;
#X connect 24 0 11 0;
#X connect 25 0 16 0;
#X connect 26 0 27 0;
#X connect 27 0 29 0;
#X connect 27 0 30 0;
#X connect 27 1 35 0;
#X connect 27 1 44 0;
#X connect 29 0 45 0;
#X connect 30 0 46 1;
#X connect 31 0 46 2;
#X connect 32 0 8 1;
#X connect 33 0 8 2;
#X connect 34 0 8 3;
#X connect 35 0 34 1;
#X connect 35 0 33 1;
#X connect 35 0 32 1;
#X connect 36 0 39 0;
#X connect 37 0 36 1;
#X connect 38 0 36 1;
#X connect 39 0 41 0;
#X connect 40 0 6 0;
#X connect 41 0 43 0;
#X connect 43 0 42 0;
#X connect 44 0 37 0;
#X connect 44 1 38 0;
#X connect 45 0 31 0;
#X connect 46 0 7 0;
#X restore 37 446 pd F ---------;
#X obj 37 182 t b a b;
#X obj 111 226 s rand_seed;
#X obj 223 170 s rand;
#X obj 223 148 / 1000;
#X floatatom 223 130 5 0 0 0 - - -;
#X floatatom 309 457 5 0 0 0 - - -;
#X obj 37 298 route F + - [ ];
#X obj 68 323 t b;
#X obj 92 323 t b;
#X obj 118 323 t b;
#X obj 146 324 t b;
#X obj 37 323 t b l;
#X msg 37 207 F 1 0;
#X msg 260 409 30;
#X msg 309 434 -30;
#X obj 37 275 rule;
#X obj 37 254 rule;
#X msg 214 259 0.24;
#X obj 37 133 translateXYZ 1 -3 0;
#X msg 111 205 15;
#X obj 38 11 gemhead;
#X obj 38 33 world_light;
#X msg 223 107 -34;
#X obj 214 231 loadbang;
#X obj 223 84 loadbang;
#X obj 38 82 gemwin;
#X msg 38 57 create \, 1 \, lighting 1;
#X text 43 594 same exemple as the previus one \, but with some random.;
#X text 42 616 you nead a good graphyc card to load that patch.;
#X connect 0 0 38 0;
#X connect 3 0 19 0;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 8 0 6 0;
#X connect 9 0 7 0;
#X connect 10 0 19 2;
#X connect 11 0 20 0;
#X connect 12 0 1 1;
#X connect 13 0 19 3;
#X connect 14 0 15 0;
#X connect 15 0 13 0;
#X connect 16 0 19 4;
#X connect 17 0 14 0;
#X connect 18 0 36 0;
#X connect 20 0 32 0;
#X connect 20 1 3 1;
#X connect 20 1 4 1;
#X connect 20 1 5 1;
#X connect 20 1 8 1;
#X connect 20 1 9 1;
#X connect 20 2 39 0;
#X connect 23 0 22 0;
#X connect 24 0 23 0;
#X connect 25 0 2 1;
#X connect 26 0 31 0;
#X connect 26 1 27 0;
#X connect 26 2 28 0;
#X connect 26 3 29 0;
#X connect 26 4 30 0;
#X connect 27 0 4 0;
#X connect 28 0 5 0;
#X connect 29 0 8 0;
#X connect 30 0 9 0;
#X connect 31 0 3 0;
#X connect 31 1 19 1;
#X connect 32 0 18 0;
#X connect 33 0 12 0;
#X connect 34 0 25 0;
#X connect 35 0 26 0;
#X connect 36 0 35 0;
#X connect 37 0 10 0;
#X connect 38 0 11 0;
#X connect 39 0 21 0;
#X connect 40 0 41 0;
#X connect 42 0 24 0;
#X connect 43 0 37 0;
#X connect 43 0 17 0;
#X connect 44 0 42 0;
#X connect 46 0 45 0;