Plant

by NightElfik
Short link: http://malsys.cz/g/L9ApYhM8
Plant

Description

Enhanced plant from The Algorithmic Beauty of Plants by P. Prusinkiewicz and A. Lindenmayer, p 25, fig 1.24c http://malsys.cz/permalink/PDio1WfG

Download output

Additional information

Views & rating

Views: 3718

Rating: 4

Your vote:

Only registered users can vote.

Tags

ABoPPlants

Comments

comments powered by Disqus

Source code

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
lsystem Plant3 {
 
set symbols axiom = F(0);
set initialAngle = 90;
set iterations = 4;
set randomSeed = 0;
set compressSvg = false;
 
interpret F(x) as DrawForward(12, 1+x*2,
darken(#00FF00, random(0 + 0.1*x, 0.3 + 0.05*x)));
interpret + as TurnLeft(22 + random(-5, 5));
interpret - as TurnLeft(-22 + random(-5, 5));
interpret [ as StartBranch;
interpret ] as EndBranch;
 
rewrite F(x) to F(x+1) F(x+1) - [ - F(0) + F(0) + F(0) ] + [ + F(0) - F(0) - F(0) ];
}
 
process all with SvgRenderer;