;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <wish i didn't miss n95 points on the last midterm>
;;;
;;; Description:
;;;   <would have tried harder
;;;    but i couldn't see or breathe
;;;    asthma reax only>

(define (draw)
  ; YOUR CODE HERE
  (draw-campanile)
  (hideturtle)
  (exitonclick))
  (define (draw-campanile)
    (draw-rectangle "#696969" -600 600 600 1000)
    (draw-rectangle "#708090" 180 320 0 400)
    (draw-rectangle "#708090" 180 320 125 125)
    (draw-rectangle "#696969" 220 238 90 60)
    (draw-rectangle "#696969" 242 258 90 60)
    (draw-rectangle "#696969" 262 280 90 60)
    (draw-triangle "#808080" 180 125 250 250 320 125)
)

  (define (draw-triangle c x1 y1 x2 y2 x3 y3)
    (color c)
    (penup)
    (goto x1 y1)
    (begin_fill)
    (pendown)
    (goto x2 y2)
    (goto x3 y3)
    (end_fill)
)

(define (draw-rectangle c x1 x2 y1 height)
    (color c)
    (penup)
    (goto x1 y1)
    (begin_fill)
    (pendown)
    (goto x2 y1)
    (goto x2 (- y1 height))
    (goto x1 (- y1 height))
    (goto x1 y1)
    (end_fill)
)


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