with-rect-extents ( ..a+b rect1 rect2 loc-quot: ( ..a loc1 loc2 -- ..c ) ext-quot: ( ..b ext1 ext2 -- ..d ) -- ..c+d )

Vocabulary

math.rectangles

Inputs

rect1	an object
rect2	an object
loc-quot	a quotation with stack effect ( ..a loc1 loc2 -- ..c )
ext-quot	a quotation with stack effect ( ..b ext1 ext2 -- ..d )

Outputs

None

Definition

USING: kernel ;

IN: math.rectangles

: with-rect-extents
    ( ..a+b rect1 rect2 loc-quot: ( ..a loc1 loc2 -- ..c ) ext-quot: ( ..b ext1 ext2 -- ..d ) -- ..c+d )
    [ [ rect-extent ] bi@ ] 2dip bi-curry* bi* ; inline