411 REFERENCE · Wikibooks
Rebol Programming/overlap?
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
USAGE:
OVERLAP? f1 f2
DESCRIPTION:
Returns TRUE if faces overlap each other.
OVERLAP? is a function value.
ARGUMENTS:
f1 -- (Type: any)
f2 -- (Type: any)
SOURCE CODE
overlap?: func [
"Returns TRUE if faces overlap each other."
f1 f2
][
found? all [
f1/offset/x < (f2/offset/x + f2/size/x)
f1/offset/y < (f2/offset/y + f2/size/y)
(f1/offset/x + f1/size/x) > f2/offset/x
(f1/offset/y + f1/size/y) > f2/offset/y
]
]