1 puts "========================"
3 puts "========================"
5 #######################################################################
6 # Sewing produces the result with huge tolerance
7 #######################################################################
11 restore [locate_data_file bug24390_face1.brep] f1
12 restore [locate_data_file bug24390_face2.brep] f2
18 set tolmax_f [tolmax f1]
19 regexp {max tol = ([-0-9.+eE]+)} ${tolmax_f} full CMP_TOL
22 foreach f ${face_list} {
23 set tolmax_f [tolmax ${f}]
24 regexp {max tol = ([-0-9.+eE]+)} ${tolmax_f} full FaceMaxTolerance
25 if { ${FaceMaxTolerance} > ${CMP_TOL} } {
26 set CMP_TOL ${FaceMaxTolerance}
30 set CMP_TOL [expr 5. * ${CMP_TOL}]
31 puts "CMP_TOL=${CMP_TOL}"
33 set tolmaxres [tolmax result]
34 regexp {max tol = ([-0-9.+eE]+)} ${tolmaxres} full MaxTolerance
35 puts "MaxTolerance=${MaxTolerance}"
36 if { ${MaxTolerance} > ${CMP_TOL} } {
37 puts "Error: invalid tolerance"