tests/bugs/modalg_7/bug28828_10

   1 puts "===================================================================="
   2 puts "OCC28828: New functionalities of BRepFilletAPI_MakeChamfer algorithm"
   3 puts "===================================================================="
   4 puts ""
   5
   6 #KPart: plane + plane, symmetrical throat
   7 polyline b 0 0 0  20 0 0  20 0 20  10 0 20  20 0 40  0 0 40  0 0 0
   8 mkplane b b
   9 prism b b 0 20 0
  10 explode b e
  11 donly b b_8
  12
  13 chamf_throat result b b_8 2.
  14
  15 checkshape result
  16
  17 checknbshapes result -solid 1 -shell 1 -face 9 -wire 9 -edge 17 -vertex 9 -shape 47
  18
  19 set tolres [checkmaxtol result]
  20
  21 if { ${tolres} > 0.0001} {
  22    puts "Error: bad tolerance of result"
  23 }
  24
  25 checkprops result -v 14049.4 -deps 1.e-7
  26
  27 checkview -display result -2d -path ${imagedir}/${test_image}.png