Rebol Programming/within?

USAGE:

edit
WITHIN? point offset size 

DESCRIPTION:

edit

Return TRUE if the point is within the rectangle bounds.

WITHIN? is a function value.

ARGUMENTS

edit
  • point -- XY position (Type: pair)
  • offset -- Offset of area (Type: pair)
  • size -- Size of area (Type: pair)

SOURCE CODE

edit
within?: func [
    {Return TRUE if the point is within the rectangle bounds.} 
    point [pair!] "XY position" 
    offset [pair!] "Offset of area" 
    size [pair!] "Size of area"
][
    found? all [
        point/x >= offset/x 
        point/y >= offset/y 
        point/x < (offset/x + size/x) 
        point/y < (offset/y + size/y)
    ]
]