4 ######################################################
5 # Incorrect conversion from gp_Trsf2d to gp_Trsf
6 ######################################################
11 set BugNumber OCC23774
13 restore [locate_data_file bug23774_GrossPlateFace.brep] face
14 restore [locate_data_file bug23774_OriginalWire.brep] wire
16 set Info [OCC23774 face wire]
18 regexp {Dist0 += +([-0-9.+eE]+)} ${Info} full Dist0
19 regexp {Dist1 += +([-0-9.+eE]+)} ${Info} full Dist1
20 regexp {Distance2 += +([-0-9.+eE]+)} ${Info} full Distance2
21 puts "Dist0 = ${Dist0}"
22 puts "Dist1 = ${Dist1}"
23 puts "Distance2 = ${Distance2}"
25 set face_tolerance [maxtolerance face]
26 regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} ${face_tolerance} full F_MaxFaceTolerance
27 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} ${face_tolerance} full F_MaxEdgeTolerance
28 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} ${face_tolerance} full F_MaxVertexTolerance
30 set wire_tolerance [maxtolerance wire]
31 regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} ${face_tolerance} full W_MaxFaceTolerance
32 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} ${face_tolerance} full W_MaxEdgeTolerance
33 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} ${face_tolerance} full W_MaxVertexTolerance
35 set max_tolerance ${F_MaxFaceTolerance}
36 if { ${F_MaxEdgeTolerance} > ${max_tolerance} } {
37 set max_tolerance ${F_MaxEdgeTolerance}
39 if { ${F_MaxVertexTolerance} > ${max_tolerance} } {
40 set max_tolerance ${F_MaxVertexTolerance}
42 if { ${W_MaxFaceTolerance} > ${max_tolerance} } {
43 set max_tolerance ${W_MaxFaceTolerance}
45 if { ${W_MaxEdgeTolerance} > ${max_tolerance} } {
46 set max_tolerance ${W_MaxEdgeTolerance}
48 if { ${W_MaxVertexTolerance} > ${max_tolerance} } {
49 set max_tolerance ${W_MaxVertexTolerance}
51 puts "max_tolerance = ${max_tolerance}"
54 set Dist0_GoodValue 0.
55 set Dist1_GoodValue 0.
56 set Distance2_GoodValue 0.
58 if { [expr abs(${Dist0} - ${Dist0_GoodValue})] > ${max_tolerance} } {
61 if { [expr abs(${Dist1} - ${Dist1_GoodValue})] > ${max_tolerance} } {
64 if { [expr abs(${Distance2} - ${Distance2_GoodValue})] > ${max_tolerance} } {
70 if { ${status} != 0 } {
71 puts "Faulty ${BugNumber}"
73 puts "OK ${BugNumber}"