#N canvas 515 61 647 743 10;
#X declare -lib Gem;
#X obj 15 16 gemhead;
#X obj 76 483 GEMglPushMatrix;
#X obj 96 462 GEMglPopMatrix;
#X floatatom 353 502 5 0 0 0 - - - 0;
#X obj 15 63 rotateXYZ 0 0 90;
#X floatatom 201 508 5 0 0 0 - - - 0;
#X floatatom 201 486 5 0 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 information 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;
#X obj 528 8 declare -lib Gem;
#X obj 377 62 _gemwin \; 0 \; 0 \; lighting 1;
#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;
