;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Fireworks of Freedom
;;;
;;; Description:
;;;   <Forever with us:
;;;    our life, liberty, and pur-
;;;    suit of happiness.>

(bgcolor "#000e1a")
(hideturtle)

(define (repeat k fn)
	(if (> k 0)
		(begin (fn) (repeat (- k 1) fn))
		nil))

(define (petals size col)
	(repeat 2 (lambda ()
		(repeat 3 (lambda () (circle size 60) (lt 120) (circle size 60))) (rt 60)))
	(color col) (begin_fill)
	)

(define (flower size layers)
	(cond ((= layers 0) (lt 120))
		((= layers 1) (petals size "red") (lt 30)
			(petals size "blue") (rt 30))
		(else (petals size "blue") (repeat 2 (lambda ()
			(repeat 3 (lambda ()
				(penup) (circle size 60) (pendown)
				(lt 30) (flower (/ size 2) (- layers 1)) (rt 30)
				(penup) (circle size 60))) (lt 30) (pendown)))
		(flower (/ size 2) 1) (rt 30) (flower (/ size 4) 1) (rt 30))))

(define (draw)
	(color "white")
	(speed 0) (flower 70 2)
	(exitonclick)
)

(draw)