;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Your title here>
;;;
;;; Description:
;;;   <Art is truely abstract>



(define (face)
  (seth 0)
  (penup)
  (setposition 75 67)
  (pendown)
  (color "#CE9C6B")
  (begin_fill)
  (circle 90 180)
  (forward 60)
  (circle 90 180)
  (forward 60)
  (end_fill)

)

(define (hair)
  (seth 0)
  (penup)
  (setposition 10 90)
  (pendown)
  (seth 110)
  (color "#E2E214")
  (begin_fill)
  (forward 100)
  (seth 30)
  (forward 90)
  (seth 300)
  (forward 140)
  (seth 260)
  (forward 45)
  (seth 280)
  (forward 55)
  (seth 230)
  (forward 120)
  (seth 150)
  (forward 70)
  (setposition 10 90)
  (end_fill)

)


(define (eyebrows)
  (penup)
  (setposition 10 67)
  (pendown)
  (seth 70)
  (color "#040101")
  (begin_fill)
  (forward 40)
  (seth 120)
  (forward 20)
  (setposition 10 67)
  (end_fill)
  (penup)
  (setposition -45 67)
  (pendown)
  (seth 290)
  (color "#040101")
  (begin_fill)
  (forward 40)
  (seth 240)
  (forward 20)
  (setposition -45 67)
  (end_fill)
)



(define (eyes)
  (penup)
  (setposition 25 68)
  (pendown)
  (color "#B1A2E0")
  (begin_fill)
  (circle 15 360)
  (end_fill)


  (penup)
  (setposition 27 63)
  (pendown)
  (color "#9183D6")
  (begin_fill)
  (circle 11 360)
  (end_fill)

  (penup)
  (setposition 27 60)
  (pendown)
  (color "#663CB3")
  (begin_fill)
  (circle 5 360)
  (end_fill)

  (penup)
  (setposition 37 66)
  (pendown)
  (color "#F0F0F0")
  (begin_fill)
  (circle 2 360)
  (end_fill)

  (penup)
  (setposition 29 67)
  (pendown)
  (color "#F0F0F0")
  (begin_fill)
  (circle 4 360)
  (end_fill)

  (penup)
  (setposition 37 57)
  (pendown)
  (color "#F0F0F0")
  (begin_fill)
  (circle 3 360)
  (end_fill)


    (penup)
    (setposition -65 65)
    (pendown)
    (color "#B1A2E0")
    (begin_fill)
    (circle 15 360)
    (end_fill)

    (penup)
    (setposition -63 63)
    (pendown)
    (color "#9183D6")
    (begin_fill)
    (circle 11 360)
    (end_fill)

    (penup)
    (setposition -63 60)
    (pendown)
    (color "#663CB3")
    (begin_fill)
    (circle 5 360)
    (end_fill)

    (penup)
    (setposition -53 66)
    (pendown)
    (color "#F0F0F0")
    (begin_fill)
    (circle 2 360)
    (end_fill)

    (penup)
    (setposition -61 67)
    (pendown)
    (color "#F0F0F0")
    (begin_fill)
    (circle 4 360)
    (end_fill)

    (penup)
    (setposition -53 57)
    (pendown)
    (color "#F0F0F0")
    (begin_fill)
    (circle 3 360)
    (end_fill)
)



(define (nose)

  (penup)
  (setposition -20 20)
  (pendown)
  (color "#C4844E")

  (seth 196)
  (begin_fill)
  (forward 40)

  (seth 90)
  (forward 25)
  (seth 0)
  (forward 5)
  (seth 270)
  (forward 7)
  (seth 354)
  (forward 30)
  (setposition -20 20)
  (end_fill)
)



(define (smile)
  (penup)
  (setposition -50 -40)
  (pendown)
  (hideturtle)
  (color "#B7653D")
  (begin_fill)
  (seth 90)
  (forward 5)
  (seth 45)
  (forward 10)
  (seth 90)
  (forward 15)
  (seth 135)
  (forward 10)
  (seth 45)
  (forward 10)
  (seth 90)
  (forward 15)
  (seth 135)
  (forward 10)
  (seth 90)
  (forward 5)
  (setposition -50 -40)
  (end_fill)


  (penup)
  (setposition -35 -40)
  (pendown)
  (color "#B7653D")
  (begin_fill)
  (seth 135)
  (forward 10)
  (seth 90)
  (forward 20)
  (seth 45)
  (forward 10)
  (setposition -35 -40)
  (end_fill)

)



  (define (Background n)
      (define step (* n 4))
      (color "#2F1847")
      (setheading 0)
      (right 90)
      (forward step)
      (right 90)
      (forward step)
      (right 92)
      (forward step)
      (right 93)
      (forward step)
      (if (< n 200)
      (Background (+ n 5))))



            (define (second n)
            (color "#2FB3A4")
            (circle (* 10 n))
            (if (< n 40)
            (second (+ 2 n))
              ))





(define (draw)
(penup)
(setposition -350 300)
(pendown)
(speed 10000)
(Background 1)
(penup)
(setposition 350 0)
(pendown)
(second 1)

(face)
(hair)
(eyebrows)
(eyes)
(nose)
(smile)

)


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