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
rect1an object
rect2an object
loc-quota quotation with stack effect ( ..a loc1 loc2 -- ..c )
ext-quota quotation with stack effect ( ..b ext1 ext2 -- ..d )


Outputs
None

Definition


: 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