tests/bugs/modalg_7/bug28828_2

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