;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Frozen dandelion
;;;
;;; Description:
;;;   < Been frozen with fear
;;;    waiting for the warm of love
;;;    to help set it free >

(define cos5 0.996194698)
(define sin5 0.0871557427)

(define (tip size direction center)
  (setheading direction)
  (define smalldis (*(/ size cos5) sin5))
  (define longdis (/ size cos5))

  (left 90)
  (color "white")
  (begin_fill)
  (forward smalldis)
  (right 95)
  (forward longdis)
  (if (> size 20)
    (3tip (/ size 1.618) direction)
  )
  (setheading direction)
  (right 5)
  (right 170)
  (forward longdis)
  (right 95)
  (forward smalldis )
  (end_fill)
)

(define (3tip size direction)
  (define dirLeft (- direction 30))
  (if (< dirLeft 0) (define dirLeft (+ 360 dirLeft)))
  (define dirRight (+ direction 30))
  (if (> dirRight 360) (define dirRight (- dirRight 360)))
  (tip size dirLeft #f)
  (tip size direction #t)
  (tip size dirRight #f)

)

(define (drawLayer size start)
  (3tip size start)
  (if (< (+ start 90) 360)
    (drawLayer size (+ start 90))
  )
)


(define (draw)
  (speed 0)
  (bgcolor "blue")
  (drawLayer 100 0)
  (drawLayer 80 45)
  (drawLayer 60 0)
  (drawLayer 38.1982059 45)

  (exitonclick))

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