;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: AQI > 200
;;;
;;; Description:
;;;   <Christ oh Christ.
;;;    Give me back Dead Week
;;;    So I may pass 61A.>

(bgcolor "#b7a98d")
(speed 50)
(define (draw)
    (campanile)

    (penup)
    (goto 200 200)
    (color "#d6d3a4")
    (pendown)
    (begin_fill)
    (circle 50)
    (end_fill)

    (hideturtle)
    (exitonclick)
)

(define (rect colr x y width height)
	(color colr)
    (penup)
    (goto x y)
    (pendown)
    (begin_fill)
    (goto (+ x width) y)
    (goto (+ x width) (- y height))
    (goto x (- y height))
    (goto x y)
    (end_fill)
)
(define (triangle colr x1 x2 x3 y1 y2 y3)
	(color colr)
    (penup)
    (goto x1 y1)
    (begin_fill)
    (pendown)
    (goto x2 y2)
    (goto x3 y3)
    (end_fill)
)

(define (clock)
	(penup)
    (goto -95 40)
    (pendown)
    (circle 30)

    (rect "#000000" -127 55 4 15)
    (rect "#000000" -127 40 20 4)
)

(define (windows colr x1 y1 y2 width height spacing)
	(cond ((< y1 y2) ())
		(else (rect colr x1 y1 width height) (windows colr x1 (- y1 spacing) y2 width height spacing))
	)
)

(define (top-windows colr x1 x2 y1 width height spacing)
	(cond ((> x1 x2) ())
		(else (rect colr x1 y1 width height) (windows colr (+ x1 spacing) x2 y1 width height spacing))
	)
)

(define (campanile)
	(rect "#b29663" -200 180 150 530)
	(top-windows "#000000" -175 -85 160 12 60 45)
	(rect "#000000" -175 160 12 60)
    (rect "#000000" -130 160 12 60)
    (rect "#000000" -85 160 12 60)
    (triangle "#d1b787" -125 -180 -70 330 180 180)
    (triangle "#776650" -200 -190 -180 180 215 180)
    (triangle "#776650" -70 -60 -50 180 215 180)
    (clock)
    (windows "#000000" -127 -10 -250 6 30 60)

    (rect "#000000" 120 -180 10 100)
	(rect "#000000" 150 -180 10 100)
	(rect "#000000" 100 -200 80 10)
	(rect "#000000" 100 -240 80 10)

	(rect "#000000" 200 -180 10 100)
)

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