tests/bugs/modalg_7/bug28828_14

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