1 puts "TODO OCC225404 Debian60-64 Windows: Error: Curve Number is bad!"
3 puts "================"
5 puts "================"
7 #######################################################################
8 # Face/Face intersection algorithm gives different results for different order of the arguments
9 #######################################################################
13 restore [locate_data_file bug25292_Input_3.brep] b1
14 restore [locate_data_file bug25292_Input_11.brep] b2
21 #########################
22 set log [bopcurves f2 f1]
23 #########################
25 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
27 if {${Toler} > ${MaxTol}} {
28 puts "Error: Tolerance is too big!"
31 if {${NbCurv} != ${GoodNbCurv}} {
32 puts "Error: Curve Number is bad!"
49 set List1 [split ${Log1} {TD= \t\n}]
52 checkList ${List1} ${Tolerance} ${D_good}
63 set List2 [split ${Log2} {TD= \t\n}]
66 checkList ${List2} ${Tolerance} ${D_good}
69 if { [info exist c_3] } {
78 set List3 [split ${Log3} {TD= \t\n}]
81 checkList ${List3} ${Tolerance} ${D_good}