;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: The Recursivus Tree

;;; Description:
;;;    What did the tree say
;;;    To the programmer? Answer: 
;;;    "Hi, did you call me?"


(define (draw)
  (lt 90)
  (penup)
  (back 100)
  (pendown)
  (color 'brown4)
  (tree 90 10)
  (exitonclick))

(define (tree branchlen branchwidth) 
	(cond ((>= branchlen 14)
		   (if (< branchlen 16) (color 'green) nil)
		   (width branchwidth)
		   (fd branchlen) (rt 26) (tree (- branchlen 15) (- branchwidth 2))  ;(tree (* branchlen .75)) ;
		   (lt 52) (tree (- branchlen 15) (- branchwidth 2)) ;(tree (* branchlen .75)) 
		   (rt 26) (back branchlen) (color 'brown4))
		  (else nil)
	)
)


;;; NOTE: changes made to scheme_primitives: added a width function (from turtle library)


; 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)