'INCLUDE canvas
INCLUDE canvas-xterm

OPTION VARTYPE double

WINDOW("Turtle Graphics Tree", 560, 700)

INK(0,0,0,255)
CLS

RESETANGLE

PENXY(300, 680)

PEN(1, TRUE)

CALL tree(400)

INK(0, 200, 0, 255)
TEXT("A Beautiful Turtle Tree in ASCII", 20, 30)

INK(255,255,255,255)
TEXT(STR$(TIMER) & " msecs", 10, 650)

WAITKEY

SUB tree(size)

	IF size < 5 THEN
		DRAW(size)
		DRAW(-size)
		EXIT SUB
	ENDIF

	INK(0,200,0,255)
	DRAW(size/3)

	TURN(-30)
	tree(size*2/3)
	TURN(30)

	INK(0,200,0,255)
	DRAW(size/6)

	TURN(25)
	tree(size/2)
	TURN(-25)

	INK(0,200,0,255)
	DRAW(size/3)

	TURN(25)
	tree(size/2)
	TURN(-25)

	INK(139,69,19,255)
	DRAW(size/6)

	DRAW(-size)

END SUB