Mycelis muralis (plant growth)

Mycelis muralis (plant growth)

Source code

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
lsystem MycelisMuralis extends StdLsystem {
 
set symbols axiom = I(20) F A(0);
set iterations = 50;
set initialAngle = 90;
set scale = 4;
 
set symbols contextIgnore = + / F W I K;
 
interpret K as DrawSphere(3);
 
rewrite {S} A to T V K;
rewrite {V} A to T V K;
 
rewrite A(t) where t > 0 to A(t-1);
rewrite A(t) to M [ +(30) G ] F /(180) A(2);
 
rewrite {S} M to S;
rewrite S {T} to T;
rewrite {T} G to F A(2);
rewrite {V} M to S;
rewrite T {V} to W;
rewrite W to V;
 
rewrite I(t) where t > 0 to I(t - 1);
rewrite I to S;
 
}
 
process all with SvgRenderer;