rect-lr ( rect -- point )

Vocabulary

quadtrees

Inputs

rect

an object

Outputs

point

an object

Definition

USING: accessors kernel math.vectors ;

IN: quadtrees

: rect-lr ( rect -- point )
    [ loc>> ] [ dim>> { 1 0 } v* ] bi v+ ;