0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug27302
1 puts "============"
2 puts "OCC27302"
3 puts "============"
4 puts ""
5 ###############################
6 ## Invalid curves number in intersection result
7 ###############################
8
9 set MaxTol 9.9579577516847715e-005
10 set GoodNbCurv 1
11
12 restore [locate_data_file CTO900_pro12913a.rle] a
13 restore [locate_data_file CTO900_pro12913b.rle] b
14
15 explode a f
16 explode b f
17
18 smallview
19 don a_34 b_9
20 fit
21
22 set log [bopcurves a_34 b_9 -2d]
23
24 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
25
26 checkreal ToleranceReached ${Toler} ${MaxTol} 0.0 0.1
27
28 checkview -screenshot -2d -path ${imagedir}/${test_image}.png
29
30 if {${NbCurv} != ${GoodNbCurv}} {
31   puts "Error: Number of curves is bad!"
32   
33   for {set i 1} {$i < ${NbCurv}} {incr i} {
34     for {set j [expr $i+1]} {$j <= $NbCurv} {incr j} {
35       mkedge e1 c_$i
36       mkedge e2 c_$j
37       
38       dset dd_val 100.0*${Toler}
39       distmini dd e1 e2
40       
41       if { [dval dd_val] > ${Toler} } {
42         puts "Error: Intersection result is not closed"
43       }
44     }
45   }
46 } else {
47   checklength c_1 -l 86.536841230136204
48 }