5 #######################################################################
6 # Crash during shape visualization
7 #######################################################################
15 restore [locate_data_file OCC22759-weldt6.brep] result
20 incmesh result ${Deflection}
22 set tri_info [trinfo result]
23 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
24 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
26 regexp {deflection +([-0-9.+eE]+)} $tri_info full defl
28 set env(os_type) $tcl_platform(platform)
29 if { [string compare $env(os_type) "windows"] != 0 } {
33 set good_defl 0.0032657364637550075
35 puts "OS = Windows NT"
38 set good_defl 0.0032657364637550075
41 proc GetPercent {Value GoodValue} {
43 if {${GoodValue} != 0.} {
44 set Percent [expr abs(${Value} - ${GoodValue}) / abs(double(${GoodValue})) * 100.]
45 } elseif {${Value} != 0.} {
46 set Percent [expr abs(${GoodValue} - ${Value}) / abs(double(${Value})) * 100.]
56 set triangle_percent [GetPercent ${tri} ${good_tri}]
57 puts "triangle_percent = ${triangle_percent}"
58 if { ${triangle_percent} > ${percent_max} } {
59 puts "triangle: Faulty ${BugNumber}"
62 puts "triangle: OK ${BugNumber}"
65 set node_percent [GetPercent ${nod} ${good_nod}]
66 puts "node_percent = ${node_percent}"
67 if { ${node_percent} > ${percent_max} } {
68 puts "node: Faulty ${BugNumber}"
71 puts "node: OK ${BugNumber}"
74 set deflection_percent [GetPercent ${defl} ${good_defl}]
75 puts "deflection_percent = ${deflection_percent}"
76 if { ${deflection_percent} > ${percent_max} } {
77 puts "deflection: Faulty ${BugNumber}"
80 puts "deflection: OK ${BugNumber}"
85 if { ${status} != 0 } {
86 puts "Faulty ${BugNumber}"
88 puts "OK ${BugNumber}"