79997052 |
1 | puts "========" |
2 | puts "OCC27310" |
3 | puts "========" |
4 | puts "" |
5 | ################################################# |
6 | # Huge tolerance obtained in the result of intersection of two cylindrical faces |
7 | ################################################# |
8 | |
9 | set ExpTol 1.0e-7 |
10 | set GoodNbCurv 2 |
11 | |
12 | restore [locate_data_file OCC496a.brep] a |
13 | restore [locate_data_file OCC496b.brep] b |
14 | |
15 | explode a f |
16 | explode b f |
17 | |
18 | set log [bopcurves a_8 b_2 -2d] |
19 | |
20 | regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv |
21 | |
22 | if {${NbCurv} != ${GoodNbCurv}} { |
23 | puts "Error: Number of curves is bad!" |
24 | } |
25 | |
26 | checkreal TolReached $Toler $ExpTol 0.0 0.1 |
27 | |
28 | smallview |
29 | don c_* |
30 | fit |
31 | disp a_8 b_2 |
32 | |
33 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |