0028324: Configuration, genproj.tcl - compilation error while targeting OS X 10.8...
[occt.git] / tests / perf / modalg / bug165_6
1
2 cpulimit 600
3
4 puts "========"
5 puts "OCC165"
6 puts "========"
7 puts "Bug regression in BRepOffsetAPI_MakeOffset class (offsetting in OY direction)"
8
9 restore [locate_data_file offset_wire_019.brep] a 
10 checkshape a
11
12 mkplane f a
13 checkshape f
14
15 set start_stepoffset 0.2
16 set incr_stepoffset 0.1
17 set finish_stepoffset 4.9
18
19 set interval_numb [expr int ( ($finish_stepoffset - $start_stepoffset) / $incr_stepoffset ) + 1]
20
21 set IsMade 0
22 set IsBeginMade 0
23 set IsGood 1
24 set i 0
25 set resume_string ""
26 for {set stepoffset $start_stepoffset} {$stepoffset <= $finish_stepoffset} {set stepoffset [expr $stepoffset + $incr_stepoffset]} {
27     incr i
28     puts "i = $i"
29     if { [catch {mkoffset result f 1 $stepoffset } catch_result] } {
30         puts "Faulty OCC165 (stepoffset = $stepoffset) : function MKOFFSET works wrongly"
31         set IsGood 0
32         set IsMade 0
33     } else {
34         puts "OK OCC165 (stepoffset = $stepoffset)"
35         set IsMade 1
36     }
37     if {$IsBeginMade == 0 && $IsMade == 1} {
38         set IsBeginMade 1
39         set BeginStepOffset $stepoffset
40     }
41     if {$IsMade == 1} {
42         set FinishStepOffset $stepoffset
43     }
44
45     if {$IsBeginMade == 1 && ($IsMade == 0 || $i == $interval_numb) } {
46         set IsBeginMade 0
47         set resume_tmp "from [format "%0.2f" $BeginStepOffset] till [format "%0.2f" $FinishStepOffset]\n"
48         set resume_string "${resume_string}${resume_tmp}"
49     }
50 }
51
52 puts ""
53 if {[string length $resume_string] == 0} {
54     puts "Offset is created wrongly on initial shape in following borders"
55     puts "from [format "%0.2f" $start_stepoffset] till [format "%0.2f" $finish_stepoffset]"
56 } else {
57     puts "Offset is created correctly on initial shape in following borders"
58     puts "$resume_string"
59 }
60
61 if {$IsGood == 1} {
62     puts "OCC165 OK"
63 } else {
64     puts "Faulty OCC165"
65 }
66
67 renamevar result_1 result
68
69 checkprops result -l 1112.83 
70 checkshape result
71 checksection result
72 checkview -display result -2d -path ${imagedir}/${test_image}.png