1 puts "TODO OCC12345 ALL: Faulty : Result is BAD. Distance is more than MaxTolerance"
2 puts "TODO OCC12345 ALL: Error : The length of result shape is"
7 # Version de test: K4O, PATCH LEVEL:
12 restore [locate_data_file pro18892.rle] a
16 bsection result a_1 a_2
26 set tol [ maxtolerance a_8 ]
27 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol full MaxEdgeTolerance
28 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol full MaxVertexTolerance
29 regexp {([-0-9.+eE]+)$} [dump d_val] full d
31 if { [expr $d > $MaxEdgeTolerance] || [expr $d > $MaxVertexTolerance] } {
32 puts "Faulty : Result is BAD. Distance is more than MaxTolerance"