;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Go Bears!
;;;
;;; Description:
;;;    Some bears barely wake
;;;    But dear Oski never sleeps
;;;    Bare bears bear bare bears

(define (arc size length)
  (cond
    ((> size 0) (forward length) (right 1) (arc (- size 1) length))
    (else nil)
  )
)

(define (streak size length heading c)
  (setheading (- heading (/ size 2)))
  (color c)
  (pendown)
  (begin_fill)
  (arc size length)
  (right (- 180 size))
  (arc size length)
  (right (- 180 size))
  (end_fill)
  (penup)
)

(define (set-streak size length heading c x y)
  (setposition x y)
  (streak size length heading c)
)

(define (line-streak size length width spacing heading c direction)
  (cond ((<= width 0) nil)
        (else (streak size length heading c)
              (setheading direction)
              (forward spacing)
              (line-streak size length (- width 1) spacing heading c direction))
  )
)

(define (draw-line length width c direction)
  (color c)
  (setheading direction)
  (pendown)
  (begin_fill)
  (forward length)
  (right 90)
  (forward width)
  (right 90)
  (forward length)
  (end_fill)
  (penup)
  (right 180)
  (forward length)
  (left 90)
  (forward width)
)

(define (fill-circle x y radius c)
  (setposition x y)
  (setheading 0)
  (color c)
  (pendown)
  (begin_fill)
  (circle radius)
  (end_fill)
  (penup)
)

(define (draw)
  (hideturtle)
  (speed 0)
  (penup)
  (bgcolor "#003262")

  ;;;head
  (setposition -150 155)
  (draw-line 20 3 "#F4A005" 290)
  (draw-line 20 3 "#F4A005" 280)
  (draw-line 30 3 "#F4A005" 270)
  (draw-line 40 3 "#F4A005" 250)
  (draw-line 20 3 "#F4A005" 230)
  (draw-line 20 3 "#F4A005" 210)
  (draw-line 40 3 "#F4A005" 230)

  ;;;ears
  (setposition -170 160)
  (setheading 0)
  (color "#F4A005")
  (pendown)
  (begin_fill)
  (arc 251 0.3)
  (color "black")
  (end_fill)
  (penup)
  (setposition -243 163)
  (setheading 330)
  (color "#F4A005")
  (pendown)
  (begin_fill)
  (arc 220 0.28)
  (color "black")
  (end_fill)
  (penup)

  ;;;Neck and chest
  (setposition -330 90)
  (draw-line 25 3 "#F4A005" 150)
  (draw-line 25 3 "#F4A005" 135)
  (draw-line 20 3 "#F4A005" 80)
  (line-streak 15 2 2 15 110 "#F4A005" 90)
  (line-streak 15 3 2 15 110 "#F4A005" 90)

  ;;;left front leg
  (set-streak 14 2 150 "#F4A005" -12 -143)
  (set-streak 14 2 132 "#F4A005" 55 -95)
  (setposition -60 0)
  (line-streak 14 3 5 10 200 "#F4A005" 175)
  (setposition -40 -50)
  (draw-line 80 3 "#F4A005" 230)
  (draw-line 45 3 "#F4A005" 200)
  (draw-line 25 3 "#F4A005" 170)
  (draw-line 100 4 "#F4A005" 135)
  (setposition -60 -200)
  (line-streak 16 2.6 4 10 145 "#F4A005" 45)
  (setposition -40 -180)
  (line-streak 14 2 5 10 170 "#F4A005" 35)
  (line-streak 14 2 15 5 135 "#F4A005" 55)

  ;;;right front leg
  (setposition -200 45)
  (line-streak 13 2 2 10 190 "#F4A005" 100)
  (line-streak 15 3 6 15 190 "#F4A005" 170)
  (line-streak 18 3 3 15 180 "#F4A005" 135)
  (setposition -140 -110)
  (draw-line 50 3 "#F4A005" 180)
  (draw-line 55 3 "#F4A005" 195)
  (draw-line 50 3 "#F4A005" 250)
  (draw-line 10 3 "#F4A005" 195)
  (draw-line 100 4 "#F4A005" 85)
  (draw-line 45 3 "#F4A005" 0)

  ;;;Left hind leg
  (setposition 90 50)
  (line-streak 14 3 4 10 160 "#F4A005" 175)
  (line-streak 16 3 5 10 160 "#F4A005" 195)
  (line-streak 16 3 5 10 180 "#F4A005" 190)
  (draw-line 110 3 "#F4A005" 180)
  (draw-line 20 3 "#F4A005" 170)
  (draw-line 70 3 "#F4A005" 250)
  (draw-line 10 3 "#F4A005" 180)
  (draw-line 100 4 "#F4A005" 100)
  (draw-line 100 3 "#F4A005" 30)
  (line-streak 15 2 7 10 170 "#F4A005" 30)

  ;;;Right hind leg
  (setposition 180 -170)
  (draw-line 37 3 "#F4A005" 140)
  (draw-line 70 3 "#F4A005" 145)
  (draw-line 35 3 "#F4A005" 235)
  (draw-line 10 3 "#F4A005" 190)
  (draw-line 20 3 "#F4A005" 100)
  (draw-line 70 3 "#F4A005" 90)
  (draw-line 50 3 "#F4A005" 0)
  (draw-line 20 3 "#F4A005" 350)
  (draw-line 50 3 "#F4A005" 340)
  (draw-line 50 3 "#F4A005" 355)
  (draw-line 50 3 "#F4A005" 10)

  ;;;Back
  (line-streak 15 2 7 10 160 "#F4A005" 10)
  (line-streak 15 2 4 10 140 "#F4A005" 0)
  (draw-line 100 3 "#F4A005" 315)
  (draw-line 60 3 "#F4A005" 280)
  (draw-line 40 3 "#F4A005" 290)
  (draw-line 30 3 "#F4A005" 310)
  (draw-line 30 3 "#F4A005" 270)
  (draw-line 40 3 "#F4A005" 250)
  (line-streak 15 3 8 7 80 "#F4A005" 290)
  (line-streak 15 3 7 20 73 "#F4A005" 270)
  (set-streak 15 2 140 "#F4A005" 298 35)

  ;;;Draw the eye
  (fill-circle -223 110 7 "black")

  ;;;Draw the nose
  (setposition -330 90)
  (setheading 70)
  (pendown)
  (begin_fill)
  (arc 18 2)
  (right 130)
  (forward 30)
  (right 90)
  (forward 20)
  (end_fill)
  (penup)

  (exitonclick)
)



(draw)