steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.geometry.rect: add geometry methods

db4
Eduardo Cavazos 2008-07-20 04:23:43 -05:00
parent bb84e85d3d
commit 5107c975a2
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
extra/math/geometry/rect/rect.factor
View File

@ -1,13 +1,15 @@
USING: kernel arrays math.vectors ;
USING: kernel arrays math.vectors math.geometry ;
IN: math.geometry.rect
TUPLE: rect { loc initial: { 0 0 } } { dim initial: { 0 0 } } ;
TUPLE: rect loc dim ;
: <zero-rect> ( -- rect ) rect new ;
: init-rect ( rect -- rect ) { 0 0 } clone { 0 0 } clone <rect> ;
C: <rect> rect
: <rect> ( loc dim -- rect ) rect boa ;
: <zero-rect> ( -- rect ) rect new init-rect ;
M: array rect-loc ;
@ -40,3 +42,8 @@ M: array rect-dim drop { 0 0 } ;
: rect-union ( rect1 rect2 -- newrect )
(rect-union) <extent-rect> ;
M: rect width ( rect -- width ) dim>> first ;
M: rect height ( rect -- height ) dim>> second ;
M: rect set-x! ( rect x -- rect ) over loc>> set-first ;
M: rect set-y! ( rect y -- rect ) over loc>> set-second ;