Rebol 程式設計/overlap?

用法

OVERLAP? f1 f2 

描述

如果面重疊，則返回 TRUE。

OVERLAP? 是一個函式值。

引數

• f1 -- (型別: 任何)
• f2 -- (型別: 任何)

原始碼

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
    ]
]