(define-primitive (rectangle width height #:key texture color texture-coord)
(draw-rectangle width height #:texture texture #:color color #:texture-coord texture-coord))
(define-primitive (rectangle width height #:key texture color texture-coord)
(draw-rectangle width height #:texture texture #:color color #:texture-coord texture-coord))