7 restore [locate_data_file buc60555a.brep] part
9 restore [locate_data_file buc60555b.brep] trTool1
11 halfspace hs1 trTool1 20000 10000 0
24 set tolerance [ maxtolerance cut1 ]
26 regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
27 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
28 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
30 if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
31 puts "Faulty :Tolerance of shape is more then 1.0"
33 puts "Tolerance of shape is less then 1.0"
36 set square 4.60842e+07