30 lines
829 B
Text
30 lines
829 B
Text
$ include "seed7_05.s7i";
|
|
include "float.s7i";
|
|
include "math.s7i";
|
|
include "draw.s7i";
|
|
include "keybd.s7i";
|
|
|
|
const float: DEG_TO_RAD is PI / 180.0;
|
|
|
|
const proc: drawTree (in integer: x1, in integer: y1, in float: angle, in integer: depth) is func
|
|
local
|
|
var integer: x2 is 0;
|
|
var integer: y2 is 0;
|
|
begin
|
|
if depth <> 0 then
|
|
x2 := x1 + trunc(cos(angle * DEG_TO_RAD) * flt(depth * 10));
|
|
y2 := y1 + trunc(sin(angle * DEG_TO_RAD) * flt(depth * 10));
|
|
lineTo(x1, y1, x2, y2, white);
|
|
drawTree(x2, y2, angle - 20.0, depth - 1);
|
|
drawTree(x2, y2, angle + 20.0, depth - 1);
|
|
end if;
|
|
end func;
|
|
|
|
const proc: main is func
|
|
begin
|
|
screen(600, 500);
|
|
clear(curr_win, black);
|
|
KEYBOARD := GRAPH_KEYBOARD;
|
|
drawTree(300, 470, -90.0, 9);
|
|
ignore(getc(KEYBOARD));
|
|
end func;
|