1 puts "TODO OCC12345 ALL: Faulty OCC966 : Tolerance of shape is more than 0.000176"
7 ###############################################
8 ##file cylinders.brep. It is increasing tolerance from 0.000176 to 51.1
9 ###############################################
11 restore [locate_data_file OCC966.brep] a
13 DT_ShapeConvertRev result a 0 1
15 set tolerance [maxtolerance result]
16 regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
17 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
18 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
20 if { $MaxFaceTolerance > 0.000176 || $MaxEdgeTolerance > 0.000176 || $MaxVertexTolerance > 0.000176 } {
21 puts "Faulty OCC966 : Tolerance of shape is more than 0.000176"