c1e0171c |
1 | puts "TODO OCC25925 ALL: Faulty OCC5805 : result is not Closed shape" |
58cf74e0 |
2 | puts "TODO OCC25925 ALL: ERROR. offsetperform operation not done." |
a4eba920 |
3 | puts "TODO OCC25925 ALL: Tcl Exception: Error : command \\\"nbshapes result\\\" gives an empty result" |
58cf74e0 |
4 | puts "TODO OCC25925 ALL: Error: The command cannot be built" |
c1e0171c |
5 | puts "TODO OCC25925 ALL: TEST INCOMPLETE" |
3bea4c16 |
6 | |
7 | puts "============" |
8 | puts "OCC5805" |
9 | puts "============" |
10 | |
11 | ####################################################################### |
12 | # BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results. |
13 | ####################################################################### |
14 | |
15 | set BugNumber OCC5805 |
16 | |
17 | set z1 5 |
18 | set z2 -5 |
19 | |
20 | # beziercurve1 |
21 | beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1} |
22 | mkedge e1 bc1 |
23 | wire UpCover e1 |
24 | |
25 | # beziercurve2 |
26 | copy e1 e2 |
27 | ttranslate e2 0 0 ${z2} |
28 | wire BottomCover e2 |
29 | |
30 | set issolid 1 |
31 | set isruled 1 |
32 | if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] { |
33 | puts "Faulty ${BugNumber} : thrusections is wrong" |
34 | |
35 | } |
36 | |
37 | set distance -0.001 |
38 | catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type } |
39 | # Bad result |
40 | |
58cf74e0 |
41 | |
42 | checkprops result -s 495.635 |
43 | |
3bea4c16 |
44 | set index [lsearch [whatis s] Closed] |
45 | if {$index == -1} { |
46 | puts "Faulty ${BugNumber} : s is not Closed shape" |
47 | |
48 | } |
49 | |
50 | set index [lsearch [whatis result] Closed] |
51 | if {$index == -1} { |
52 | puts "Faulty ${BugNumber} : result is not Closed shape" |
53 | |
54 | } |
55 | |
a4eba920 |
56 | checknbshapes result -vertex 2 -edge 3 -wire 3 -face 3 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 13 |
3bea4c16 |
57 | |
5747059b |
58 | checkview -display result -2d -path ${imagedir}/${test_image}.png |