;;; Your entry for the Scheme contest
;;;
;;; Title: 
;;;   F.L.O.W.E.R. : F.L.O.W.E.R. Liked Only When Extremely Recursive    
;;;
;;; Description:
;;;   Paul N. Hilfinger
;;;   Compiler Jedi Master
;;;   Likes this F.L.O.W.E.R.

(speed 0)


(define (spiral incr angle iterations)
  
  (define (helper i) 
    (cond ((= i iterations) '())
	  (else (begin (fd (* i incr)) (lt angle) (helper (+ i 1))))
    )
  )
        (helper 0)
)
  
(define (petal iterations )
  
 
   (define (draw_one i)
    (begin
     (penup)
     (setpos 0 0)
     (seth 0)
     (rt (* i 60))
     (fd 300)
     (pd)
     (spiral 0.3 40 28)
     (spiral 1 6 30)
     (penup)
     (spiral 1 6 30)
     (pendown)
     (spiral 1 7 29)
     (cond ( (= i iterations) '())
	   ( else  (draw_one (+ i 1) ))
     )
    )
   ) 
  (draw_one 0)

)

(define (draw)
  (begin (
	  (petal 5 )
	  (setpos 0 0)
	  (seth 0)
	  (spiral 0.65 93 260)
	  '()
	  )
  )
)

(draw)
;(exitonclick)