;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Very Unhealthy Air Quality
;;;
;;; Description:
;;;   <*AQI is 199*
;;;    Chancellor Christ:
;;;    Not above 200 though>

(define (rect x1 y1 x2 y2)
  (penup) (setposition x1 y1) (pendown)
  (setposition x2 y1)
  (setposition x2 y2)
  (setposition x1 y2)
  (setposition x1 y1))

(define (draw)
  (bgcolor "grey")
  ; Mask
  (color "white")
  (begin_fill) (circle 95) (end_fill)
  ; Straps
  (color "yellow")
  (begin_fill) (rect -192 -38 -169 -27) (end_fill)
  (begin_fill) (rect -192 22 -169 33) (end_fill)
  (begin_fill) (rect -24 -38 -1 -27) (end_fill)
  (begin_fill) (rect -24 22 -1 33) (end_fill)
  ; Nose
  (color "grey")
  (begin_fill)
  (penup) (setposition -45 45) (pendown)
  (setposition -82 65)
  (setposition -110 65)
  (setposition -147 45)
  (setposition -147 55)
  (setposition -110 75)
  (setposition -82 75)
  (setposition -45 55)
  (setposition -45 45)
  (end_fill)
  ; Valve
  (color "black")
  (rect -72 10 -120 -36)
  ; Lettering
  (color "orange")
  (penup) (setposition -112 -26) (pendown)
  (setposition -112 0)
  (setposition -105 -26)
  (setposition -105 0)
  (penup) (setposition -92 -13) (pendown)
  (setposition -99 -13)
  (setposition -99 0)
  (setposition -92 0)
  (setposition -92 -26)
  (setposition -99 -26)
  (penup) (setposition -79 0) (pendown)
  (setposition -86 0)
  (setposition -86 -13)
  (setposition -79 -13)
  (setposition -79 -26)
  (setposition -86 -26)
  (ht)
  (exitonclick))

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