;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Hit or Miss? John "Daddy" Denero (The CS Meme King)
;;;
;;; Description:
;;;   "John Denero"? I only know
;;;    dAddY DEnEro. Press F by voting
;;;    so that Daddy Denero takes mercy on us for the final!

(define (draw)
(bgcolor "#c4faff")
(define (John)
(penup)
(forward 350)
(left 90)
(forward 225)
(pendown)
(forward 50)
(forward -25)
(left 90)
(forward 50)
(right 90)
(forward 25)
(right 180)
(penup)
(forward 80)
(pendown)
(circle 25)
(penup)
(forward 50)
(left 90)
(pendown)
(forward 50)
(forward -25)
(right 90)
(forward 20)
(penup)
(left 90)
(forward 25)
(pendown)
(right 180)
(forward 50)
(left 90)
(penup)
(forward 20)
(pendown)
(left 90)
(forward 50)
(right 135)
(forward 70)
(left 135)
(forward 50)
(penup)
(right 90)
(forward 100)
)

(define (d num)
(penup)
(forward 40)
(right 90)
(pendown)
(forward 50)
(left 90)
(circle 25 180)
(right 180)

(if (= 0 num) (penup) (d (- num 1)))
)

;recursive and iterative appraoch is here
(define (dad)

(d 0)
(forward 50)
(right 60)
(pendown)
(forward 60)
(forward -60)
(right 60)
(forward 60)
(forward -30)
(left 120)
(forward 30)
(penup)
(left 90)
(forward 25)
(right 90)
(forward -25)
(d 1)
(penup)
(forward 20)
(right 45)
(pendown)
(forward 40)
(left 90)
(forward 40)
(forward -40)
(right 135)
(forward 30)
)

(define (fingers num)
(right 160)
(pendown)
(forward 90)
(circle 20 180)
(forward 90)

(if (= num 0) (penup) (fingers (- num 1)))
)
(define (hand)
(left 20)
(pendown)
(forward 33)
(circle 20 180)
(forward 33)
(fingers 2)
(right 160)
(forward 30)
(circle 20 180)
(forward 30)
)

(define (helper num)
(dad)
(penup)
(right 90)
(forward 200)
(left 180)
(pendown)
(if (= num 0) (penup) (helper (- num 1)))
)

(John)
(dad)
(penup)
(forward 25)
(right 90)
(forward 80)
(pendown)
(circle 115)
(begin_fill)
(circle 100)
(color "#2878ff")
(end_fill)
(penup)
(forward 350)
(pendown)
(color "#111213")
(circle 115)
(begin_fill)
(circle 100)
(color "#f00")
(end_fill)
(color "#ffc9b2")
(left 90)
(penup)
(forward 250)
(left 90)
(forward 400)
(begin_fill)
(hand)
(forward 80)
(circle 72 163)
(end_fill)
(color "#111213")
(right 180)
(penup)
(forward -20)
(helper 2)
(penup)
(left 90)
(forward 180)
(right 90)
(forward 180)
(pendown)
(helper 2)

  (exitonclick))

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