8 restore [locate_data_file buc60555a.brep] part
10 restore [locate_data_file buc60555b.brep] trTool1
11 puts [checkshape trTool1]
12 halfspace hs1 trTool1 20000 10000 0
15 puts [checkshape cut1]
25 set tolerance [ maxtolerance cut1 ]
27 regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
28 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
29 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
31 if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
32 puts "Faulty :Tolerance of shape is more then 1.0"
34 puts "Tolerance of shape is less then 1.0"
37 set square 4.60842e+07