;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Surprised Pikachu 
;;;
;;; Description:
;;;   sad reaccs only



;-------------------------------------------------------------------------------------------------

(define (draw-mouth-cheeks)
    (penup); draw cheek
  (color "#ff0000")
  (begin_fill)
  (setposition -150 -100)
  (circle 30)
  (end_fill)
  
  (penup) ; draw cheek
    (begin_fill)
  (setposition 180 -100)
  (circle 30)
  (end_fill)
  
    (penup); draw mouth
  (color "#ff69b4")
  (begin_fill)
  (setposition 40 -120)
  (circle 50)
  (end_fill)
(penup)
  )
  
  (define (draw-eyes)
  (penup) ;draw eye
  (setposition -80 10)
  (color "#000000")
  (begin_fill)
  (circle 50)
  (end_fill)
  
   (penup) ;draw eye
  (setposition 130 10)
  (begin_fill)
  (circle 50)
  (end_fill)
  
    (penup) ;draw pupil
  (setposition 130 10)
  (color "#ffffff")
  (begin_fill)
  (circle 10)
  (end_fill)
  
    (penup) ;draw pupil
  (setposition -80 10)
  (begin_fill)
  (circle 10)
  (end_fill)
  )
  
(define (draw-head)
  (penup) ; draw head
  (setposition 200 -25)
  (color "#ffff00")
  (begin_fill)
  (circle 240)
  (end_fill)

  (penup) ; draw ear
  (setposition 300 300)
  (pendown)
  (begin_fill)
  (setposition 70 70)
  (setposition 60 195)
  (end_fill)
  
  (penup) ; draw ear
  (setposition -380 300)
  (pendown)
  (begin_fill)
  (setposition -160 65)
  (setposition -150 190)
  (end_fill)
    
    (penup) ; draw nose
  (setposition 0 -40)
  (color "#000000")
  (begin_fill)
  (circle 10)
  (end_fill)
  
  (penup) ; draw tip
  (setposition 301 300)
  (pendown)
  (begin_fill)
  (setposition 180 250)
  (setposition 250 250)
  (end_fill)
  
  
  (penup) ; draw tip
  (setposition -380 300)

  (pendown)
  (begin_fill)
  (setposition -334 250)
  (setposition -270 250)
  (end_fill)
  
 )

(define (draw-pikachu)
    (speed 150)
	(draw-head)
    (draw-mouth-cheeks)
	(draw-eyes)
    )



(define (background start listofcolors)

  
 (if
    (or (null? listofcolors) (> start 2000)) nil
    (begin (setposition start 0)
    (color (car listofcolors))
    (begin_fill)
    (circle 500)
    (end_fill)
    (background (+ start 20) (cdr listofcolors)))
  )
)


(define (writing)
  (setposition -300 -320)
  (color "#1a0000")
  (write 'WHEN_YOU_SEE_THE_FIRST)
  (setposition -330 -380)
  (write 'QUESTION_ON_THE_FINAL)

  
  
)


(define colors
  '(
   "#00E56A" "#01E066" "#01DE64" "#02DB62" "#03D960"
   "#03D75E" "#04D45C" "#04D25A" "#05D058" "#06CD57"
   "#06CB55" "#07C953" "#0ABD49" "#0BBB47" "#0BB845"
   "#0CB644" "#0CB442" "#0EAF3E" "#0FAA3A" "#0FA838"
   "#10A636" "#11A334" "#11A132" "#129F31" "#129C2F"
   "#139A2D" "#14982B" "#149529" "#159327" "#169125"
   "#168E23" "#178C21" "#178A1F" "#18871E" "#19851C"
   "#19831A" "#1A8018" "#1A7E16" "#1B7C14" "#1C7912"
   "#1C7710" "#1D750E" "#1E730D" "#1E730F" "#1F730D" )
  )
  
  
(define (draw)
  (speed 150)
  (background 100 colors)
  (draw-pikachu)
  (writing)
  (hideturtle)
  (exitonclick))


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