tests/bugs/modalg/bug165_6

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