;; The first three lines of this file were inserted by DrScheme. They record metadata
;; about the language level of this file in a form that our tools can easily process.
#reader(lib "htdp-beginner-reader.ss" "lang")((modname entry12) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "master.ss" "teachpack" "htdp") (lib "gui.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "master.ss" "teachpack" "htdp") (lib "gui.ss" "teachpack" "htdp")))))
;Lab 4

;dimensions of canvas
(start 300 300)

(draw-solid-rect (make-posn 130 130) 50 50 'silver) ;head
(draw-solid-rect (make-posn 120 185) 70 50 'silver) ;body
(draw-solid-rect (make-posn 140 145) 30 8 'red) ;eye
(draw-solid-rect (make-posn 90 200) 130 10 'silver) ;arms
(draw-solid-rect (make-posn 90 175) 10 25 'silver) ;left forearm
(draw-solid-rect (make-posn 210 175) 10 25 'silver) ;right forearm
(draw-solid-rect (make-posn 110 240) 90 20 'silver) ;feet
(sleep-for-a-while 1)
(clear-solid-rect (make-posn 90 175) 10 25)
(draw-solid-rect (make-posn 90 200) 10 30 'silver)
(sleep-for-a-while 1)
(clear-solid-rect (make-posn 210 175) 10 25)
(draw-solid-rect (make-posn 210 200) 10 30 'silver)
(sleep-for-a-while 1)
(clear-solid-rect (make-posn 110 240) 90 20)
(draw-solid-rect (make-posn 145 240) 20 20 'silver)
(sleep-for-a-while 1)
(clear-solid-rect (make-posn 145 240) 20 20)
(draw-solid-rect (make-posn 110 240) 90 20 'silver)
(sleep-for-a-while 1)
(clear-solid-rect (make-posn 110 240) 90 20)
(draw-solid-rect (make-posn 145 240) 20 20 'silver)
(sleep-for-a-while 1)
(clear-solid-rect (make-posn 145 240) 20 20)
(draw-solid-rect (make-posn 110 240) 90 20 'silver)
(sleep-for-a-while 2)
(draw-solid-rect (make-posn 140 145) 30 8 'black)