3cdfdc9a |
1 | puts "TODO OCC24156 MacOS: \\*\\* Exception \\*\\*.*" |
2 | puts "TODO OCC24156 MacOS: An exception was caught" |
3 | puts "TODO OCC24156 MacOS: OCC8842: Faulty" |
4 | |
5 | |
a8676008 |
6 | puts "============" |
7 | puts "OCC8842" |
8 | puts "============" |
9 | puts "" |
10 | ####################################################################### |
11 | # Errors in Offset Shape algorithm working with bspline and surface of revolution |
12 | ####################################################################### |
13 | |
14 | set BugNumber OCC8842 |
15 | |
16 | if {[info commands testreadiges] == ""} {pload XSDRAW} |
17 | |
18 | proc myoffset {result sh val tan} { |
19 | if {$tan == 1} { |
20 | offsetparameter 1e-7 p i |
21 | } else { |
22 | offsetparameter 1e-7 p a |
23 | } |
24 | uplevel offsetload $sh $val |
25 | uplevel offsetperform $result |
26 | } |
27 | |
28 | testreadiges [locate_data_file OCC8842_cylinder_CATIA.igs] a3 |
29 | |
30 | sewing cyl1 a3 |
31 | |
32 | # join type Intersection |
33 | puts "***** offsetting with join type Intersection" |
34 | puts " cylinder_CATIA + 5" |
35 | |
36 | if [catch { myoffset result cyl1 5 1 } catch_result] { |
37 | puts "${BugNumber}: Faulty (1)" |
38 | } else { |
39 | |
40 | set square 38170.4 |
a4eba920 |
41 | checknbshapes result -vertex 4 -edge 6 -wire 4 -face 4 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 19 |
a8676008 |
42 | } |
43 | |
44 | set 2dviewer 0 |