;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: hecksadecimal
;;;
;;; Description:
;;;    zero zero three
;;;    two six two - berkeley blue's hex
;;;    color code. go bears.

(define (row top height c)
  (setpos 244 top)
  (pendown)
  (color c)
  (begin_fill)
  (setpos 244 (- top height))
  (setpos -244 (- top height))
  (setpos -244 top)
  (end_fill)
  (penup))

(define (gradient top c_list)
  (define height 7)
  (cond
    ((not (null? c_list))
        (row top height (car c_list))
        (gradient (- top height) (cdr c_list)))))

(define (bear x y c)
  (color c)
  (setpos x y)
  (pendown)
  (setheading 90)
  (fd 50)
  (left 120)
  (fd 20)
  (right 110)
  (fd 50)
  (penup)
  (left 95)
  (fd 35)
  (pendown)
  (right 180)
  (fd 62)
  (left 75)
  (fd 50)
  (left 137)
  (fd 160)
  (left 140)
  (fd 35)
  (left 66)
  (fd 50)
  (right 140)
  (fd 93)
  (left 78)
  (fd 23)
  (penup)
  (left 180)
  (fd 23)
  (pendown)
  (right 47)
  (fd 62)
  (penup)
  (left 41)
  (fd 35)
  (pendown)
  (right 20)
  (fd 45)
  (right 95)
  (fd 120)
  (right 85)
  (fd 97)
  (penup)
  (left 180)
  (fd 13)
  (pendown)
  (right 63)
  (fd 40)
  (penup)
  (left 180)
  (fd 8)
  (pendown)
  (left 90)
  (fd 36)
  (left 78)
  (fd 50)
  (left 143)
  (fd 62)
  (right 155)
  (fd 100)
  (penup)
  (left 180)
  (fd 65)
  (pendown)
  (left 90)
  (fd 17)
  (penup)
  (left 180)
  (fd 17)
  (right 90)
  (fd 65)
  (left 140)
  (fd 50)
  (pendown)
  (left 180)
  (fd 85)
  (left 125)
  (fd 35)
  (left 79)
  (fd 71)
  (right 140)
  (fd 75)
  (left 70)
  (fd 15)
  (right 50)
  (fd 30)
  (left 55)
  (fd 20)
  (left 98)
  (fd 65)
  (left 137)
  (fd 48)
  (penup)
  (left 180)
  (fd 48)
  (pendown)
  (fd 80)
  (left 50)
  (fd 65)
  (right 25)
  (fd 60)
  (left 30)
  (fd 50)
  (penup)
  (back 50)
  (pendown)
  (left 122)
  (fd 84)
  (left 138)
  (fd 42)
  (penup)
  (back 42)
  (pendown)
  (right 54)
  (fd 80)
  (right 150)
  (fd 134)
  (left 144.5)
  (fd 129)
  (penup)
  (back 40)
  (pendown)
  (right 136)
  (fd 35)
  (penup)
  (back 35)
  (pendown)
  (right 149)
  (fd 80)
  (penup)
  (right 150)
  (fd 50)
  (pendown)
  (left 70)
  (fd 15)
  (right 80)
  (fd 18)
  (left 60)
  (fd 20)
  (right 62)
  (fd 19)
  (penup))

(define (mountains y c)
  (color c)
  (setpos -244 y)
  (setheading 30)
  (pendown)
  (begin_fill)
  (fd 150)
  (right 110)
  (fd 100)
  (left 100)
  (fd 220)
  (right 110)
  (fd 230)
  (left 120)
  (fd 93)
  (right 110)
  (fd 72)
  (setheading 180)
  (fd 25)
  (right 138)
  (fd 70)
  (left 107)
  (fd 107)
  (right 107)
  (fd 12)
  (right 75)
  (fd 14)
  (left 63)
  (fd 220)
  (left 110)
  (fd 200)
  (left 80)
  (fd 23)
  (right 70)
  (fd 16)
  (right 108)
  (fd 115)
  (left 107)
  (fd 150)
  (setheading 0)
  (fd 20)
  (end_fill)
  (penup)
)

(define (draw-bear x y i c)
  (bear x y c)
  (if (= i 1) () (draw-bear (+ x .3) (+ y .3) (- i 1) c)))

(define (draw-mountains y i c)
  (mountains y (car c))
  (if (= i 1) () (draw-mountains (- y 57) (- i 1) (cdr c))))

(define (draw)
  (penup)
  (speed 0)
  (define backgrad (list "#C8EAF7" "#C5E7F5" "#C2E4F2" "#BFE1F0"
                        "#BBDEED" "#B8DBEB" "#B5D8E9" "#B2D5E6"
                        "#AED2E4" "#ABCFE1" "#A8CCDF" "#A5C9DD"
                        "#A1C6DA" "#9EC3D8" "#9BC0D5" "#98BDD3"
                        "#94BAD0" "#91B7CE" "#8EB4CC" "#8BB1C9"
                        "#88AEC7" "#84ABC4" "#81A8C2" "#7EA5C0"
                        "#7BA2BD" "#779FBB" "#749CB8" "#7199B6"
                        "#6E96B4" "#6A93B1" "#6790AF" "#648EAC"
                        "#618BAA" "#5D88A7" "#5A85A5" "#5782A3"
                        "#547FA0" "#507C9E" "#4D799B" "#4A7699"
                        "#477397" "#447094" "#406D92" "#3D6A8F"
                        "#3A678D" "#37648B" "#336188" "#305E86"
                        "#2D5B83" "#2A5881" "#26557E" "#23527C"
                        "#204F7A" "#1D4C77" "#194975" "#164672"
                        "#134370" "#10406E" "#0C3D6B" "#093A69"
                        "#063766" "#033464" "#003262"))
  (gradient 240 backgrad)
  (define mtn-colors (list "#003262" "#144571" "#25547E" "#346288"))
  (draw-mountains 7 4 mtn-colors)
  (draw-bear -167.5 -142.5 8 "#FFB700")
  (draw-bear -170 -145 9 "#F5F5F5")
  (hideturtle)
  (exitonclick))


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