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

(setxy 320 -320)
(setxy 320 320)
(setxy -320 320)
(end_fill)


(define (design size angle)
	(cond ((< size 20) (define col 'yellow))
		((< size 50)  (define col 'red))
		((< size 70)  (define col 'brown))
		((< size 100)  (define col 'blue))
		((< size 120)  (define col 'green))
		((< size 140)  (define col 'yellow))
		(else (forward (/ size 2))))



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



;lst = ["black","blue","green","yellow","red","brown"] how to do this?

(define (circles i ang)
    (color 'red)
    (seth ang)
    (circle 100)
    (if (< ang  360)
    	(set! ang (*  ang 3))
        (back 5)
	(set! i (+  i 3))
        (circles i ang)))


(setxy 0 0)
;design 0 70)
(penup)
(setxy 0 0)
(pendown)
(design 0 89)
(penup)
((setxy 0 90)
(pendown)
(circles 0 0)
(done)