eee615ad |
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 | |
3306fdd9 |
9 | set MaxTol 2.9376013151287501e-006 |
eee615ad |
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}} { |
b8f67cc2 |
28 | puts "Error: Number of curves is bad!" |
eee615ad |
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 { |
b8f67cc2 |
44 | checklength c_1 -l 833.56846557106064 |
eee615ad |
45 | } |