9aa684ed |
1 | puts "TODO OCC25913 ALL: OCC8842: Faulty" |
9aa684ed |
2 | puts "TODO OCC25913 ALL: An exception was caught" |
a8676008 |
3 | |
4 | puts "============" |
d99f0355 |
5 | puts "00008842: E r r o r s in Offset Shape algorithm working with bspline and surface of revolution" |
a8676008 |
6 | puts "============" |
7 | puts "" |
a8676008 |
8 | |
9 | set BugNumber OCC8842 |
10 | |
bd651bbb |
11 | if {[info commands testreadiges] == ""} {pload XSDRAW IGES} |
a8676008 |
12 | |
13 | proc myoffset {result sh val tan} { |
14 | if {$tan == 1} { |
15 | offsetparameter 1e-7 p i |
16 | } else { |
17 | offsetparameter 1e-7 p a |
18 | } |
19 | uplevel offsetload $sh $val |
20 | uplevel offsetperform $result |
21 | } |
22 | |
23 | testreadiges [locate_data_file OCC8842_cone_CATIA.igs] a1 |
24 | |
25 | sewing con1 a1 |
26 | |
27 | # join type Arc |
28 | puts "***** offsetting with join type Arc" |
29 | puts " cone_CATIA - 5" |
30 | |
31 | if [catch { myoffset result con1 -5 0 } catch_result] { |
32 | puts "${BugNumber}: Faulty (1)" |
33 | } else { |
34 | |
58cf74e0 |
35 | checkprops result -s 3542.24 |
36 | checkshape result |
a8676008 |
37 | |
a4eba920 |
38 | checknbshapes result -vertex 60 -edge 90 -wire 42 -face 40 -shell 5 -solid 5 -compsolid 0 -compound 1 -shape 243 |
a8676008 |
39 | } |
40 | |
5747059b |
41 | checkview -display result -2d -path ${imagedir}/${test_image}.png |