Michal curve 4

Michal curve 4

Source code

1
2
3
4
5
6
7
8
9
10
11
12
13
14
lsystem MichalCurve {
 
set symbols axiom = R(1);
set iterations = 3;
set initialAngle = 270;
 
interpret F as DrawForward(8);
interpret T(x) as TurnLeft(x*90);
 
rewrite R(x) to T(-x) R(-x) F R(-x) F R(-x) F T(x) R(x) F R(x) F R(x) F R(x) T(x) F R(-x) F T(x) R(x) F R(x) T(x) F R(-x) T(-x) F T(-x) R(-x) F R(-x) F R(-x) T(-x) F R(x) F R(x);
}
 
process all with SvgRenderer;

Thumbnail extension

1
2
3
lsystem MichalCurveThumbnail extends MichalCurve{
set iterations = 2;
}