;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <From Squares To Circles>
;;;
;;; Description:
;;;   <Circles hide away
;;;    Invisible in the squares
;;;    And wait to be seen.>

(define (draw)
  (repeat 16 22.5 square 0 0 230)  
  (color "red")
  (repeat 25 15 flower 180 270 0)

  (exitonclick))

(define (repeat n turn fn x y z)
  (cond 
    ((> n 0)
     (fn x y z) (return) (right turn) (repeat (- n 1) turn fn x y z) )
  )
)

(define (return)
	(Penup)
  (goto 0 0)
  (Pendown)
)

(define (square n times max)
	(cond
		( (< times 3)
			(forward n) (right 90) (square n (+ times 1) max) )
		( (< n max)
			(forward (+ n 5)) (right 90) (square (+ n 5) 0 max)
		)
	)
)

(define (flower size degrees placebo)
  (circle size degrees)
)

; Please leave this last line alone.  You may add additional procedures above
; this line.  All Scheme tokens in this file (including the one below) count
; toward the token limit.
(draw)