f1aa2b62 |
1 | pload QAcommands |
2 | |
3 | puts "============" |
4 | puts "OCC826" |
5 | puts "============" |
6 | puts "" |
7 | ################################### |
8 | ## BRepAlgoAPI_Fuse fails on revolved and sphere |
9 | ################################### |
e2e0498b |
10 | ## Now this test uses BOPAlgo. |
11 | ## Intersection of cylinder and sphere. At that, |
12 | ## the intersection line goes near to the pole |
13 | ## of the sphere (near, but not through). |
14 | ## Walking-line has a point in the seam of |
15 | ## the sphere and neighbour point. Both sections of the |
16 | ## sphere (through every of these points and parallel to |
17 | ## equatorial plane) are circles with small radii. As result, |
18 | ## in 2D-space U-coordinates of these points are too different |
19 | ## (may be even ~60 degrees) in spite of its neighbourhood. |
352ffd73 |
20 | ##################################### |
f1aa2b62 |
21 | |
22 | if { [ catch { set info_result [OCC826 a1 a2 result] } ] } { |
352ffd73 |
23 | puts "Faulty OCC826" |
f1aa2b62 |
24 | } else { |
352ffd73 |
25 | if { [regexp {FAILED} $info_result] } { |
26 | puts "Faulty OCC826" |
f1aa2b62 |
27 | } |
352ffd73 |
28 | |
f1aa2b62 |
29 | set ExplodeList [explode result] |
30 | if {[llength ${ExplodeList}] < 1} { |
352ffd73 |
31 | puts "Faulty OCC826" |
f1aa2b62 |
32 | } |
33 | } |
34 | |
e2e0498b |
35 | checkprops result -s 272935 |
58cf74e0 |
36 | checkshape result |
5747059b |
37 | checkview -display result -2d -path ${imagedir}/${test_image}.png |