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