;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: NineTail Recursion
;;;
;;; Description:
;;;    Go, pokeball, go!
;;;    I will be the very best.
;;;    Ninetails, I choose you!

(define (circ d)
	(circle (/ d 2))
	(circle (* -1 (/ d 2)))
	(rt 90)
	(circle (/ d 2))
	(circle (* -1 (/ d 2))))

(define (art d r)
	(color 'red)
	(circ (/ d 2))
	(if (= r 1) 'done
	(art (/ d 1.5) (- r 1))))


(define (plant size degree)
	(color 'orange)
	(penup)
	(goto 0 0)
	(setheading 90)
	(pendown)
	(circle size degree)
	(art 50 3)
	(if (< degree 90) 'done
	(plant (+ size 25) (- degree 30))))

(define (poke size)
	(penup)
	(setheading 0)
	(goto (/ size 2) 0)
	(pendown)
	(circle (/ size 2))
	(lt 90)
	(fd size))

(define	(poker size depth)
	(color 'red)
	(poke size)
	(if (= depth 1) 'done
	(poker (/ size 6) (- depth 1))))


(define (draw)
  (poker 80 2)
  (plant 100 300)
  (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)