9aa684ed |
1 | puts "TODO ?OCC25913 ALL: Faulty shapes in variables faulty_1 to faulty_" |
2 | puts "TODO OCC25913 ALL: Error : Result shape is WRONG" |
3 | puts "TODO OCC25913 ALL: Error : The square of result shape is" |
a8676008 |
4 | |
5 | puts "============" |
6 | puts "OCC8842" |
7 | puts "============" |
8 | puts "" |
9 | ####################################################################### |
10 | # Errors in Offset Shape algorithm working with bspline and surface of revolution |
11 | ####################################################################### |
12 | |
13 | set BugNumber OCC8842 |
14 | |
15 | if {[info commands testreadiges] == ""} {pload XSDRAW} |
16 | |
17 | proc myoffset {result sh val tan} { |
18 | if {$tan == 1} { |
19 | offsetparameter 1e-7 p i |
20 | } else { |
21 | offsetparameter 1e-7 p a |
22 | } |
23 | uplevel offsetload $sh $val |
24 | uplevel offsetperform $result |
25 | } |
26 | |
27 | testreadiges [locate_data_file OCC8842_cone_Ideas.igs] a2 |
28 | |
29 | DT_ShapeDivide con2 a2 |
30 | |
31 | # join type Arc |
32 | puts "***** offsetting with join type Arc" |
33 | puts " cone_Ideas + 5" |
34 | |
35 | if [catch { myoffset result con2 5 0 } catch_result] { |
36 | puts "${BugNumber}: Faulty (1)" |
37 | } else { |
38 | |
39 | set square 3542.24 |
40 | set nb_v_good 60 |
41 | set nb_e_good 90 |
42 | set nb_w_good 42 |
43 | set nb_f_good 40 |
44 | set nb_sh_good 5 |
45 | set nb_sol_good 5 |
46 | set nb_compsol_good 0 |
47 | set nb_compound_good 1 |
48 | set nb_shape_good 243 |
49 | |
50 | } |
51 | |
52 | set 2dviewer 0 |