a8676008 |
1 | puts "TODO ?OCC11111 ALL: OCC8842: Faulty" |
5d1833ef |
2 | puts "TODO ?OCC11111 ALL: \\*\\* Exception" |
a8676008 |
3 | puts "TODO ?OCC11111 ALL: An exception was caught" |
4 | puts "TODO ?OCC11111 ALL: Error : Result shape is WRONG" |
5 | puts "TODO ?OCC11111 ALL: Error : The square of result shape is" |
b58dfc5e |
6 | puts "TODO ?DEBUG_OCC24121 Debian60-64: Process killed by CPU limit" |
7 | puts "TODO ?DEBUG_OCC24121 Debian60-64: TEST INCOMPLETE" |
a8676008 |
8 | |
9 | puts "============" |
10 | puts "OCC8842" |
11 | puts "============" |
12 | puts "" |
13 | ####################################################################### |
14 | # Errors in Offset Shape algorithm working with bspline and surface of revolution |
15 | ####################################################################### |
16 | |
17 | set BugNumber OCC8842 |
18 | |
19 | if {[info commands testreadiges] == ""} {pload XSDRAW} |
20 | |
21 | proc myoffset {result sh val tan} { |
22 | if {$tan == 1} { |
23 | offsetparameter 1e-7 p i |
24 | } else { |
25 | offsetparameter 1e-7 p a |
26 | } |
27 | uplevel offsetload $sh $val |
28 | uplevel offsetperform $result |
29 | } |
30 | |
31 | testreadiges [locate_data_file OCC8842_cylinder_Ideas.igs] a4 |
32 | |
33 | DT_ShapeDivide cyl2 a4 |
34 | |
35 | # join type Intersection |
36 | puts "***** offsetting with join type Intersection" |
37 | puts " cylinder_Ideas - 5" |
38 | |
39 | if [catch { myoffset result cyl2 -5 1 } catch_result] { |
40 | puts "${BugNumber}: Faulty (1)" |
41 | } else { |
42 | |
43 | set square 3542.24 |
44 | set nb_v_good 60 |
45 | set nb_e_good 90 |
46 | set nb_w_good 42 |
47 | set nb_f_good 40 |
48 | set nb_sh_good 5 |
49 | set nb_sol_good 5 |
50 | set nb_compsol_good 0 |
51 | set nb_compound_good 1 |
52 | set nb_shape_good 243 |
53 | |
54 | } |
55 | |
56 | set 2dviewer 0 |
57 | |