tests/bugs/modalg_7/bug28828_15

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