2008-07-20 05:22:30 -04:00
|
|
|
|
|
|
|
|
IN: math.geometry
|
|
|
|
|
|
|
|
|
|
GENERIC: width ( object -- width )
|
|
|
|
|
GENERIC: height ( object -- width )
|
|
|
|
|
|
2008-07-21 18:01:44 -04:00
|
|
|
GENERIC# set-width! 1 ( object width -- object )
|
|
|
|
|
GENERIC# set-height! 1 ( object height -- object )
|
|
|
|
|
|
2008-07-20 10:05:15 -04:00
|
|
|
GENERIC# set-x! 1 ( object x -- object )
|
|
|
|
|
GENERIC# set-y! 1 ( object y -- object )
|
