|
|
|
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 ) |