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