b8f67cc2 |
1 | puts "============" |
2 | puts "OCC27302" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## Invalid curves number in intersection result |
7 | ############################### |
8 | |
e2e0498b |
9 | set MaxTol 6.899054167648517e-007 |
b8f67cc2 |
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 | } |