5 ###############################
6 ## Wrong result obtained by intersection algorithm.
7 ###############################
11 Open [locate_data_file bug26576_study1_new_geom.cbf] D
13 GetShape D 0:1:484:1:1:2 b1
14 GetShape D 0:1:478:1:1:2 b2
22 #Wrong value of Tolerance Reached.
24 set log [bopcurves b1 b2 -2d]
25 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Tolerance_Reached NbCurv
29 set expected_Tolerance_Reached 1.2482990218170969e-007
30 set tol_abs_Tolerance_Reached 1.0e-7
31 set tol_rel_Tolerance_Reached 0.0
32 checkreal "Tolerance Reached" ${Tolerance_Reached} ${expected_Tolerance_Reached} ${tol_abs_Tolerance_Reached} ${tol_rel_Tolerance_Reached}
34 if {${NbCurv} != ${GoodNbCurv}} {
35 puts "Error: ${GoodNbCurv} curves are expected but ${NbCurv} are found!"
38 #Overlapping intersection curves.
40 for {set i 1} {$i < ${NbCurv}} {incr i} {
41 for {set j [expr $i+1]} {$j <= $NbCurv} {incr j} {
45 set coe [checkoverlapedges e1 e2 $Tolerance_Reached]
47 puts "c_$i<->c_$j: $coe"
48 if { [regexp "Edges is not overlaped" $coe] != 1 } {
49 puts "Error: c_$i and c_$j are overlaped"
56 checkview -screenshot -2d -path ${imagedir}/${test_image}.png