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

math.geometry.rect: fix using

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

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

@ -1,11 +1,11 @@
USING: kernel arrays math.vectors math.geometry ; USING: kernel arrays sequences math.vectors math.geometry accessors ;
IN: math.geometry.rect IN: math.geometry.rect
TUPLE: rect loc dim ; TUPLE: rect loc dim ;
: init-rect ( rect -- rect ) { 0 0 } clone { 0 0 } clone <rect> ; : init-rect ( rect -- rect ) { 0 0 } clone >>loc { 0 0 } clone >>dim ;
: <rect> ( loc dim -- rect ) rect boa ; : <rect> ( loc dim -- rect ) rect boa ;