0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug25820_2
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_2.brep] b2
14 explode b2 f
15 copy b2_4 b2
16
17 smallview
18 clear
19 display b1
20 display b2
21 fit
22
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
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
35 checkview -screenshot -2d -path ${imagedir}/${test_image}.png