(load "stk-turtle-stuff")
;##Turtle Contest
;from turtle import *
;speed('fastest')
;(ht)
(setxy  -420 420)
(color 'black)
(begin_fill)
(setxy  -420 -420)

(setxy 420 -420)
(setxy 420 420)
(setxy -420 420)
(end_fill)


(define (design size angle)
	(cond ((< size 80) (define col 'yellow))
		((< size 120)  (define col 'red))
		((< size 150)  (define col 'brown))
		((< size 200)  (define col 'blue))
		((< size 250)  (define col 'green))
		((< size 300)  (define col 'yellow))
		(else (forward (/ size 2))))



	(color col)
	(forward size)
	(right angle)
	(set! size (+  size 1))
	(design size angle))





(setxy 0 0)
;design 0 70)
;(penup)
;(setxy 0 0)
(pendown)
(design 0 89)
(forward 30)