;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: go bears
;;;
;;; Description:
;;;   <go bears go bears go
;;;    bears go bears go bears go bears
;;;    go bears go bears go>
(define (background r g b x)
  (if (> x 0)
    (begin
      (setposition x 0)
      (color (rgb r g b))
      (begin_fill)
      (circle x)
      (end_fill)
      (background (+ r 0.0162) (+ g 0.00784) (- b 0.00784) (- x 10))
    )
  )
)
(define (halfs size)
  ; draws half of the letter s
  (left 70)
  (forward (* 0.7 size))
  (left 20)
  (forward (* 0.7 size))
  (left 35)
  (forward (* 0.4 size))
  (left 45)
  (forward (* 0.44 size))
  (left 45)
  (forward (* 0.3 size))
  (left 20)
  (forward (* 1 size))
  (right 20)
  (forward (* 0.2 size))
  (right 45)
  (forward (* 0.2 size))
  (right 80)
  (forward (* 0.5 size))
  (right 20)
  (forward (* 0.5 size))
  (right 50)
  (forward (* 0.2 size))
  (left 60)
  (forward (* 0.16 size))
)
(define (gobears size)
  ;g
  (penup)
  (forward size)
  (color "#000000")
  (begin_fill)
  (circle size)
  (end_fill)
  (left 90)
  (forward (* 0.4 size))
  (right 90)
  (color (rgb (* 0.0208 (- 40 size)) (+ (/ size -100) 0.58) (/ size 85)))
  (begin_fill)
  (circle (* 0.6 size))
  (end_fill)
  (color "#000000")
  (right 180)
  (forward (* 0.5 size))
  (begin_fill)
  (forward size)
  (right 45)
  (forward (* 0.5 size))
  (right 45)
  (forward (* 0.6 size))
  (right 45)
  (forward (* 0.5 size))
  (left 90)
  (forward (* 0.45 size))
  (left 90)
  (forward (* 0.6 size))
  (left 45)
  (forward (* 1.1 size))
  (left 45)
  (forward (* 0.65 size))
  (left 45)
  (forward (* 1.5 size))
  (end_fill)
  ;o
  (forward (* 0.15 size))
  (right 90)
  (forward (* 2.1 size))
  (left 80)
  (begin_fill)
  (circle size)
  (end_fill)
  (left 90)
  (forward (* 0.4 size))
  (right 90)
  (color (rgb (* 0.0208 (- 40 size)) (+ (/ size -100) 0.58) (/ size 85)))
  (begin_fill)
  (circle (* 0.6 size))
  (end_fill)
  (color "#000000")
  ;b
  (forward (* 2 size))
  (right 90)
  (forward (* 1.5 size))
  (left 35)
  (begin_fill)
  (forward (* 0.4 size))
  (right 45)
  (forward (* 0.4 size))
  (right 90)
  (forward (* 1.5 size))
  (left 135)
  (forward (* 0.5 size))
  (right 45)
  (forward (* 0.7 size))
  (right 45)
  (forward (* 0.7 size))
  (right 45)
  (forward (* 1.05 size))
  (right 45)
  (forward (* 0.7 size))
  (right 45)
  (forward (* 0.7 size))
  (right 30)
  (forward (* 0.5 size))
  (left 75)
  (forward (* 0.4 size))
  (right 135)
  (forward (* 2.75 size))
  (left 60)
  (forward (* 0.25 size))
  (end_fill)
  (right 150)
  (forward (* 0.7 size))
  (right 90)
  (forward (* 1.55 size))
  (color (rgb (* 0.0208 (- 40 size)) (+ (/ size -100) 0.58) (/ size 85)))
  (begin_fill)
  (forward (* 0.65 size))
  (left 60)
  (forward (* 0.4 size))
  (left 30)
  (forward (* 0.5 size))
  (left 45)
  (forward (* 0.4 size))
  (left 45)
  (forward (* 0.6 size))
  (left 45)
  (forward (* 0.5 size))
  (left 45)
  (forward (* 0.4 size))
  (left 45)
  (forward (* 0.5 size))
  (end_fill)
  ;e
  (left 135)
  (forward (* 1.7 size))
  (left 90)
  (forward (* 0.2 size))
  (right 55)
  (color "#000000")
  (begin_fill)
  (forward (* 0.6 size))
  (right 45)
  (forward (* 0.7 size))
  (right 45)
  (forward (* 0.6 size))
  (right 45)
  (forward (* 0.6 size))
  (right 90)
  (forward (* 1.2 size))
  (left 90)
  (forward (* 0.35 size))
  (left 45)
  (forward (* 0.3 size))
  (left 45)
  (forward (* 0.6 size))
  (left 30)
  (forward (* 0.35 size))
  (right 90)
  (forward (* 0.3 size))
  (right 90)
  (forward (* 0.5 size))
  (right 30)
  (forward (* 0.8 size))
  (right 45)
  (forward (* 0.6 size))
  (right 45)
  (forward (* 1.05 size))
  (end_fill)
  (right 90)
  (forward (* 0.4 size))
  (right 90)
  (forward (* 0.1 size))
  (left 135)
  (color (rgb (* 0.0208 (- 40 size)) (+ (/ size -100) 0.58) (/ size 85)))
  (begin_fill)
  (forward (* 0.3 size))
  (right 45)
  (forward (* 0.38 size))
  (right 45)
  (forward (* 0.22 size))
  (right 45)
  (forward (* 0.2 size))
  (right 90)
  (forward (* 0.75 size))
  (right 90)
  (forward (* 0.15 size))
  (end_fill)
  ;a
  (right 90)
  (forward (* 3.35 size))
  (right 90)
  (forward (* 0.75 size))
  (left 170)
  (color "#000000")
  (begin_fill)
  (circle size)
  (end_fill)
  (left 90)
  (forward (* 0.4 size))
  (right 90)
  (color (rgb (* 0.0208 (- 40 size)) (+ (/ size -100) 0.58) (/ size 85)))
  (begin_fill)
  (circle (* 0.6 size))
  (end_fill)
  (color "#000000")
  (begin_fill)
  (right 90)
  (forward (* 0.4 size))
  (right 90)
  (forward size)
  (right 90)
  (forward (* 0.36 size))
  (right 90)
  (forward size)
  (end_fill)
  ;r
  (forward (* 0.8 size))
  (right 90)
  (forward (* 0.7 size))
  (left 5)
  (begin_fill)
  (forward (* 0.6 size))
  (right 105)
  (forward (* 0.4 size))
  (left 135)
  (forward (* 0.5 size))
  (right 45)
  (forward (* 0.4 size))
  (right 45)
  (forward (* 0.2 size))
  (right 45)
  (forward (* 0.2 size))
  (right 45)
  (forward (* 0.2 size))
  (right 45)
  (forward (* 0.4 size))
  (left 45)
  (forward (* 0.4 size))
  (left 45)
  (forward (* 0.84 size))
  (left 90)
  (forward (* 0.2 size))
  (right 90)
  (forward (* 0.3 size))
  (right 90)
  (forward (* 0.8 size))
  (right 90)
  (forward (* 0.3 size))
  (right 90)
  (forward (* 0.2 size))
  (left 90)
  (forward (* 1.25 size))
  (left 45)
  (forward (* 0.36 size))
  (end_fill)
  ;s
  (right 135)
  (forward (* 1.6 size))
  (right 90)
  (forward (* 1.3 size))
  (begin_fill)
  (forward (* 0.45 size))
  (halfs (* 0.85 size))
  (left 100)
  (forward (* 0.45 size))
  (halfs (* 0.85 size))
  (end_fill)
)
(define (loop s)
  (if (> s 1)
    (begin
      (gobears s)
      (left 90)
      (forward (* 0.6 s))
      (left 90)
      (forward (* 5 s))
      (left (- 80 (/ 80 s)))
      (loop (* 0.9 s))
    )
  )
)
(define (draw)
  (speed 0)
  (penup)
  (background 0 0.18 0.392 492)
  (setposition 0 0)
  (forward 325)
  (left 90)
  (forward 375)
  (right 45)
  (loop 40)
  (hideturtle)
  (exitonclick)
  )

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