ae541252 |
1 | puts "========" |
2 | puts "OCC27766" |
3 | puts "========" |
4 | puts "" |
5 | ################################################# |
6 | # Incorrect section curves between attached cylinders |
7 | ################################################# |
8 | |
9 | set ExpTol 1.0e-7 |
d30895f5 |
10 | set GoodNbCurv 3 |
ae541252 |
11 | |
12 | restore [locate_data_file bug27761_c1.brep] c1 |
13 | restore [locate_data_file bug27761_c2.brep] c2 |
14 | |
15 | set log [bopcurves c1 c2 -2d] |
16 | |
17 | regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv |
18 | |
19 | if {${NbCurv} != ${GoodNbCurv}} { |
20 | puts "Error: Number of curves is bad!" |
21 | } |
22 | |
23 | checkreal TolReached $Toler $ExpTol 0.0 0.1 |
24 | |
25 | smallview |
26 | don c_* |
27 | fit |
28 | disp c1 c2 |
29 | |
30 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |