(load "tester.ss")

#| ------------------------------------------------------------------------
draw-next-part :
{ 'noose 'head 'right-arm 'left-arm 'body 'right-leg 'left-leg } -> #t
result: #t if things went okay
effect: to draw the specified body part in a canvas of size W x H
credit: John Clements 
|#
(define (draw-next-part body-part)
  (cond ((eq? body-part 'body)
	 (draw-solid-line (make-posn 100 60) (make-posn 100 130) BLACK))
    ((eq? body-part 'right-leg)
     (draw-solid-line (make-posn 100 130) (make-posn 30 170) BLACK))
    ((eq? body-part 'left-leg)
     (draw-solid-line (make-posn 100 130) (make-posn 170 170) BLACK))
    ((eq? body-part 'right-arm)
     (draw-solid-line (make-posn 100 75) (make-posn 40 65) BLACK))
    ((eq? body-part 'left-arm)
     (draw-solid-line (make-posn 100 75) (make-posn 160 65) BLACK))
    ((eq? body-part 'head)
     (draw-circle (make-posn 100 50) 10 BLACK))
    ((eq? body-part 'noose)
     (and
       (draw-solid-line (make-posn 100 30) (make-posn 100 10) BLACK)
       (draw-solid-line (make-posn 100 10) (make-posn 0 10) BLACK)
       (draw-solid-line (make-posn 115 35) (make-posn 123 43) BLACK)
       (draw-solid-line (make-posn 123 35) (make-posn 115 43) BLACK)
       (draw-solid-line (make-posn 131 40) (make-posn 139 48) BLACK)
       (draw-solid-line (make-posn 139 40) (make-posn 131 48) BLACK)
       (draw-circle (make-posn 120 50) 30 RED)))))

;; reveal-list : list-of-letters list-of-letters letter -> list-of-letters
(define (reveal-list word1 word2 letter)
  (cond
    ((empty? word1) empty)
    (else (cons (reveal1 (first word1) (first word2) letter)
                (reveal-list (rest word1) (rest word2) letter)))))


;; TESTS: 

;(start 200 400)
;(hangman-list reveal-list draw-next-part)
;
; (hangman-list reveal-list)
; (hangman-list reveal-list 1)
; (hangman-list 1 reveal-list)
; (hangman-list cons first)