puts "====================================================================" puts "OCC28828: New functionalities of BRepFilletAPI_MakeChamfer algorithm" puts "====================================================================" puts "" #KPart: cone + plane, penetrating throat pcone a1 40 0 70 box a2 -50 -50 -20 100 100 40 bfuse b a1 a2 savehistory hh explode a1 f modified ff hh a1_1 generated ee hh a1_1 donly b ff ee chamf_throat_with_penetration result b ee ff 2. 3. checkshape result checknbshapes result -solid 1 -shell 1 -face 8 -wire 9 -edge 17 -vertex 11 -shape 48 set tolres [checkmaxtol result] if { ${tolres} > 1.001e-7} { puts "Error: bad tolerance of result" } checkprops result -v 446299 -deps 1.e-7 checkview -display result -2d -path ${imagedir}/${test_image}.png