線分のAABBと要素AABBの重なりを先に判定し、詳細交差計算を枝刈りする。
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=dp), | intent(in) | :: | p0(3) | |||
| real(kind=dp), | intent(in) | :: | p1(3) | |||
| real(kind=dp), | intent(in) | :: | bb_min(3) | |||
| real(kind=dp), | intent(in) | :: | bb_max(3) |
pure logical function segment_bbox_overlap(p0, p1, bb_min, bb_max) real(dp), intent(in) :: p0(3), p1(3), bb_min(3), bb_max(3) real(dp) :: seg_min(3), seg_max(3) seg_min = min(p0, p1) seg_max = max(p0, p1) segment_bbox_overlap = segment_bbox_overlap_precomputed(seg_min, seg_max, bb_min, bb_max) end function segment_bbox_overlap