ul-bounds ( rect -- rect' )

Vocabulary

quadtrees.private

Inputs

rect

an object

Outputs

rect'

an object

Definition

USING: accessors kernel math.rectangles math.vectors ;

IN: quadtrees.private

: ul-bounds ( rect -- rect' )
    [ [ loc>> ] [ dim>> { 0.0 0.5 } v* ] bi v+ ] [ child-dim ]
    bi <rect> ;