(define (draw-snowman pos size color)
  (and
   ;; draw the big circle at the bottom
   (draw-solid-disk pos size color)
   (draw-circle pos size 'black)
   ;; draw the middle at .7 time the size of the big
   ;; and overlapping a bit
   (draw-solid-disk 
    (make-posn (posn-x pos) ( - (posn-y pos) (* size 1.2))) 
    (* .7 size)
    color)
   (draw-circle 
    (make-posn  (posn-x pos) ( - (posn-y pos) (* size 1.2))) 
    (* .7 size) 'black)
   ;; draw the head
   (draw-solid-disk 
    (make-posn (posn-x pos) ( - (posn-y pos) (* size  2))) 
    (* .4 size)
    color)
   (draw-circle 
    (make-posn  (posn-x pos) ( - (posn-y pos) (* size 2))) 
    (* .4 size) 'black)
   ;; draw some arms
   (draw-solid-line 
    (make-posn (+ (posn-x pos) (* size .5)) (- (posn-y pos) (* 1.3 size)))
    (make-posn (+ (posn-x pos) (* size 1.3)) (- (posn-y pos) (* 1.8 size))) 
    'black)
   (draw-solid-line 
    (make-posn (- (posn-x pos) (* size .5)) (- (posn-y pos) (* 1.3 size)))
    (make-posn (- (posn-x pos) (* size 1.3)) (- (posn-y pos) (* 1.8 size))) 
    'black)
   
  ))

(define (draw-family base-position color)
  (and
     (draw-snowman base-position 50 color)
     (draw-snowman 
	     (make-posn 
		    (- (posn-x base-position) 100) 
            (posn-y base-position))
		  20 color)
     (draw-snowman 
	     (make-posn 
		    (+ (posn-x base-position) 100) 
            (posn-y base-position))
		  20 color)))
(start 300 300)
;;(draw-snowman (make-posn 100 200) 50 'red)
;;(draw-snowman (make-posn 200 200) 20 'blue)
(draw-family (make-posn 150 200) 'red)