;;; Your entry for the Scheme contest
;;;
;;; Title:
;;;   <insert your title>
Maple Fractal is Maple
;;;
;;; Description:
;;;   <insert your haiku>



(define (make-curve s)
  (begin (circle s 30)
	 (if (> s 0)
	     (rt 30)
	     (lt 30))))

(define (Make-finger s)
  (begin (pd)
	 (make-curve (* 13 s))
	 (lt 158)
	 (make-curve (* 13 s))
	 (rt 113)
	 (pu)))

(define (Make-small-finger s d)
  (cond ((= d 1) (begin (pd)
			(make-curve (* 9 s))
			(lt 150)
			(make-curve (* 5 s))
			(pu)
			(rt 123)))
	((= d -1) (begin (pd)
			 (rt 10)
			 (make-curve (* 5 s))
			 (lt 150)
			 (make-curve (* 9 s))
			 (rt 95)
			 (pu)))))

(define (make-line s)
  (begin (pd)
         (fd (* 6 s))
	 (rt 120)
	 (pu)))

(define (make-leaf s)
  (begin
         (make-line s)
	 (make-small-finger s 1)
	 (make-finger s)
	 (make-child s)
	 (color 'red)
	 (make-finger s)
	 (make-child s)
	 (color 'orange)
	 (make-finger s)
	 (make-child s)
	 (color 'yellow)
	 (make-finger s)
	 (make-child s)
	 (color 'green)
	 (make-finger s)
	 (color 'red)
	 (make-small-finger s -1)
	 (make-line s)
	 (rt 148)
	 (fd s)
	 (lt 90)
	 ))

(define (make-child s)
  (if (> s 1) (begin (fd (* 2 s))
		     (rt 20)
		     (make-leaf (/ s 2))
		     (lt 20)
		     (bk (* 2 s))
		     ) ()))

(pu)
(color 'red)
(goto 200 -200)
(seth 300)
(pd)
(make-leaf 16)
;(exitonclick)