Islands and lakes colored

Islands and lakes colored

Source code

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
lsystem IslandsAndLakesColored {
 
let darkColor = #000000;
let lightColor = #FFFFFF;
 
set symbols axiom = <(darkColor,0) . f. - f. - f. - f. >;
set iterations = 2;
set reversePolygonOrder = true;
 
interpret f g as MoveForward(8);
interpret + as TurnLeft(90);
interpret - as TurnLeft(-90);
interpret < as StartPolygon(0, 0);
interpret . as RecordPolygonVertex;
interpret > as EndPolygon;
 
rewrite f to f + g <(darkColor, 0) . f. - f. f. - f. - f. f. > + g + f f
- g <(lightColor, 0) . f. + f. f. + f. + f. f. > - g - f f f;
rewrite g to g g g g g g;
}
 
process all with SvgRenderer;