;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <oski is forever>
;;;
;;; Description:
;;;   <this is oski bear
;;;    that is also oski bear
;;;    oski's my hero>

(define (draw)
  ; preperation
  ; (speed 0)
  (hideturtle)
  (penup)
  (goto (screen_width) (/ (screen_width) 2))
  (bgcolor (rgb 0.925 0.729 0.141))
  

  (define (draw_oski size n)
    (if (= n 0) (penup)
      (begin
        (color (rgb 0.047 0.118 0.267))


        ;outside
        (begin_fill)
        (circle (* size 1.1)  30)
        (right 60)
        (circle (* size 0.55) 180)
        (right 120)
        (circle (* size 0.55) 180)
        (right 60)
        (circle (* size 1.1) 30)
        (fd (* size 0.7))
        (circle (* size 1.1) 180)
        (fd (* size 0.7))
        (end_fill)


        ;inside face
        (left 90)
        (forward (* size 0.1))
        (right 90)
        (color (rgb 0.925 0.729 0.141))
        (begin_fill)
        (circle size 180)
        (fd (* size 0.7))
        (circle size 180)
        (fd (* size 0.7))
        (end_fill)
  
  

  

        ;inside preperation
        (color (rgb 0.047 0.118 0.267))
        (left 90)
        (fd (* size 1.7))
  
  

        ; eye
        (define (draw_eye)
          ;outside eye
          (begin_fill)
          (right 90)
          (fd (* size 0.3))
          (circle (* size -0.25) 180)
          (fd (* size 0.3))
          (right 90)
          (fd (* size 0.05))
          (right 90)
          (fd (* size 0.3))
          (circle (* size 0.2) 180)
          (fd (* size 0.3))
          (end_fill)

          ;inside eye
            (left 90)
            (fd (* size 0.05))
            (begin_fill)
            (left 90)
            (fd (* size 0.15))
            (circle (* size -0.15) 180)
            (fd (* size 0.15))
            (left 90)
            (end_fill)
        )
        
        (draw_eye)
        (fd (* size 0.5))
        (left 180)
        (draw_eye)
        
        ;smile
        (fd (* size 0.05))
        (right 90)
        (fd (* size 0.5))

        (begin_fill)
        (fd (* size 0.25))
        (circle (* size -0.65) 180)
        (fd (* size 0.25))
        (right 90)

        (fd (* size 0.05))
        (right 90)
        (fd (* size 0.25))
        (circle (* size 0.6) 180)
        (fd (* size 0.25))
        (end_fill)

        ;recursive call
        (left 90)
        (fd (* size 0.2125))
        (seth 0)
        (draw_oski (* size 0.35) (- n 1))

      )
    )
  )
(draw_oski (screen_width) 8)
)



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