IN: math.geometry

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

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