0027282: [Regression to 6.9.1] smesh/bugs_00/A6: Cut produces an empty shape
[occt.git] / tests / bugs / modalg_6 / bug27282_2
1 puts "TODO OCC27302 ALL: Error: Curve Number is bad!"
2
3 puts "============"
4 puts "OCC27282"
5 puts "============"
6 puts ""
7 ###############################
8 ## [Regression to 6.9.1] smesh/bugs_00/A6: Cut produces an empty shape
9 ###############################
10
11 set MaxTol 4.8106951786435371e-006
12 set GoodNbCurv 1
13
14 restore [locate_data_file bug27282_cmpd.brep] a
15 explode a f
16
17 smallview
18 don a_2 a_5
19 fit
20
21 set log [bopcurves a_2 a_5 -2d]
22
23 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
24
25 checkreal ToleranceReached ${Toler} ${MaxTol} 0.0 0.1
26
27 checkview -screenshot -2d -path ${imagedir}/${test_image}.png
28
29 if {${NbCurv} != ${GoodNbCurv}} {
30   puts "Error: Curve Number is bad!"
31   
32   for {set i 1} {$i < ${NbCurv}} {incr i} {
33     for {set j [expr $i+1]} {$j <= $NbCurv} {incr j} {
34       mkedge e1 c_$i
35       mkedge e2 c_$j
36       
37       dset dd_val 100.0*${Toler}
38       distmini dd e1 e2
39       
40       if { [dval dd_val] > ${Toler} } {
41         puts "Error: Intersection result is not closed"
42       }
43     }
44   }
45 } else {
46   checklength c_1 -l 833.56846559428755
47 }