;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Rupi's Trees Bloom in the Fall
;;;
;;; Description:
;;;   <Your worst enemy
;;;    the trees are back, and now, so
;;;    am I. -rupi kaur>

(define wid 15)
(define len 120)
(define s 24)
(define (draw-tree l level pixelwidth)
  (define p pixelwidth) 
  (define pixelwidth (/ (* 3 p) 4))
  (width pixelwidth)
  (define l (/ (* 3 l) 4))
  (lt s)
  (fd l)
  (if (< level wid) (draw-tree l (+ 1 level) pixelwidth))
  (bk l)
  (rt (* 2 s))
  (fd l)
  (if (< level wid) (draw-tree l (+ 1 level) pixelwidth))
  (bk l)
  (lt s)
  (width p)
)

(define (ground n) 
  (if (> n 10)
    (begin
      (pendown) 
      (lt 10) 
      (fd n) 
      (bk n) 
      (rt 10)
	  (penup) 
      (fd 30)
      (ground (* n 0.95))))
)

(define (sky n) 
  (if (> n 2920)
    (begin
      (pendown) 
      (lt 10) 
      (fd n) 
      (bk n) 
      (rt 10)
	  (penup) 
      (fd 100)
      (sky (* n 0.95))))
)

(define (draw_square size)
  (begin_fill)
  (color (rgb 1 1 0))
  (fd size)
  (rt 90)
  (fd size)
  (rt 90)
  (fd size)
  (rt 90)
  (fd size)
  (end_fill)
)

(define (sun n)
  (draw_square 25)
  (rt 10)
  (if (< n 0) nil (sun (- n 1)))
)

(define (draw)
  (hideturtle)
  (penup) 
  (setposition (- (screen_width)) (+ (/ (screen_height) -2) 12))
  (pendown)
  (setheading 0)
  (penup)
  (pendown)
  (color (rgb .48 .88 0))
  (ground 350)
  (penup)
  (setposition (- (* 2 (screen_width))) (- (/ (screen_height) 2) 200))
  (pendown)
  (color (rgb .53 .80 1))
  (sky 7000)
  (penup)
  (setposition (/ (screen_width) 4) (/ (screen_height) 4))
  (pendown)
  (sun 20)
  (penup)
  (setposition 0 (+ (/ (screen_height) -2) 150))
  (seth 0)
  (pendown)
  (lt 90)
  (width wid)
  (define pixelwidth wid)
  (penup)
  (bk len)
  (pendown)
  (color (rgb .62 .04 .16))
  (fd len)
  (draw-tree len 2 pixelwidth)
  (exitonclick))


; Please leave this last line alone.  You may add additional procedures above
; this line.

(draw)