;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Thanksgiving Break To-Do List
;;;
;;; Description:
;;;   <Make pikachu meme
;;;    Make it recursive in scheme
;;;    Fall behind in classes>

(define (draw)
  ; YOUR CODE HERE
    (bgcolor "#4B9131")
    ; (penup)
    ; (setposition 90 300)
    ; (pendown)
    ; (begin_fill)
    ; (color "#934D33") ;bg brown
    ; ;top brown segment
    ; (setposition -100 300)
    ; (setposition -60 -20)
    ; (setposition 140 -20)
    ; (setposition 90 300)
    
    ; (end_fill)
    
    ; ;left brown segment
    ; (penup)
    ; (setposition -150 300)
    ; (pendown)
    ; (begin_fill)
    ; (setposition -150 300)
    ; (setposition -350 300)
    ; (setposition -350 -250)
    ; (end_fill) 

    ; (penup)
    ; (color "black")
    ; (setposition 90 300)
    ; (pendown)
    ; (setposition -100 300)
    ; (setposition -60 -20)
    ; (setposition 140 -20)
    ; (setposition 90 300)
        
    ; (penup)
    ; (setposition -150 300)
    ; (pendown)
    ; (setposition -150 300)
    ; (setposition -350 300)
    ; (setposition -350 -250)
    ; (setposition -150 300)
    (define (fn mult shift)
        (if (>= mult 0.125)
            (begin   
                (fn (/ mult 2) (+ shift (* 120 mult)))
                (color "#F0C425") ; pikachu yellow
                (penup)
                (setposition (* mult 120) (+ shift (* mult -20)))
                (pendown)
                (begin_fill)
                ; left ear
                (setposition (* mult -20) (+ shift (* mult -20)))
                (setposition (* mult -200) (+ shift (* mult 90)))
                (setposition (* mult -90) (+ shift (* mult -90)))
                ; face
                (setposition (* mult -110) (+ shift (* mult -240)))
                (setposition (* mult -85) (+ shift (* mult -290)))
                (setposition (* mult 260) (+ shift (* mult -291)))
                (setposition (* mult 210) (+ shift (* mult -91)))
                ; right ear
                (setposition (* mult 330) (+ shift (* mult 30)))
                (setposition (* mult 330) (+ shift (* mult 60)))
                (setposition (* mult 120) (+ shift (* mult -20)))
                (end_fill)
                
                ; pikachu outline
                (color "black")
                (penup)
                (setposition (* mult 120) (+ shift (* mult -20)))
                (pendown)
                ; left ear
                (setposition (* mult -20) (+ shift (* mult -20)))
                (setposition (* mult -200) (+ shift (* mult 90)))
                (setposition (* mult -90) (+ shift (* mult -90)))
                ; face
                (setposition (* mult -110) (+ shift (* mult -240)))
                (setposition (* mult -85) (+ shift (* mult -290)))
                (setposition (* mult 260) (+ shift (* mult -290)))
                (setposition (* mult 210) (+ shift (* mult -90)))
                ; right ear
                (setposition (* mult 330) (+ shift (* mult 30)))
                (setposition (* mult 330) (+ shift (* mult 60)))
                (setposition (* mult 120) (+ shift (* mult -20)))
            
                ; pikachu details
                (penup)
                ; left ear
                (setposition (* mult -200) (+ shift (* mult 90)))
                (color "black")
                (pendown)
                (begin_fill)
                (setposition (* mult -152) (+ shift (* mult 10)))
                (setposition (* mult -165) (+ shift (* mult 70)))
                (setposition (* mult -200) (+ shift (* mult 90)))
                (end_fill)
            
                ; eyes - black
                (penup)
                (setposition (* mult -10) (+ shift (* mult -130)))
                (begin_fill)
                (circle (* mult 20))
                (end_fill)
            
                (penup)
                (setposition (* mult 150) (+ shift (* mult -130)))
                (begin_fill)
                (circle (* mult 20))
                (end_fill)
            
                ; nose
                (penup)
                (setposition (* mult 48) (+ shift (* mult -160)))
                (pendown)
                (begin_fill)
                (setposition (* mult 33) (+ shift (* mult -155)))
                (setposition (* mult 21) (+ shift (* mult -158)))
                (setposition (* mult 34) (+ shift (* mult -164)))
                (setposition (* mult 42) (+ shift (* mult -166)))
                (setposition (* mult 48) (+ shift (* mult -160)))
                (end_fill)
            
                ; eyes - white;;;;
                (penup)
                (setposition (* mult -34) (+ shift (* mult -123)))
                (color "white")
                (pendown)
                (begin_fill)
                (circle (* mult 6))
                (end_fill)
            
                (penup)
                (setposition (* mult 126) (+ shift (* mult -123)))
                (pendown)
                (begin_fill)
                (circle (* mult 6))
                (end_fill)
            
                ; mouth
                (penup)
                (setposition (* mult 70) (+ shift (* mult -223)))
                (color "#EC805A")
                (pendown)
                (begin_fill)
                (circle (* mult 27))
                (end_fill)
                
                (color "black")
                (circle (* mult 27))
            
                (penup)
                (color "#EC805A")
                (setposition (* mult 80) (+ shift (* mult -223)))
                (pendown)
                (begin_fill)
                (circle (* mult 27))
                (end_fill)
            
                (color "black")
                (circle (* mult 27))
            
                (penup)
                (setposition (* mult 75) (+ shift (* mult -223)))
                (color "#EC805A")
                (pendown)
                (begin_fill)
                (circle (* mult 27))
                (end_fill)
            
                (penup)
                (color "black")
                (setposition (* mult 55) (+ shift (* mult -196)))
                (pendown)
                (setposition (* mult 45) (+ shift (* mult -196)))
                (penup)
                (setposition (* mult 55) (+ shift (* mult -250)))
                (pendown)
                (setposition (* mult 45) (+ shift (* mult -250)))
            
                
                ; cheeks
                (penup)
                (setposition (* mult -58) (+ shift (* mult -185)))
                (color "#D5541A")
                (pendown)
                (begin_fill)
                (circle (* mult 23))
                (end_fill)
            
                (penup)
                (setposition (* mult 210) (+ shift (* mult -185)))
                (pendown)
                (begin_fill)
                (circle (* mult 23))
                (end_fill)
            
                (color "black")
                (circle (* mult 23))
            
                (penup)
                (setposition (* mult -58) (+ shift (* mult -185)))
                (pendown)
                (circle (* mult 23))
            )
        )
    )
    (fn 1 1)
    ; (color "#F0C425") ; pikachu yellow
    ; (penup)
    ; (setposition 120 -20)
    ; (pendown)
    ; (begin_fill)
    ; ; left ear
    ; (setposition -20 -20)
    ; (setposition -200 90)
    ; (setposition -90 -90)
    ; ; face
    ; (setposition -110 -240)
    ; (setposition -85 -290)
    ; (setposition 260 -290)
    ; (setposition 210 -90)
    ; ; right ear
    ; (setposition 330 30)
    ; (setposition 330 60)
    ; (setposition 120 -20)
    ; (end_fill)
    
    ; ; pikachu outline
    ; (color "black")
    ; (penup)
    ; (setposition 120 -20)
    ; (pendown)
    ; ; left ear
    ; (setposition -20 -20)
    ; (setposition -200 90)
    ; (setposition -90 -90)
    ; ; face
    ; (setposition -110 -240)
    ; (setposition -85 -290)
    ; (setposition 260 -290)
    ; (setposition 210 -90)
    ; ; right ear
    ; (setposition 330 30)
    ; (setposition 330 60)
    ; (setposition 120 -20)

    ; ; pikachu details
    ; (penup)
    ; ; left ear
    ; (setposition -200 90)
    ; (color "black")
    ; (pendown)
    ; (begin_fill)
    ; (setposition -152 10)
    ; (setposition -165 70)
    ; (setposition -200 90)
    ; (end_fill)

    ; ; eyes - black
    ; (penup)
    ; (setposition -10 -130)
    ; (begin_fill)
    ; (circle 20)
    ; (end_fill)

    ; (penup)
    ; (setposition 150 -130)
    ; (begin_fill)
    ; (circle 20)
    ; (end_fill)

    ; ; nose
    ; (penup)
    ; (setposition 48 -160)
    ; (pendown)
    ; (begin_fill)
    ; (setposition 33 -155)
    ; (setposition 21 -158)
    ; (setposition 34 -164)
    ; (setposition 42 -166)
    ; (setposition 48 -160)
    ; (end_fill)

    ; ; eyes - white;;;;
    ; (penup)
    ; (setposition -34 -123)
    ; (color "white")
    ; (pendown)
    ; (begin_fill)
    ; (circle 6)
    ; (end_fill)

    ; (penup)
    ; (setposition 126 -123)
    ; (pendown)
    ; (begin_fill)
    ; (circle 6)
    ; (end_fill)

    ; ; mouth
    ; (penup)
    ; (setposition 70 -223)
    ; (color "#EC805A")
    ; (pendown)
    ; (begin_fill)
    ; (circle 27)
    ; (end_fill)
    
    ; (color "black")
    ; (circle 27)

    ; (penup)
    ; (color "#EC805A")
    ; (setposition 80 -223)
    ; (pendown)
    ; (begin_fill)
    ; (circle 27)
    ; (end_fill)

    ; (color "black")
    ; (circle 27)

    ; (penup)
    ; (setposition 75 -223)
    ; (color "#EC805A")
    ; (pendown)
    ; (begin_fill)
    ; (circle 27)
    ; (end_fill)

    ; (penup)
    ; (color "black")
    ; (setposition 55 -196)
    ; (pendown)
    ; (setposition 45 -196)
    ; (penup)
    ; (setposition 55 -250)
    ; (pendown)
    ; (setposition 45 -250)

    
    ; ; cheeks
    ; (penup)
    ; (setposition -58 -185)
    ; (color "#D5541A")
    ; (pendown)
    ; (begin_fill)
    ; (circle 23)
    ; (end_fill)

    ; (penup)
    ; (setposition 210 -185)
    ; (pendown)
    ; (begin_fill)
    ; (circle 23)
    ; (end_fill)

    ; (color "black")
    ; (circle 23)

    ; (penup)
    ; (setposition -58 -185)
    ; (pendown)
    ; (circle 23)

    (ht)
    (exitonclick))

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