bead40f2 |
1 | puts "===========" |
2 | puts "OCC23774" |
3 | puts "===========" |
4 | ###################################################### |
5 | # Incorrect conversion from gp_Trsf2d to gp_Trsf |
6 | ###################################################### |
7 | |
8 | pload QAcommands |
9 | pload TOPTEST |
10 | |
11 | set BugNumber OCC23774 |
12 | |
13 | restore [locate_data_file bug23774_GrossPlateFace.brep] face |
14 | restore [locate_data_file bug23774_OriginalWire.brep] wire |
15 | |
16 | set Info [OCC23774 face wire] |
17 | |
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}" |
24 | |
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 |
29 | |
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 |
34 | |
35 | set max_tolerance ${F_MaxFaceTolerance} |
36 | if { ${F_MaxEdgeTolerance} > ${max_tolerance} } { |
37 | set max_tolerance ${F_MaxEdgeTolerance} |
38 | } |
39 | if { ${F_MaxVertexTolerance} > ${max_tolerance} } { |
40 | set max_tolerance ${F_MaxVertexTolerance} |
41 | } |
42 | if { ${W_MaxFaceTolerance} > ${max_tolerance} } { |
43 | set max_tolerance ${W_MaxFaceTolerance} |
44 | } |
45 | if { ${W_MaxEdgeTolerance} > ${max_tolerance} } { |
46 | set max_tolerance ${W_MaxEdgeTolerance} |
47 | } |
48 | if { ${W_MaxVertexTolerance} > ${max_tolerance} } { |
49 | set max_tolerance ${W_MaxVertexTolerance} |
50 | } |
51 | puts "max_tolerance = ${max_tolerance}" |
52 | |
53 | set status 0 |
54 | set Dist0_GoodValue 0. |
55 | set Dist1_GoodValue 0. |
56 | set Distance2_GoodValue 0. |
57 | |
58 | if { [expr abs(${Dist0} - ${Dist0_GoodValue})] > ${max_tolerance} } { |
59 | set status 1 |
60 | } |
61 | if { [expr abs(${Dist1} - ${Dist1_GoodValue})] > ${max_tolerance} } { |
62 | set status 1 |
63 | } |
64 | if { [expr abs(${Distance2} - ${Distance2_GoodValue})] > ${max_tolerance} } { |
65 | set status 1 |
66 | } |
67 | |
68 | # Resume |
69 | puts "" |
70 | if { ${status} != 0 } { |
71 | puts "Faulty ${BugNumber}" |
72 | } else { |
73 | puts "OK ${BugNumber}" |
74 | } |