rect-ul ( rect -- point )

Vocabulary

quadtrees

Inputs

rect

an object

Outputs

point

an object

Definition

USING: accessors kernel math.vectors ;

IN: quadtrees

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