Handbook
Glossary
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