1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
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}"
}
|
