;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: The Sun God
;;;
;;; Description:
;;;   <The sun Denero
;;;    Gives us power, recursion
;;;    Gave life to species>
(define (draw)
  (speed 500)
  (begin_fill)
  (spiral1 200)
  (end_fill)
  (penup)
  (goto 100 -50)
  (pendown)
  (penup)
  (goto -350 220)
  (insertpic 'denero.gif)
  (stamp)
  (penup)
  (goto 0 -400)
  (insertpic 'grass.gif)

)

(define (spiral1 times)
  (color "#ffa74f")
  (cond
    ((> times 0)
      (fd (* 0.67 times))
      (lt (* 0.15 times))
      (spiral1 (- times 1)))
    (else nil)))
  

; Please leave this last line alone.  You may add additional procedures above
; this line.
(penup)
(goto -100 150)
(pendown)
(draw)