;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Fun Yun (Lucky Cloud)
;;;
;;; Description:
;;;   The Chinese luck cloud.
;;;	  Symbol of the Olympic
;;;   Giving peace and luck.

(define (draw)
  ; *YOUR CODE HERE*
  (define (spiral inc angle iter)
  
  (define (helper i) 
    (cond ((= i iter) '())
	  (else (begin (fd (* i inc)) (rt angle) (helper (+ i 1))))
    )
  )
        (helper 0))


  (define (left_curve inc angle iter)
  
  (define (helper i) 
    (cond ((= i iter) '())
	  (else (begin (fd (* i inc)) (lt angle) (helper (+ i 1))))
    )
  )
        (helper 5))

  (define (right_curve inc angle iter)
  
  (define (helper i) 
    (cond ((= i iter) '())
	  (else (begin (fd (* i inc)) (rt angle) (helper (+ i 1))))
    )
  )
        (helper 5)) 

  (begin
  	(speed 500)
	(clear)
	(color 'red)
	(pu)
	(setpos -300 270)
	(seth 90)
	(pd)
	(begin_fill)
	(begin (fd 600) (rt 90))
	(begin (fd 540) (rt 90))
	(begin (fd 600) (rt 90))
	(begin (fd 540) (rt 90))
	(end_fill)
	(color 'white)
	(pu)
	(setpos -5 45)
	(seth 0)
	(pd)
	(spiral 1.5 40 25)
	(pu)
	(setpos 77 -27)
	(pd)
	(spiral 2 40 25)
	(pu)
	(setpos 152 -77)
	(seth 0)
	(pd)
	(spiral 1.5 40 23)
	(pu)
	(setpos 92 -100)
	(seth 0)
	(pd)
	(spiral 1.5 40 18)
	(pu)
	(setpos 37 -88)
	(seth 0)
	(pd)
	(spiral 1.5 40 21)
	(pu)
	(setpos -57 -27)
	(pd)
	(spiral 2 40 21)
	(seth -150)
	(right_curve 1 2 18)
	(left_curve 1 3 13)
	(pu)
	(setpos -40 -50)
	(seth -150)
	(pd)
	(right_curve 1 2 18)
	(left_curve 1 3 15)
	(pu)
	(setpos -150 -70)
	(seth 0)
	(pd)
	(spiral 2 40 23)
	(pu)
	(setpos -203 -144)
	(seth 180)
	(pd)
	(spiral 1.5 40 18)
	(pu)
	(setpos -234 -81)
	(seth 0)
	(pd)
	(spiral 1.7 40 20)))
  	(exitonclick)

; 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)