3D Circles

Loading 3D model
of 3D Circles

Source code

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
lsystem Circles3D extends Branches {
 
set symbols axiom = [ X(60) ] + [ X(60) ] + [ X(60) ] + X(60);
 
set iterations = 3;
 
let scale = 3;
interpret F as MoveForward;
interpret K(n) as DrawCircle(n, #FFFFFF, n^(1/3) - 1);
interpret + as Yaw(90);
interpret - as Yaw(-90);
interpret ^ as Pitch(90);
interpret & as Pitch(-90);
 
rewrite K(n) to K(2*n);
rewrite F(n) to F(2*n);
rewrite X to K(2 * scale) F(3 * scale) [ + X ] [ - X ] [ ^ X ] [ & X ] X;
 
}
 
process all with ObjExporter;