puts "===========" puts "OCC23774" puts "===========" ###################################################### # Incorrect conversion from gp_Trsf2d to gp_Trsf ###################################################### pload QAcommands pload TOPTEST set BugNumber OCC23774 restore [locate_data_file bug23774_GrossPlateFace.brep] face restore [locate_data_file bug23774_OriginalWire.brep] wire set Info [OCC23774 face wire] regexp {Dist0 += +([-0-9.+eE]+)} ${Info} full Dist0 regexp {Dist1 += +([-0-9.+eE]+)} ${Info} full Dist1 regexp {Distance2 += +([-0-9.+eE]+)} ${Info} full Distance2 puts "Dist0 = ${Dist0}" puts "Dist1 = ${Dist1}" puts "Distance2 = ${Distance2}" set face_tolerance [maxtolerance face] regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} ${face_tolerance} full F_MaxFaceTolerance regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} ${face_tolerance} full F_MaxEdgeTolerance regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} ${face_tolerance} full F_MaxVertexTolerance set wire_tolerance [maxtolerance wire] regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} ${face_tolerance} full W_MaxFaceTolerance regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} ${face_tolerance} full W_MaxEdgeTolerance regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} ${face_tolerance} full W_MaxVertexTolerance set max_tolerance ${F_MaxFaceTolerance} if { ${F_MaxEdgeTolerance} > ${max_tolerance} } { set max_tolerance ${F_MaxEdgeTolerance} } if { ${F_MaxVertexTolerance} > ${max_tolerance} } { set max_tolerance ${F_MaxVertexTolerance} } if { ${W_MaxFaceTolerance} > ${max_tolerance} } { set max_tolerance ${W_MaxFaceTolerance} } if { ${W_MaxEdgeTolerance} > ${max_tolerance} } { set max_tolerance ${W_MaxEdgeTolerance} } if { ${W_MaxVertexTolerance} > ${max_tolerance} } { set max_tolerance ${W_MaxVertexTolerance} } puts "max_tolerance = ${max_tolerance}" set status 0 set Dist0_GoodValue 0. set Dist1_GoodValue 0. set Distance2_GoodValue 0. if { [expr abs(${Dist0} - ${Dist0_GoodValue})] > ${max_tolerance} } { set status 1 } if { [expr abs(${Dist1} - ${Dist1_GoodValue})] > ${max_tolerance} } { set status 1 } if { [expr abs(${Distance2} - ${Distance2_GoodValue})] > ${max_tolerance} } { set status 1 } # Resume puts "" if { ${status} != 0 } { puts "Faulty ${BugNumber}" } else { puts "OK ${BugNumber}" }