ab87e6fc |
1 | puts "TODO ?OCC11111 ALL: An exception was caught" |
2 | puts "TODO ?OCC11111 ALL: \\*\\* Exception" |
3 | puts "TODO ?OCC11111 ALL: Error: Offset is not done." |
4 | puts "TODO ?OCC11111 ALL: Faulty OCC165" |
5 | puts "TODO ?OCC11111 ALL: Error : The length of result shape is" |
61c421bf |
6 | |
7 | cpulimit 600 |
8 | |
9 | puts "========" |
10 | puts "OCC165" |
11 | puts "========" |
12 | puts "Bug regression in BRepOffsetAPI_MakeOffset class (offsetting in OY direction)" |
13 | |
14 | |
15 | dchrono h reset |
16 | dchrono h start |
17 | |
18 | restore [locate_data_file offset_wire_019.brep] a |
19 | checkshape a |
20 | |
21 | mkplane f a |
22 | checkshape f |
23 | |
24 | set start_stepoffset -5.7 |
25 | set incr_stepoffset 0.1 |
26 | set finish_stepoffset -2.8 |
27 | |
28 | set interval_numb [expr int ( ($finish_stepoffset - $start_stepoffset) / $incr_stepoffset ) + 1] |
29 | |
30 | set IsMade 0 |
31 | set IsBeginMade 0 |
32 | set IsGood 1 |
33 | set i 0 |
34 | set resume_string "" |
35 | for {set stepoffset $start_stepoffset} {$stepoffset <= $finish_stepoffset} {set stepoffset [expr $stepoffset + $incr_stepoffset]} { |
36 | incr i |
37 | puts "i = $i" |
38 | if { [catch {mkoffset result f 1 $stepoffset } catch_result] } { |
39 | puts "Faulty OCC165 (stepoffset = $stepoffset) : function MKOFFSET works wrongly" |
40 | set IsGood 0 |
41 | set IsMade 0 |
42 | } else { |
43 | puts "OK OCC165 (stepoffset = $stepoffset)" |
44 | set IsMade 1 |
45 | } |
46 | if {$IsBeginMade == 0 && $IsMade == 1} { |
47 | set IsBeginMade 1 |
48 | set BeginStepOffset $stepoffset |
49 | } |
50 | if {$IsMade == 1} { |
51 | set FinishStepOffset $stepoffset |
52 | } |
53 | |
54 | dchrono h show |
55 | |
56 | if {$IsBeginMade == 1 && ($IsMade == 0 || $i == $interval_numb) } { |
57 | set IsBeginMade 0 |
58 | set resume_tmp "from [format "%0.2f" $BeginStepOffset] till [format "%0.2f" $FinishStepOffset]\n" |
59 | set resume_string "${resume_string}${resume_tmp}" |
60 | } |
61 | } |
62 | |
63 | puts "" |
64 | if {[string length $resume_string] == 0} { |
65 | puts "Offset is created wrongly on initial shape in following borders" |
66 | puts "from [format "%0.2f" $start_stepoffset] till [format "%0.2f" $finish_stepoffset]" |
67 | } else { |
68 | puts "Offset is created correctly on initial shape in following borders" |
69 | puts "$resume_string" |
70 | } |
71 | |
72 | if {$IsGood == 1} { |
73 | puts "OCC165 OK" |
74 | } else { |
75 | puts "Faulty OCC165" |
76 | } |
77 | |
78 | dchrono h stop |
79 | dchrono h show |
80 | |
81 | renamevar result_1 result |
82 | |
83 | set length 0 |
84 | set 2dviewer 0 |