2 puts { Precision management doesn't follow the rule of tolerance (Tol(V) > Tol(E) > Tol(F) }
10 puts [maxtolerance b2]
14 puts [set tolerance [maxtolerance result]]
15 set MinFaceTolerance [ lindex $tolerance 14 ]
16 set MinEdgeTolerance [ lindex $tolerance 18 ]
17 set MinVertexTolerance [ lindex $tolerance 24 ]
19 if { $MinEdgeTolerance > $MinVertexTolerance } {
20 puts { Error: The rule of tolerance Tol(V) > Tol(E) > Tol(F) is not observed . Tolerance min on vertex > Tolerance min on edge }
22 puts { The rule of tolerance Tol(V) > Tol(E) > Tol(F) is observed .}