;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Spiraling Away>
;;;
;;; Description:
;;;   <Going out of the screen,
;;;    Or pointing into the screen?
;;;    Use the right-hand-rule.>

(define (draw)
  (define (rounded-square r l h)
  	(setheading (+ h 45))
  	(circle r 45)
  	(fd l)
  	(circle r 90)
  	(fd l)
  	(circle r 90)
  	(fd l)
  	(circle r 90)
  	(fd l)
  	(circle r 45)
  )

  (define (repeat-seq n)
  	(if (<= n 23)
  	  (begin 
  	  	(draw-seq n)
		(repeat-seq (+ n 1))
  	  )
  	)
  )

  (define (draw-seq n)
  	(begin
  	  (pu)
  	  (setposition (* 480 (cos (* 0.0714 n))) (- (* 480 (sin (* 0.0714 n))) 480))
	  (setheading (* -2 n))
	  (pd)
	  (if (even? n)
 		(color (rgb (* n 0.0435) (* n 0.0435) (* n 0.0435)))
 		(color (rgb (* n 0.0432) (* n 0.0432) 1))
	  )
	  (begin_fill)
	  (rounded-square n (- 960 (* 41.64 n)) (* -2 n))
	  (end_fill)
	)
  )

  (speed 100)
  (repeat-seq 0)
  (ht)

  (exitonclick))

; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)