tests/bugs/modalg_7/bug28828_21

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