;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: A Birthday Cake
;;;
;;;Description:
;;;Cakes don't last for long,
;;;except this one - a Scheme cake,
;;;with my best, lasting wishes.


  ; *YOUR CODE HERE*

(define (repeat fn times) 
	(if (> times 1) 
			(begin (fn) 
				(repeat fn (- times 1)))
			(fn)))

(define (inference radius a b)
	(if (> radius 0) 
		(begin (pugt a (- b radius)) (circle radius)
		(inference (- radius 1) a b))
		(pugt a b)))

(define (circle-inference radius x y) 
	(pugt (+ (* 5 radius) x) y)
	(repeat 
		(lambda () (begin (pu) (circle (* 5 radius) 20) (pd)
			(inference radius (xcor) (ycor))))
			18
		))

(define (draw)
	(speed 0)
	(bgcolor "#E5E5E5")
	
	(color "#F1D4AF")
	(pugt 192 60)
	(lt 20)
	(begin_fill)
	(circle 206 140)
	(lt 20)
	(fd 210)
	(lt 31)
	(circle 228 118)
	(lt 31)
	(fd 210)
	(end_fill)
	(seth 0)
	(color "#E08E79")
	(circle-inference 40 0 40)
	(color "#774F38")
	(circle-inference 25 0 32)
	(color "#ECE5CE")
	(circle-inference 15 0 31)
	(color "#EB4D4D")
	(circle-inference 10 0 32)
	(color "#B1D2E8")
	(circle-inference 6 0 31)
	(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)