tests/bugs/modalg_7/bug23380

   1 puts "======================================================================================="
   2 puts "OCC23380: BRepOffsetAPI_MakeFilling fails and leaves boundary faces with high tolerance"
   3 puts "======================================================================================="
   4 puts ""
   5
   6 brestore [locate_data_file bug23380.brep] b
   7
   8 explode b
   9 renamevar b_5 d
  10 renamevar b_1 f
  11 renamevar b_4 i
  12 explode f E
  13 explode d E
  14 tolerance f
  15 donly f_1 d_3 b_2 b_3
  16
  17 filling result 4 0 0  i  f_1 f 1  d_3 d 1  b_2 0  b_3 0
  18
  19 checknbshapes result -face 1 -wire 1 -edge 4 -vertex 4
  20
  21 set tolres [checkmaxtol result]
  22
  23 if { ${tolres} > 230.} {
  24    puts "Error: bad tolerance of result"
  25 }