1 puts "================"
3 puts "================"
5 #######################################################################################
6 # Incorrect calculation of bounding box for infinite surfaces
7 #######################################################################################
11 proc GetPercent {Value GoodValue} {
13 if {${GoodValue} != 0.} {
14 set Percent [expr abs(${Value} - ${GoodValue}) / abs(double(${GoodValue})) * 100.]
15 } elseif {${Value} != 0.} {
16 set Percent [expr abs(${GoodValue} - ${Value}) / abs(double(${Value})) * 100.]
25 set info_result [bounding f]
27 set x1 [lindex ${info_result} 0]
28 set y1 [lindex ${info_result} 1]
29 set z1 [lindex ${info_result} 2]
30 set x2 [lindex ${info_result} 3]
31 set y2 [lindex ${info_result} 4]
32 set z2 [lindex ${info_result} 5]
36 set good_z1 -9.9999999999999995e-08
39 set good_z2 9.9999999999999995e-08
44 set x1_percent [GetPercent ${x1} ${good_x1}]
45 set y1_percent [GetPercent ${y1} ${good_y1}]
46 set z1_percent [GetPercent ${z1} ${good_z1}]
47 set x2_percent [GetPercent ${x2} ${good_x2}]
48 set y2_percent [GetPercent ${y2} ${good_y2}]
49 set z2_percent [GetPercent ${z2} ${good_z2}]
51 if {${x1_percent} > ${percent_max}} {
52 puts "Faulty ${BugNumber} : x1 is wrong"
55 if {${y1_percent} > ${percent_max}} {
56 puts "Faulty ${BugNumber} : y1 is wrong"
59 if {${z1_percent} > ${percent_max}} {
60 puts "Faulty ${BugNumber} : z1 is wrong"
63 if {${x2_percent} > ${percent_max}} {
64 puts "Faulty ${BugNumber} : x2 is wrong"
67 if {${y2_percent} > ${percent_max}} {
68 puts "Faulty ${BugNumber} : y2 is wrong"
71 if {${z2_percent} > ${percent_max}} {
72 puts "Faulty ${BugNumber} : z2 is wrong"
76 if { ${status} == 0 } {
77 puts "${BugNumber}: OK"
79 puts "${BugNumber}: Faulty"