;; aprt-build function creates an apartment building on canvas size 600 600
;; allows for color customization of the building, door and windows color
(define (aprt-build buildcolor doorcolor windcolor)
  (and
  (draw-solid-rect (make-posn 175 250) 250 250 buildcolor)
  (draw-solid-rect (make-posn 290 468) 20 32 doorcolor)
  (draw-solid-rect (make-posn 200 460) 20 20 windcolor)
  (draw-solid-rect (make-posn 380 460) 20 20 windcolor)
  (draw-solid-rect (make-posn 200 340) 20 20 windcolor)
  (draw-solid-rect (make-posn 290 340) 20 20 windcolor)
  (draw-solid-rect (make-posn 380 340) 20 20 windcolor)
  (draw-solid-rect (make-posn 200 260) 20 20 windcolor)
  (draw-solid-rect (make-posn 290 260) 20 20 windcolor)
  (draw-solid-rect (make-posn 380 260) 20 20 windcolor)))

;(start 600 600)
;(aprt-build 'red 'black 'yellow)