puts "============" puts "OCC26576" puts "============" puts "" ############################### ## Wrong result obtained by intersection algorithm. ############################### pload DCAF Open [locate_data_file bug26576_study1_new_geom.cbf] D GetShape D 0:1:484:1:1:2 b1 GetShape D 0:1:478:1:1:2 b2 explode b1 f explode b2 f copy b1_1 b1 copy b2_2 b2 donly b1 b2 #Wrong value of Tolerance Reached. set log [bopcurves b1 b2 -2d] regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} \${log} full Tolerance_Reached NbCurv set GoodNbCurv 2 set expected_Tolerance_Reached 1.2482990218170969e-007 set tol_abs_Tolerance_Reached 1.0e-7 set tol_rel_Tolerance_Reached 0.0 checkreal "Tolerance Reached" \${Tolerance_Reached} \${expected_Tolerance_Reached} \${tol_abs_Tolerance_Reached} \${tol_rel_Tolerance_Reached} if {\${NbCurv} != \${GoodNbCurv}} { puts "Error: \${GoodNbCurv} curves are expected but \${NbCurv} are found!" } #Overlapping intersection curves. for {set i 1} {\$i < \${NbCurv}} {incr i} { for {set j [expr \$i+1]} {\$j <= \$NbCurv} {incr j} { mkedge e1 c_\$i mkedge e2 c_\$j set coe [checkoverlapedges e1 e2 \$Tolerance_Reached] puts "c_\$i<->c_\$j: \$coe" if { [regexp "Edges is not overlaped" \$coe] != 1 } { puts "Error: c_\$i and c_\$j are overlaped" } } } smallview fit checkview -screenshot -2d -path \${imagedir}/\${test_image}.png