1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
puts "========"
puts "OCC24065"
puts "========"
puts ""
#######################################################################
# Wrong intersection point
#######################################################################
restore [locate_data_file bug24065_f.brep] f
restore [locate_data_file bug24065_e.brep] e
# 1
set CMP_TOL 1.e-7
set facetolmax [tolmax f]
regexp {max tol = ([-0-9.+eE]+)} ${facetolmax} full FaceMaxTolerance
if { ${FaceMaxTolerance} > ${CMP_TOL} } {
puts "Error: invalid tolerance of face"
}
mksurface s f
mkcurve c e
intersect i c s
# 2
set CMP_DIST 1.86835288e-8
set distmax [projponf f i_2]
regexp {proj dist = ([-0-9.+eE]+)} ${distmax} full MaxDist
if { [expr abs(${MaxDist} - ${CMP_DIST})] > ${CMP_TOL} } {
puts "Error: Wrong intersection point"
}
|
