tests/bugs/modalg_7/bug30958

   1 puts "=========================================================================================="
   2 puts "OCC30958: BRepOffsetAPI_ThruSections operation raises an except-ion while building history"
   3 puts "=========================================================================================="
   4 puts ""
   5
   6 restore [locate_data_file bug30958_CompWires.brep] ww
   7 explode ww
   8
   9 thrusections res 0 1 ww_1 ww_2
  10
  11 savehistory hist
  12
  13 explode ww_1
  14
  15 generated r1 hist ww_1_1
  16 generated r2 hist ww_1_2
  17
  18 checkprops r1 -s 22.4404
  19 checkprops r2 -s 81.2396
  20
  21 explode ww_1 v
  22
  23 generated rr1 hist ww_1_1
  24 generated rr2 hist ww_1_2
  25 generated rr3 hist ww_1_3
  26
  27 distmini dd ww_1_1 rr1
  28 regexp {([-0-9.+eE]+)} [dump dd_val] full dist
  29 if { $dist > 1.e-7} {
  30    puts "Error: wrong generated list of edges"
  31 }
  32
  33 distmini dd ww_1_2 rr2
  34 regexp {([-0-9.+eE]+)} [dump dd_val] full dist
  35 if { $dist > 1.e-7} {
  36    puts "Error: wrong generated list of edges"
  37 }
  38
  39 distmini dd ww_1_3 rr3
  40 regexp {([-0-9.+eE]+)} [dump dd_val] full dist
  41 if { $dist > 1.e-7} {
  42    puts "Error: wrong generated list of edges"
  43 }