tests/bugs/modalg_1/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
  10 dchrono h reset
  11 dchrono h start
  12
  13 restore [locate_data_file offset_wire_019.brep] a
  14 checkshape a
  15
  16 mkplane f a
  17 checkshape f
  18
  19 set start_stepoffset 0.2
  20 set incr_stepoffset 0.1
  21 set finish_stepoffset 4.9
  22
  23 set interval_numb [expr int ( ($finish_stepoffset - $start_stepoffset) / $incr_stepoffset ) + 1]
  24
  25 set IsMade 0
  26 set IsBeginMade 0
  27 set IsGood 1
  28 set i 0
  29 set resume_string ""
  30 for {set stepoffset $start_stepoffset} {$stepoffset <= $finish_stepoffset} {set stepoffset [expr $stepoffset + $incr_stepoffset]} {
  31     incr i
  32     puts "i = $i"
  33     if { [catch {mkoffset result f 1 $stepoffset } catch_result] } {
  34         puts "Faulty OCC165 (stepoffset = $stepoffset) : function MKOFFSET works wrongly"
  35         set IsGood 0
  36         set IsMade 0
  37     } else {
  38         puts "OK OCC165 (stepoffset = $stepoffset)"
  39         set IsMade 1
  40     }
  41     if {$IsBeginMade == 0 && $IsMade == 1} {
  42         set IsBeginMade 1
  43         set BeginStepOffset $stepoffset
  44     }
  45     if {$IsMade == 1} {
  46         set FinishStepOffset $stepoffset
  47     }
  48
  49     dchrono h show
  50
  51     if {$IsBeginMade == 1 && ($IsMade == 0 || $i == $interval_numb) } {
  52         set IsBeginMade 0
  53         set resume_tmp "from [format "%0.2f" $BeginStepOffset] till [format "%0.2f" $FinishStepOffset]\n"
  54         set resume_string "${resume_string}${resume_tmp}"
  55     }
  56 }
  57
  58 puts ""
  59 if {[string length $resume_string] == 0} {
  60     puts "Offset is created wrongly on initial shape in following borders"
  61     puts "from [format "%0.2f" $start_stepoffset] till [format "%0.2f" $finish_stepoffset]"
  62 } else {
  63     puts "Offset is created correctly on initial shape in following borders"
  64     puts "$resume_string"
  65 }
  66
  67 if {$IsGood == 1} {
  68     puts "OCC165 OK"
  69 } else {
  70     puts "Faulty OCC165"
  71 }
  72
  73 renamevar result_1 result
  74
  75 set length 1112.83
  76 set 2dviewer 0
  77
  78 dchrono h stop
  79 dchrono h show