basis/math/geometry/geometry.factor

   1
   2 IN: math.geometry
   3
   4 GENERIC: width  ( object -- width )
   5 GENERIC: height ( object -- width )
   6
   7 GENERIC# set-width!  1 ( object width  -- object )
   8 GENERIC# set-height! 1 ( object height -- object )
   9
  10 GENERIC# set-x! 1 ( object x -- object )
  11 GENERIC# set-y! 1 ( object y -- object )