;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Smokey Cal
;;;
;;; Description:
;;;    AQI above 200
;;;    I actually couldn't breathe
;;;    The smoke now recedes

(define (sky-rectangle width height x y c)
  (color c)
  (penup)
  (setposition x y)
  (pendown)
  (begin_fill)
  (fd height)
  (rt 90)
  (fd width)
  (rt 90)
  (fd height)
  (rt 90)
  (fd width)
  (rt 90)
  (end_fill)
)

(define (draw-sun c size x y)
  (color c)
  (penup)
  (setposition x y)
  (pendown)
  (begin_fill)
  (circle size)
  (end_fill)
)

(define (draw-grass width height x y c)
    (color c)
    (penup)
    (setposition x y)
    (pendown)
    (begin_fill)
    (fd height)
    (rt 90)
    (fd width)
    (rt 90)
    (fd height)
    (rt 90)
    (fd width)
    (rt 90)
    (end_fill)
)

(define (draw-campanile width height x y c)
  (color c)
  (penup)
  (setposition x y)
  (pendown)
  (begin_fill)
  (fd height)
  (rt 90)
  (fd width)
  (rt 90)
  (fd height)
  (rt 90)
  (fd width)
  (rt 90)
  (end_fill)
)

(define (draw-road width height x y c)
  (color c)
  (penup)
  (setposition x y)
  (pendown)
  (begin_fill)
  (fd height)
  (rt 90)
  (fd width)
  (rt 90)
  (fd height)
  (rt 90)
  (fd width)
  (rt 90)
  (end_fill)
)

 (define (make-windows x y)
    (color "#505050")
    (penup)
    (setpos x y)
    (setheading 0)
    (pendown)
    (begin_fill)
    (fd 50)
    (circle 7 180)
    (fd 50)
    (end_fill)
 )

 (define (dimin-draw-circle turn n size orig x y c)
     (color c)
     (penup)
     (setpos x y)
     (pendown)
     (left turn)
     (circle size)
     (cond
     ((>= n 0) (dimin-draw-circle turn (- n 1) size orig x y c))
     ((>= size 50) (dimin-draw-circle turn orig (- size 5) orig x y c))
     )
 )

(define (draw)
  (hideturtle)
  (speed -200)
  (sky-rectangle 1000 20 -500 330 "#9E9E9E")
  (sky-rectangle 1000 30 -500 300 "#A7A7A7")
  (sky-rectangle 1000 40 -500 260 "#B0B0B0")
  (sky-rectangle 1000 50 -500 210 "#BABABA")
  (sky-rectangle 1000 60 -500 150 "#C3C3C3")
  (sky-rectangle 1000 70 -500 80 "#CCCCCC")
  (sky-rectangle 1000 80 -500 0 "#D6D6D6")
  (sky-rectangle 1000 90 -500 -90 "#DFDFDF")
  (sky-rectangle 1000 100 -500 -190 "#E8E8E8")
  (sky-rectangle 1000 150 -500 -330 "#F2F2F2")
  (dimin-draw-circle 10 36 60 36 190 210 "#FFC300")
  (setheading 0)
  (draw-sun "#FFBF70" 90 280 210)
  (draw-sun "#FFAA38" 60 250 210)
  (draw-sun "#FF9500" 30 220 210)
  (draw-grass 1000 20 -500 -150 "#188000")
  (draw-grass 1000 30 -500 -180 "#198B00")
  (draw-grass 1000 60 -500 -240 "#1A9600")
  (draw-grass 1000 100 -500 -340 "#1BA000")
  (draw-campanile 100 400 -250 -150 "#EFE4CB")
  (penup)
  (setposition -250 250)
  (pendown)
  (begin_fill)
  (rt 35)
  (forward 87.1723397811)
  (rt 110)
  (forward 87.1723397811)
  (end_fill)
  (setheading 0)
  (begin_fill)
  (fd 35)
  (lt 90)
  (fd 5)
  (lt 90)
  (fd 35)
  (end_fill)
  (setpos -250 250)
  (begin_fill)
  (setheading 0)
  (begin_fill)
  (fd 35)
  (rt 90)
  (fd 5)
  (rt 90)
  (fd 35)
  (end_fill)
  (make-windows -220 190)
  (make-windows -193 190)
  (make-windows -166 190)
  (penup)
  (setheading 0)
  (setpos -165 133)
  (begin_fill)
  (pendown)
  (color "#DADADA")
  (circle 35)
  (end_fill)
  (penup)
  (setpos -202 130)
  (setheading 0)
  (color "#505050")
  (begin_fill)
  (fd 30)
  (rt 90)
  (fd 3)
  (rt 90)
  (fd 30)
  (rt 90)
  (fd 3)
  (end_fill)
  (setheading 90)
  (begin_fill)
  (fd 20)
  (rt 90)
  (fd 3)
  (rt 90)
  (fd 20)
  (end_fill)
  (dimin-draw-circle 10 36 10 36 50 50 "#909090")
  (dimin-draw-circle 10 36 10 36 35 50 "#909090")
  (dimin-draw-circle 10 36 10 36 50 65 "#909090")
  (dimin-draw-circle 10 36 10 36 35 35 "#909090")
  (dimin-draw-circle 10 36 10 36 50 35 "#909090")
  (dimin-draw-circle 10 36 10 36 0 200 "#909090")
  (dimin-draw-circle 10 36 10 36 -10 225 "#909090")
  (dimin-draw-circle 10 36 10 36 -10 175 "#909090")
  (dimin-draw-circle 10 36 10 36 -35 200 "#909090")
  (dimin-draw-circle 10 36 10 36 -295 225 "#909090")
  (dimin-draw-circle 10 36 10 36 -300 225 "#909090")
  (dimin-draw-circle 10 36 10 36 -300 245 "#909090")
  (dimin-draw-circle 10 36 10 36 -310 235 "#909090")
  (dimin-draw-circle 10 36 10 36 -295 0 "#909090")
  (dimin-draw-circle 10 36 10 36 -300 0 "#909090")
  (dimin-draw-circle 10 36 10 36 -300 15 "#909090")
  (dimin-draw-circle 10 36 10 36 -310 0 "#909090")
  (dimin-draw-circle 10 36 10 36 275 -25 "#909090")
  (dimin-draw-circle 10 36 10 36 280 -25 "#909090")
  (dimin-draw-circle 10 36 10 36 280 -35 "#909090")
  (dimin-draw-circle 10 36 10 36 290 -20 "#909090")
  (setheading 0)
)
; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)