tests/bugs/modalg_1/bug165_4

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