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"
12 puts "Bug regression in BRepOffsetAPI_MakeOffset class (offsetting in OY direction)"
18 restore [locate_data_file offset_wire_019.brep] a
24 set start_stepoffset -5.7
25 set incr_stepoffset 0.1
26 set finish_stepoffset -2.8
28 set interval_numb [expr int ( ($finish_stepoffset - $start_stepoffset) / $incr_stepoffset ) + 1]
35 for {set stepoffset $start_stepoffset} {$stepoffset <= $finish_stepoffset} {set stepoffset [expr $stepoffset + $incr_stepoffset]} {
38 if { [catch {mkoffset result f 1 $stepoffset } catch_result] } {
39 puts "Faulty OCC165 (stepoffset = $stepoffset) : function MKOFFSET works wrongly"
43 puts "OK OCC165 (stepoffset = $stepoffset)"
46 if {$IsBeginMade == 0 && $IsMade == 1} {
48 set BeginStepOffset $stepoffset
51 set FinishStepOffset $stepoffset
56 if {$IsBeginMade == 1 && ($IsMade == 0 || $i == $interval_numb) } {
58 set resume_tmp "from [format "%0.2f" $BeginStepOffset] till [format "%0.2f" $FinishStepOffset]\n"
59 set resume_string "${resume_string}${resume_tmp}"
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]"
68 puts "Offset is created correctly on initial shape in following borders"
81 renamevar result_1 result