tests/bugs/modalg_7/bug28828_7

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