;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Your title here>
;;;
;;; Description:
;;;   <peppa pig, peppa pig, peppa pig, peppa pig
;;;    peppa pig, peppa pig, peppa pig, peppa pig
;;;    try this with the "Gucci Gang" rhythm

(define (draw-peppa)
(speed 0)
  (hideturtle)
  (color "#ffc0cb")
  (setheading 120)
  (pu)
  (goto -100 100)
  (begin_fill)
  (pd)
; draw a circle in a stupid way!
(color "black")
(lt 3)
(fd 0.48000000000000004)
(lt 3)
(fd 0.56)
(lt 3)
(fd 0.64)
(lt 3)
(fd 0.72)
(lt 3)
(fd 0.7999999999999999)
(lt 3)
(fd 0.8799999999999999)
(lt 3)
(fd 0.9599999999999999)
(lt 3)
(fd 1.0399999999999998)
(lt 3)
(fd 1.1199999999999999)
(lt 3)
(fd 1.2)
(lt 3)
(fd 1.28)
(lt 3)
(fd 1.36)
(lt 3)
(fd 1.4400000000000002)
(lt 3)
(fd 1.5200000000000002)
(lt 3)
(fd 1.6000000000000003)
(lt 3)
(fd 1.6800000000000004)
(lt 3)
(fd 1.7600000000000005)
(lt 3)
(fd 1.8400000000000005)
(lt 3)
(fd 1.9200000000000006)
(lt 3)
(fd 2.0000000000000004)
(lt 3)
(fd 2.0800000000000005)
(lt 3)
(fd 2.1600000000000006)
(lt 3)
(fd 2.2400000000000007)
(lt 3)
(fd 2.3200000000000007)
(lt 3)
(fd 2.400000000000001)
(lt 3)
(fd 2.480000000000001)
(lt 3)
(fd 2.560000000000001)
(lt 3)
(fd 2.640000000000001)
(lt 3)
(fd 2.720000000000001)
(lt 3)
(fd 2.800000000000001)
(lt 3)
(fd 2.720000000000001)
(lt 3)
(fd 2.640000000000001)
(lt 3)
(fd 2.560000000000001)
(lt 3)
(fd 2.480000000000001)
(lt 3)
(fd 2.400000000000001)
(lt 3)
(fd 2.3200000000000007)
(lt 3)
(fd 2.2400000000000007)
(lt 3)
(fd 2.1600000000000006)
(lt 3)
(fd 2.0800000000000005)
(lt 3)
(fd 2.0000000000000004)
(lt 3)
(fd 1.9200000000000004)
(lt 3)
(fd 1.8400000000000003)
(lt 3)
(fd 1.7600000000000002)
(lt 3)
(fd 1.6800000000000002)
(lt 3)
(fd 1.6)
(lt 3)
(fd 1.52)
(lt 3)
(fd 1.44)
(lt 3)
(fd 1.3599999999999999)
(lt 3)
(fd 1.2799999999999998)
(lt 3)
(fd 1.1999999999999997)
(lt 3)
(fd 1.1199999999999997)
(lt 3)
(fd 1.0399999999999996)
(lt 3)
(fd 0.9599999999999996)
(lt 3)
(fd 0.8799999999999997)
(lt 3)
(fd 0.7999999999999997)
(lt 3)
(fd 0.7199999999999998)
(lt 3)
(fd 0.6399999999999998)
(lt 3)
(fd 0.5599999999999998)
(lt 3)
(fd 0.4799999999999998)
(lt 3)
(fd 0.3999999999999998)
(lt 3)
(fd 0.4799999999999998)
(lt 3)
(fd 0.5599999999999998)
(lt 3)
(fd 0.6399999999999998)
(lt 3)
(fd 0.7199999999999998)
(lt 3)
(fd 0.7999999999999997)
(lt 3)
(fd 0.8799999999999997)
(lt 3)
(fd 0.9599999999999996)
(lt 3)
(fd 1.0399999999999996)
(lt 3)
(fd 1.1199999999999997)
(lt 3)
(fd 1.1999999999999997)
(lt 3)
(fd 1.2799999999999998)
(lt 3)
(fd 1.3599999999999999)
(lt 3)
(fd 1.44)
(lt 3)
(fd 1.52)
(lt 3)
(fd 1.6)
(lt 3)
(fd 1.6800000000000002)
(lt 3)
(fd 1.7600000000000002)
(lt 3)
(fd 1.8400000000000003)
(lt 3)
(fd 1.9200000000000004)
(lt 3)
(fd 2.0000000000000004)
(lt 3)
(fd 2.0800000000000005)
(lt 3)
(fd 2.1600000000000006)
(lt 3)
(fd 2.2400000000000007)
(lt 3)
(fd 2.3200000000000007)
(lt 3)
(fd 2.400000000000001)
(lt 3)
(fd 2.480000000000001)
(lt 3)
(fd 2.560000000000001)
(lt 3)
(fd 2.640000000000001)
(lt 3)
(fd 2.720000000000001)
(lt 3)
(fd 2.800000000000001)
(lt 3)
(fd 2.720000000000001)
(lt 3)
(fd 2.640000000000001)
(lt 3)
(fd 2.560000000000001)
(lt 3)
(fd 2.480000000000001)
(lt 3)
(fd 2.400000000000001)
(lt 3)
(fd 2.3200000000000007)
(lt 3)
(fd 2.2400000000000007)
(lt 3)
(fd 2.1600000000000006)
(lt 3)
(fd 2.0800000000000005)
(lt 3)
(fd 2.0000000000000004)
(lt 3)
(fd 1.9200000000000004)
(lt 3)
(fd 1.8400000000000003)
(lt 3)
(fd 1.7600000000000002)
(lt 3)
(fd 1.6800000000000002)
(lt 3)
(fd 1.6)
(lt 3)
(fd 1.52)
(lt 3)
(fd 1.44)
(lt 3)
(fd 1.3599999999999999)
(lt 3)
(fd 1.2799999999999998)
(lt 3)
(fd 1.1999999999999997)
(lt 3)
(fd 1.1199999999999997)
(lt 3)
(fd 1.0399999999999996)
(lt 3)
(fd 0.9599999999999996)
(lt 3)
(fd 0.8799999999999997)
(lt 3)
(fd 0.7999999999999997)
(lt 3)
(fd 0.7199999999999998)
(lt 3)
(fd 0.6399999999999998)
(lt 3)
(fd 0.5599999999999998)
(lt 3)
(fd 0.4799999999999998)
(lt 3)
(fd 0.3999999999999998)
(color "#ffc0cb")
(end_fill)
(pu)
(seth 0);
(fd 25)
(seth 90);
(fd 10)
(begin_fill)
(pd)
(circle 5)
(color "#a0522d")
(end_fill)
(pu)
(seth 90);
(fd 20)
(pd)
(color "#ff9b5c")
(begin_fill)
(circle 5)
(color "#a0522d")
(end_fill)

;head
(color "black")
(pu)
(seth 0);
(fd 41)
(seth 0);
(pd)
(begin_fill)
(seth 90)
(circle -300 30)
(circle -100 60)
(circle -80 100)
(circle -150 20)
(circle -60 95)
(seth -71);
(circle -300 15)
(pu)
(goto -100 100)
(pd)
(seth 120);




(lt 3)
(fd 0.48000000000000004)
(lt 3)
(fd 0.56)
(lt 3)
(fd 0.64)
(lt 3)
(fd 0.72)
(lt 3)
(fd 0.7999999999999999)
(lt 3)
(fd 0.8799999999999999)
(lt 3)
(fd 0.9599999999999999)
(lt 3)
(fd 1.0399999999999998)
(lt 3)
(fd 1.1199999999999999)
(lt 3)
(fd 1.2)
(lt 3)
(fd 1.28)
(lt 3)
(fd 1.36)
(lt 3)
(fd 1.4400000000000002)
(lt 3)
(fd 1.5200000000000002)
(lt 3)
(fd 1.6000000000000003)
(lt 3)
(fd 1.6800000000000004)
(lt 3)
(fd 1.7600000000000005)
(lt 3)
(fd 1.8400000000000005)
(lt 3)
(fd 1.9200000000000006)
(lt 3)
(fd 2.0000000000000004)
(lt 3)
(fd 2.0800000000000005)
(lt 3)
(fd 2.1600000000000006)
(lt 3)
(fd 2.2400000000000007)
(lt 3)
(fd 2.3200000000000007)
(lt 3)
(fd 2.400000000000001)
(lt 3)
(fd 2.480000000000001)
(lt 3)
(fd 2.560000000000001)
(lt 3)
(fd 2.640000000000001)
(lt 3)
(fd 2.720000000000001)
(lt 3)
(fd 2.800000000000001)
(lt 3)
(fd 2.720000000000001)
(lt 3)
(fd 2.640000000000001)
(lt 3)
(fd 2.560000000000001)
(lt 3)
(fd 2.480000000000001)
(lt 3)
(fd 2.400000000000001)
(lt 3)
(fd 2.3200000000000007)
(lt 3)
(fd 2.2400000000000007)
(lt 3)
(fd 2.1600000000000006)
(lt 3)
(fd 2.0800000000000005)
(lt 3)
(fd 2.0000000000000004)
(lt 3)
(fd 1.9200000000000004)
(lt 3)
(fd 1.8400000000000003)
(lt 3)
(fd 1.7600000000000002)
(lt 3)
(fd 1.6800000000000002)
(lt 3)
(fd 1.6)
(lt 3)
(fd 1.52)
(lt 3)
(fd 1.44)
(lt 3)
(fd 1.3599999999999999)
(lt 3)
(fd 1.2799999999999998)
(lt 3)
(fd 1.1999999999999997)
(lt 3)
(fd 1.1199999999999997)
(lt 3)
(fd 1.0399999999999996)
(lt 3)
(fd 0.9599999999999996)
(lt 3)
(fd 0.8799999999999997)
(lt 3)
(fd 0.7999999999999997)
(lt 3)
(fd 0.7199999999999998)
(lt 3)
(fd 0.6399999999999998)
(lt 3)
(fd 0.5599999999999998)
(lt 3)
(fd 0.4799999999999998)
(lt 3)
(fd 0.3999999999999998)
(color "#ffc0cb")
(end_fill)
;finished the stupid head

;ear
(color "black")
(pu)
(seth 0)
(fd -7)
(seth 90)
(fd 70)
(pd)
(begin_fill)
(seth -10)
(circle -50 50)
(circle -10 120)
(circle -50 54)
(color "#ffc0cb")
(end_fill)
(color "black")
(pu)
(seth 0)
(fd -12)
(seth 90)
(fd 30)
(pd)
(begin_fill)
(seth -10)
(circle -50 50)
(circle -10 120)
(circle -50 56)
(color "#ffc0cb")
(end_fill)
;finished the stupid ears

;eyes
(color "white")
(pu)
(seth 0)
(fd -20)
(seth 90)
(fd -95)
(pd)
(begin_fill)
(circle 15)
(end_fill)
(color "black")
(pu)
(seth 0)
(fd 12)
(seth 90)
(fd -3)
(pd)
(begin_fill)
(circle 3)
(end_fill)
(color "white")
(pu)
(seth 0)
(fd -25)
(seth 90)
(fd 40)
(pd)
(begin_fill)
(circle 15)
(end_fill)
(color "black")
(pu)
(seth 0)
(fd 12)
(seth 90)
(fd -3)
(pd)
(begin_fill)
(circle 3)
(end_fill)
; finished the eyes

;face
(color "#ff9bc0")
(pu)
(seth 0)
(fd -95)
(seth 90)
(fd 65)
(pd)
(begin_fill)
(circle 30)
(end_fill)
;finished the stupid face

;mouth
(color "#ef4513")
(pu)
(seth 0)
(fd 15)
(seth 90)
(fd -100)
(pd)
(seth 170)
(circle 30 40)
(circle 40 80)
;finished the stupid mouth

;body
(color "black")
(pu)
(seth 0)
(fd -20)
(seth 90)
(fd -78)
(pd)
(begin_fill)
(seth 220)
(circle 100 10)
(circle 300 30)
(seth 90)
(fd 230)
(seth 0)
(circle 300 30)
(circle 100 3)
(seth 225)
(circle -80 63)
(circle -150 24)
(color "red")
(end_fill)
;finished the stupid body, I am tired

;hands
(color "#ffc0cb")
(pu)
(seth 0)
(fd -40)
(seth 90)
(fd -27)
(pd)
(seth 250)
(circle 300 15)
(pu)
(seth 0)
(fd 15)
(seth 90)
(fd 0)
(pd)
(seth 100)
(circle -20 90)
(pu)
(seth 0)
(fd 0)
(seth 90)
(fd 237)
(pd)
(seth 110)
(circle -300 15)
(pu)
(seth 0)
(fd 20)
(seth 90)
(fd 0)
(pd)
(seth 260)
(circle 20 90)
;finished the stupid two hands

;legs
(color "#f08080")
(pu)
(seth 0)
(fd -40)
(seth 90)
(fd -180)
(pd)
(seth 180)
(fd 40)
(seth 270)
(color "black")
(fd 20)
(color "#f08080")
(pu)
(seth 0)
(fd 40)
(seth 90)
(fd 90)
(pd)
(seth 180)
(fd 40)
(seth 270)
(color "black")
(fd 20)
;finished the legs

;finally, the tail
(color "#ffc0cb")
(pu)
(seth 0)
(fd 60)
(seth 90)
(fd 95)
(pd)
(seth 90)
(circle 70 20)
(circle 10 330)
(circle 70 30)
)

(define (grass length)
    (color "green")
    (left 135)
    (forward length)
    (backward length)
    (right 45)
    (forward length)
    (backward length)
    (right 45)
    (forward length)
    (backward length)
  )
  
  (define (copy-grass number)
    (if (> number 0)
      (begin
      (pd)
      (grass 20)
      (pu)
      (seth 90)
      (fd 35)
      (copy-grass (- number 1))
      )
    )
  )

  (define (flower length)
    (pd)
    (color "green")
    (left 135)
    (forward length)
    (backward length)
    (right 90)
    (forward length)
    (backward length)
    (left 45)
    (forward (* 2 length))
    (right 90)
    (color "yellow")
    (circle 40)
    (penup)
    (color "red")
    (left 90)
    (forward 55)
    (right 90)
    (forward 25)
    (left 90)
    (pendown)
    (circle 40)
    (left 45)
    (forward 20)
    (circle 40)
    (left 45)
    (forward 20)
    (circle 40)
    (left 45)
    (forward 20)
    (circle 40)
    (left 45)
    (forward 20)
    (circle 40)
    (left 45)
    (forward 20)
    (circle 40)
    (left 45)
    (forward 20)
    (circle 40)
    (left 45)
    (forward 20)
    (circle 40)
    )

(define (draw)
  (draw-peppa)
  (copy-grass 3)
  (seth -90)
  (fd 750)
  (seth 180)
  (fd 60)
  (seth 90)
  (copy-grass 25)
  (seth -90)
  (fd 700)
  (seth 180)
  (fd 45)
  (seth 90)
  (copy-grass 25)
  (seth -90)
  (fd 730)
  (seth 0)
  (fd 100)
  (seth 90)
  (flower 60)
(exitonclick)
)

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