c0e32b3c |
1 | puts "========" |
2 | puts "OCC25820" |
3 | puts "========" |
4 | puts "" |
5 | ################################################################### |
6 | # No Intersection Curves between surface of revolution and planes |
7 | ################################################################### |
8 | |
9 | restore [locate_data_file OCC25820-Revolution_5.brep] b1 |
10 | explode b1 f |
11 | copy b1_4 b1 |
12 | |
13 | restore [locate_data_file OCC25820-Translation_3.brep] b2 |
14 | explode b2 f |
15 | copy b2_3 b2 |
16 | |
17 | smallview |
18 | clear |
19 | display b1 |
20 | display b2 |
21 | fit |
22 | |
6d368502 |
23 | set info [bopcurves b1 b2] |
24 | regexp {Tolerance Reached=([-0-9.+eE]+)} $info full bug_info_tol |
25 | regexp {([0-9]+) curve\(s\) found.} $info full bug_info_cur |
c0e32b3c |
26 | |
27 | if {$bug_info_tol > 1.0e-7} { |
28 | puts "ERROR: OCC25820 is reproduced. Tolerance is to large ($bug_info_tol)." |
29 | } |
30 | |
31 | if {$bug_info_cur != 1} { |
32 | puts "ERROR: OCC25820 is reproduced. Too many curves were found." |
33 | } |
34 | |
5747059b |
35 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |