;; function draw-car consumes a posn struct, and one symbol
;; it draws a car located at pos, using the symbol color for the car's color
;;
;; example: (draw-car (make-posn 50 50) 'red)
;;
;; note: in order for the entire car to be shown, the y position value must be >= 20
(define (draw-car pos color)
  (and (draw-solid-rect pos 100 20 color)
       (draw-solid-line (make-posn (+ (posn-x pos) 25) (posn-y pos))
                        (make-posn (+ (posn-x pos) 40) (- (posn-y pos) 20)) color)
       (draw-solid-line (make-posn (+ (posn-x pos) 40) (- (posn-y pos) 20))
                        (make-posn (+ (posn-x pos) 70) (- (posn-y pos) 20)) color)
       (draw-solid-line (make-posn (+ (posn-x pos) 70) (- (posn-y pos) 20))
                        (make-posn (+ (posn-x pos) 80) (posn-y pos)) color)
       (draw-solid-line (make-posn (+ (posn-x pos) 40) (posn-y pos))
                        (make-posn (+ (posn-x pos) 40) (- (posn-y pos) 20)) color)
       (draw-solid-line (make-posn (+ (posn-x pos) 70) (- (posn-y pos) 20))
                        (make-posn (+ (posn-x pos) 70) (posn-y pos)) color)
       (draw-solid-disk (make-posn (+ (posn-x pos) 20) (+ (posn-y pos) 20)) 10 'black)
       (draw-solid-disk (make-posn (+ (posn-x pos) 80) (+ (posn-y pos) 20)) 10 'black)
       (draw-solid-disk (make-posn (+ (posn-x pos) 20) (+ (posn-y pos) 20)) 6 'silver)
       (draw-solid-disk (make-posn (+ (posn-x pos) 80) (+ (posn-y pos) 20)) 6 'silver)))

;(start 300 300)
;(draw-car (make-posn 50 50) 'red)