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
31
32
33
34
35
36
37
38
|
# von Koch / Snowflake curves
# Bart 2001/05/28
#
# Copyright © 2001 Bart Massey.
# All Rights Reserved. See the file COPYING in this directory
# for licensing information.
# usage: ./snowflake.5c <width> <depth>
# where <width> is the curve width in inches
# and <depth> is the iteration depth
autoimport Turtle;
void
do_flake(int depth, rational scale) {
if (depth == 0) {
stroke_turtle(scale);
return;
}
do_flake(depth - 1, scale / 3);
turn_turtle(-1/6);
do_flake(depth - 1, scale / 3);
turn_turtle(1/3);
do_flake(depth - 1, scale / 3);
turn_turtle(-1/6);
do_flake(depth - 1, scale / 3);
}
if (dim(argv) < 3)
argv = (string[*]) { "snowflake.5c", "3", "3" };
int width = string_to_integer(argv[1]);
real height = sqrt((width / 3) ** 2 - (width / 6) ** 2) + 0.05 * width;
start_turtle("snowflake.eepic", width, height);
move_turtle(0.0, 0.025);
aim_turtle(0.25);
do_flake(string_to_integer(argv[2]), 1.0);
stop_turtle();
|
