IN: math.geometry

GENERIC: width  ( object -- width )
GENERIC: height ( object -- width )

GENERIC# set-width!  1 ( object width  -- object )
GENERIC# set-height! 1 ( object height -- object )

GENERIC# set-x! 1 ( object x -- object )
GENERIC# set-y! 1 ( object y -- object )