0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug27282_2
CommitLineData
eee615ad 1puts "============"
2puts "OCC27282"
3puts "============"
4puts ""
5###############################
6## [Regression to 6.9.1] smesh/bugs_00/A6: Cut produces an empty shape
7###############################
8
b8f67cc2 9set MaxTol 4.8106952270863644e-006
eee615ad 10set GoodNbCurv 1
11
12restore [locate_data_file bug27282_cmpd.brep] a
13explode a f
14
15smallview
16don a_2 a_5
17fit
18
19set log [bopcurves a_2 a_5 -2d]
20
21regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
22
23checkreal ToleranceReached ${Toler} ${MaxTol} 0.0 0.1
24
25checkview -screenshot -2d -path ${imagedir}/${test_image}.png
26
27if {${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}