diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2012-11-02 15:36:19 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2012-11-02 15:36:19 +0000 |
commit | c823b2bf3165990a556d50990adf4da5cee95593 (patch) | |
tree | 733f3d3a6ed7a5e8f80d4b4553299902d89b58b8 /packages/noncvs/windows/extra/Gem/examples/02.advanced/21.basic_LSystem.pd | |
parent | 2c0b722536a4ec2f723c289b695b983741c678f8 (diff) |
commit Gem 0.93.3 from http://gem.iem.at/releases/0.93.3/Gem-0.93.3-W32-i686.zip
svn path=/trunk/; revision=16521
Diffstat (limited to 'packages/noncvs/windows/extra/Gem/examples/02.advanced/21.basic_LSystem.pd')
-rw-r--r-- | packages/noncvs/windows/extra/Gem/examples/02.advanced/21.basic_LSystem.pd | 276 |
1 files changed, 138 insertions, 138 deletions
diff --git a/packages/noncvs/windows/extra/Gem/examples/02.advanced/21.basic_LSystem.pd b/packages/noncvs/windows/extra/Gem/examples/02.advanced/21.basic_LSystem.pd index 301b09a4..9fd578c2 100644 --- a/packages/noncvs/windows/extra/Gem/examples/02.advanced/21.basic_LSystem.pd +++ b/packages/noncvs/windows/extra/Gem/examples/02.advanced/21.basic_LSystem.pd @@ -1,138 +1,138 @@ -#N canvas 515 27 647 743 10; -#X obj 15 16 gemhead; -#X obj 76 483 GEMglPushMatrix; -#X obj 96 462 GEMglPopMatrix; -#X floatatom 353 502 5 0 0 0 - - -; -#X obj 15 63 rotateXYZ 0 0 90; -#X floatatom 201 508 5 0 0 0 - - -; -#X floatatom 201 486 5 0 0 0 - - -; -#X obj 262 35 gemhead; -#X obj 262 61 world_light; -#X obj 15 607 translateXYZ 0.05 0 0; -#X obj 15 140 route F; -#X text 271 163 <- rule 1; -#X obj 15 187 route F; -#X msg 15 211 F \, [ \, - \, F \, F \, ] \, F \, [ \, + \, F \, ] \, -F; -#X obj 15 235 route F; -#X text 272 209 <- rule 2; -#X text 271 257 <- rule 3; -#X msg 15 110 F; -#X obj 15 85 t b a; -#X obj 15 558 translateXYZ 0.05 0 0; -#X obj 15 583 rectangle 0.1 0.01; -#X obj 15 41 translateXYZ 0 -3 0; -#X obj 35 530 rotateXYZ 0 0 50; -#X obj 54 506 rotateXYZ 0 0 -40; -#X obj 353 521 / 100; -#X msg 353 479 10; -#X obj 353 456 loadbang; -#X text 243 485 <- try this; -#X text 125 310 <- create the primitive according to the Lsystem; -#X text 270 276 These rules create an Lsystem; -#X text 152 381 <- Store the current state sent by [gemhead] and distribute -it to the corresponding primitives; -#X text 397 502 <- size of the system; -#X msg 15 164 F \, [ \, - \, F \, ] \, F \, [ \, + \, F \, ] \, F; -#X text 12 640 This is a basic implementation of Lindenmayer System -(LSystem) in GEM. Wikipedia is a good place for informations about -Lsystems; -#X obj 15 351 gemlist; -#X obj 47 110 s \$0-gemlist; -#X obj 35 372 gemlist; -#X obj 54 395 gemlist; -#X obj 76 417 gemlist; -#X obj 96 438 gemlist; -#X obj 142 330 r \$0-gemlist; -#X obj 15 309 route F + - [ ]; -#X msg 15 259 F \, [ \, - \, F \, F \, ] \, F \, [ \, + \, F \, ] \, -F; -#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 0 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 377 62 pd gemwin; -#N canvas 0 0 450 300 Gem.init 0; -#X obj 67 72 loadbang; -#X msg 67 93 lighting 1; -#X obj 67 114 outlet; -#X connect 0 0 1 0; -#X connect 1 0 2 0; -#X restore 377 40 pd Gem.init; -#X connect 0 0 21 0; -#X connect 3 0 24 0; -#X connect 4 0 18 0; -#X connect 5 0 22 3; -#X connect 6 0 23 3; -#X connect 7 0 8 0; -#X connect 10 0 32 0; -#X connect 10 1 12 0; -#X connect 12 0 13 0; -#X connect 12 1 14 0; -#X connect 13 0 14 0; -#X connect 14 0 42 0; -#X connect 14 1 41 0; -#X connect 17 0 10 0; -#X connect 18 0 17 0; -#X connect 18 1 35 0; -#X connect 19 0 20 0; -#X connect 20 0 9 0; -#X connect 21 0 4 0; -#X connect 24 0 9 1; -#X connect 24 0 19 1; -#X connect 24 0 20 1; -#X connect 25 0 3 0; -#X connect 26 0 25 0; -#X connect 32 0 12 0; -#X connect 34 0 19 0; -#X connect 36 0 22 0; -#X connect 37 0 23 0; -#X connect 38 0 1 0; -#X connect 39 0 2 0; -#X connect 40 0 34 1; -#X connect 40 0 36 1; -#X connect 40 0 37 1; -#X connect 40 0 38 1; -#X connect 40 0 39 1; -#X connect 41 0 34 0; -#X connect 41 1 36 0; -#X connect 41 2 37 0; -#X connect 41 3 38 0; -#X connect 41 4 39 0; -#X connect 42 0 41 0; -#X connect 44 0 43 0; +#N canvas 515 27 647 743 10;
+#X obj 15 16 gemhead;
+#X obj 76 483 GEMglPushMatrix;
+#X obj 96 462 GEMglPopMatrix;
+#X floatatom 353 502 5 0 0 0 - - -;
+#X obj 15 63 rotateXYZ 0 0 90;
+#X floatatom 201 508 5 0 0 0 - - -;
+#X floatatom 201 486 5 0 0 0 - - -;
+#X obj 262 35 gemhead;
+#X obj 262 61 world_light;
+#X obj 15 607 translateXYZ 0.05 0 0;
+#X obj 15 140 route F;
+#X text 271 163 <- rule 1;
+#X obj 15 187 route F;
+#X msg 15 211 F \, [ \, - \, F \, F \, ] \, F \, [ \, + \, F \, ] \,
+F;
+#X obj 15 235 route F;
+#X text 272 209 <- rule 2;
+#X text 271 257 <- rule 3;
+#X msg 15 110 F;
+#X obj 15 85 t b a;
+#X obj 15 558 translateXYZ 0.05 0 0;
+#X obj 15 583 rectangle 0.1 0.01;
+#X obj 15 41 translateXYZ 0 -3 0;
+#X obj 35 530 rotateXYZ 0 0 50;
+#X obj 54 506 rotateXYZ 0 0 -40;
+#X obj 353 521 / 100;
+#X msg 353 479 10;
+#X obj 353 456 loadbang;
+#X text 243 485 <- try this;
+#X text 125 310 <- create the primitive according to the Lsystem;
+#X text 270 276 These rules create an Lsystem;
+#X text 152 381 <- Store the current state sent by [gemhead] and distribute
+it to the corresponding primitives;
+#X text 397 502 <- size of the system;
+#X msg 15 164 F \, [ \, - \, F \, ] \, F \, [ \, + \, F \, ] \, F;
+#X text 12 640 This is a basic implementation of Lindenmayer System
+(LSystem) in GEM. Wikipedia is a good place for informations about
+Lsystems;
+#X obj 15 351 gemlist;
+#X obj 47 110 s \$0-gemlist;
+#X obj 35 372 gemlist;
+#X obj 54 395 gemlist;
+#X obj 76 417 gemlist;
+#X obj 96 438 gemlist;
+#X obj 142 330 r \$0-gemlist;
+#X obj 15 309 route F + - [ ];
+#X msg 15 259 F \, [ \, - \, F \, F \, ] \, F \, [ \, + \, F \, ] \,
+F;
+#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 0 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 377 62 pd gemwin;
+#N canvas 0 0 450 300 Gem.init 0;
+#X obj 67 72 loadbang;
+#X msg 67 93 lighting 1;
+#X obj 67 114 outlet;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X restore 377 40 pd Gem.init;
+#X connect 0 0 21 0;
+#X connect 3 0 24 0;
+#X connect 4 0 18 0;
+#X connect 5 0 22 3;
+#X connect 6 0 23 3;
+#X connect 7 0 8 0;
+#X connect 10 0 32 0;
+#X connect 10 1 12 0;
+#X connect 12 0 13 0;
+#X connect 12 1 14 0;
+#X connect 13 0 14 0;
+#X connect 14 0 42 0;
+#X connect 14 1 41 0;
+#X connect 17 0 10 0;
+#X connect 18 0 17 0;
+#X connect 18 1 35 0;
+#X connect 19 0 20 0;
+#X connect 20 0 9 0;
+#X connect 21 0 4 0;
+#X connect 24 0 9 1;
+#X connect 24 0 19 1;
+#X connect 24 0 20 1;
+#X connect 25 0 3 0;
+#X connect 26 0 25 0;
+#X connect 32 0 12 0;
+#X connect 34 0 19 0;
+#X connect 36 0 22 0;
+#X connect 37 0 23 0;
+#X connect 38 0 1 0;
+#X connect 39 0 2 0;
+#X connect 40 0 34 1;
+#X connect 40 0 36 1;
+#X connect 40 0 37 1;
+#X connect 40 0 38 1;
+#X connect 40 0 39 1;
+#X connect 41 0 34 0;
+#X connect 41 1 36 0;
+#X connect 41 2 37 0;
+#X connect 41 3 38 0;
+#X connect 41 4 39 0;
+#X connect 42 0 41 0;
+#X connect 44 0 43 0;
|