跳转到内容

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
    ]
]
华夏公益教科书