;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Destroying Stanfurd with facts and logic>
;;;
;;; Description:
;;;   <Stanfurd, y'all done goofed.
;;;    Don't believe us? Here's some proof:
;;;    Oski's honest truth>

(define (triangle x y length c)
  (penup)
  (goto x y)
  (pendown)
  (begin_fill)
  (color c)
  (seth 150)
  (forward length)
  (seth 270)
  (forward length)
  (seth 30)
  (forward length)
  (end_fill)
)

(define (triangle2 x y length c)
  (penup)
  (goto x y)
  (pendown)
  (color c)
  (seth 150)
  (forward length)
  (seth 270)
  (forward length)
  (seth 30)
  (forward length)
)

(define (tree x y starting_length counter num)
  (triangle x y starting_length "#007662")
  (triangle2 x y starting_length "white")
  (if (< counter num)
    (tree x (- y (* 1.732 (* .5 starting_length))) (* 1.5 starting_length) (+ counter 1) num)
    )
)

(define (Lsmall x y c)
  (penup)
  (goto (- x 200) y)
  (pendown)
  (begin_fill)
  (color c)
  (goto (- x 200) (- y 703))
  (goto (+ x 200) (- y 703))
  (goto (+ x 200) (- y 503))
  (goto x (- y 503))
  (goto x y)
  (goto (- x 200) y)
  (end_fill)
  )

(define (Lmedium x y c)
  (penup)
  (goto (- x 210) (+ y 10))
  (pendown)
  (begin_fill)
  (color c)
  (goto (- x 210) (- y 713))
  (goto (+ x 210) (- y 713))
  (goto (+ x 210) (- y 493))
  (goto (+ x 10) (- y 493))
  (goto (+ x 10) (+ y 10))
  (goto (- x 210) (+ y 10))
  (end_fill)
  )

(define (Lbig x y c)
  (penup)
  (goto (- x 220) (+ y 20))
  (pendown)
  (begin_fill)
  (color c)
  (goto (- x 220) (- y 723))
  (goto (+ x 220) (- y 723))
  (goto (+ x 220) (- y 483))
  (goto (+ x 20) (- y 483))
  (goto (+ x 20) (+ y 20))
  (goto (- x 220) (+ y 20))
  (end_fill)
  )


(define (Stanfurd x y)
  (Lbig x y "#8c1515")
  (Lmedium x y "white")
  (Lsmall x y "#8c1515")
  (tree x y 100 0 3)
)

(define (draw)
  (hideturtle)
  (bgcolor "white")
  (Stanfurd 0 400)
  (exitonclick))


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