set-rect-bounds ( rect1 rect -- )

Vocabulary

math.rectangles

Inputs

rect1	an object
rect	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: math.rectangles

: set-rect-bounds ( rect1 rect -- )
    [ [ loc>> ] dip loc<< ] [ [ dim>> ] dip dim<< ] 2bi ; inline