puts "====================================================================" puts "OCC28828: New functionalities of BRepFilletAPI_MakeChamfer algorithm" puts "====================================================================" puts "" #KPart: plane + plane, penetrating throat polyline b 0 0 0 20 0 0 20 0 20 10 0 20 20 0 40 0 0 40 0 0 0 mkplane b b prism b b 0 20 0 explode b f explode b_4 e donly b b_4_1 chamf_throat_with_penetration result b b_4_1 b_4 2. 4. checkshape result checknbshapes result -solid 1 -shell 1 -face 9 -wire 9 -edge 17 -vertex 9 -shape 47 set tolres [checkmaxtol result] if { ${tolres} > 0.0001} { puts "Error: bad tolerance of result" } checkprops result -v 14056.4 -deps 1.e-7 checkview -display result -2d -path ${imagedir}/${test_image}.png