tests/bugs/modalg_7/bug28828_19

   1 puts "===================================================================="
   2 puts "OCC28828: New functionalities of BRepFilletAPI_MakeChamfer algorithm"
   3 puts "===================================================================="
   4 puts ""
   5
   6 #KPart: cone + plane, symmetrical throat
   7 pcone a1 40 0 70
   8 box a2 -50 -50 -20  100 100 40
   9 bfuse b a1 a2
  10 savehistory hh
  11
  12 explode a1 f
  13 generated ee hh a1_1
  14 donly b ee
  15
  16 chamf_throat result b ee 3.
  17
  18 checkshape result
  19
  20 checknbshapes result -solid 1 -shell 1 -face 8 -wire 9 -edge 17 -vertex 11 -shape 48
  21
  22 set tolres [checkmaxtol result]
  23
  24 if { ${tolres} > 1.001e-7} {
  25    puts "Error: bad tolerance of result"
  26 }
  27
  28 checkprops result -v 445625 -deps 1.e-7
  29
  30 checkview -display result -2d -path ${imagedir}/${test_image}.png