19 lines
387 B
Factor
19 lines
387 B
Factor
|
IN: scratchpad
|
||
|
|
USING: generic kernel test math ;
|
||
|
|
|
||
|
|
TUPLE: rect x y w h ;
|
||
|
|
C: rect
|
||
|
|
[ set-rect-h ] keep
|
||
|
|
[ set-rect-w ] keep
|
||
|
|
[ set-rect-y ] keep
|
||
|
|
[ set-rect-x ] keep ;
|
||
|
|
|
||
|
|
: move ( x rect -- )
|
||
|
|
[ rect-x + ] keep set-rect-x ;
|
||
|
|
|
||
|
|
[ f ] [ 10 20 30 40 <rect> dup clone 5 swap [ move ] keep = ] unit-test
|
||
|
|
|
||
|
|
[ t ] [ 10 20 30 40 <rect> dup clone 0 swap [ move ] keep = ] unit-test
|
||
|
|
|
||
|
|
|