;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: our Ray of sunshine
;;;
;;; Description:
;;;   some people might say
;;;    grown men shouldn't shop at Gap;
;;;    someone tell Mitas

(define (draw)
    (speed 0)
    ;(hideturtle)
    (color "black")
    (bgcolor "lightpink")
    (penup)
    (forward 100)
    (pixelsize 5)
    (glass)
    (hideturtle)
    (speed 1)
    (changebackground 0)
    (changecolor)

  (exitonclick)
)

(define x 1)

(define (changebackground x)
  (cond
    ((= x 0)
      (begin
        (bgcolor "lightblue")
        (changebackground 1)))
    ((= x 1)
      (begin
        (bgcolor "lightpink")
        (changebackground 0)))
  ))

(define (glass)
  (penup)
  (left 90)
  (forward 20)
  (right 90)
  (pendown)
  (pixelsize 4)
  (circle 60)
  (penup)
  (circle 60 180)
  (left 120)
  (pendown)
  (forward 200)
  (penup)
  (right 180)
  (forward 200)
  (left 180)
  (right 120)
  (circle 60 180)
  (pendown)

  (circle -20 180)

  (circle 60)
  (penup)
  (circle 60 180)
  (right 60)
  (pendown)
  (forward 150)
  (penup)
  (right 180)
  (forward 150)
  (left 180)
  (penup)
  (left 60)
  (circle 60 180)
  (right 90)
  (forward 20)
  (right 90)
  )



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