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

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
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 ;