16 lines
233 B
Factor
16 lines
233 B
Factor
|
|
||
|
|
USING: sequences mortar slot-accessors ;
|
||
|
|
|
||
|
|
IN: geom.dim
|
||
|
|
|
||
|
|
SYMBOL: <dim>
|
||
|
|
|
||
|
|
<dim> { "dim" } accessors define-independent-class
|
||
|
|
|
||
|
|
<dim> {
|
||
|
|
|
||
|
|
"width" !( dim -- width ) [ $dim first ]
|
||
|
|
|
||
|
|
"height" !( dim -- second ) [ $dim second ]
|
||
|
|
|
||
|
|
} add-methods
|