solid-rectangle

;;; (solid-rectangle width height color [description]) -> image?
;;;   width : nonnegative-real?
;;;   height : nonnegative-real?
;;;   color : color?
;;;   description : string?
;;; A polygon whose vertices are given by `points` and whose color is `color`.

(define solid-rectangle
  (lambda (width height color [description #f])
    (solid-polygon (list (pt 0 0) 
                         (pt width 0) 
                         (pt width height)
                         (pt 0 height))
                   color
                   description)))