1 puts "TODO OCC11111 ALL: Faulty OCC23069"
2 puts "TODO OCC11111 ALL: FPS_percent"
3 puts "TODO ?OCC11111 ALL: CPU_percent"
9 ################################################################################
10 # OpenGL state extraction for GL_RENDER_MODE significantly impact performance
11 ################################################################################
13 set BugNumber OCC23069
16 for {set anInter 1} {$anInter <= 1000} {incr anInter} {
17 box b${anInter} [expr $anInter * 20] 0 0 10 20 30
25 proc GetPercent {Value GoodValue} {
27 if {${GoodValue} != 0.} {
28 set Percent [expr abs(${Value} - ${GoodValue}) / abs(double(${GoodValue})) * 100.]
29 } elseif {${Value} != 0.} {
30 set Percent [expr abs(${GoodValue} - ${Value}) / abs(double(${Value})) * 100.]
43 if { [llength ${Log}] == 5} {
44 if { [regexp {FPS: [-0-9.+eE]+} $Log] && [regexp {CPU: [-0-9.+eE]+ msec} $Log] } {
46 regexp {FPS: ([-0-9.+eE]+)} $Log full FPS
47 regexp {CPU: ([-0-9.+eE]+) msec} $Log full CPU
49 set CPU_percent [GetPercent ${CPU} ${good_CPU}]
50 if { ${CPU_percent} > ${percent_max} } {
51 puts "CPU_percent = ${CPU_percent} ; CPU: Faulty"
55 set FPS_percent [GetPercent ${FPS} ${good_FPS}]
56 if { ${FPS_percent} > ${percent_max} } {
57 puts "FPS_percent = ${FPS_percent} ; FPS: Faulty"
69 if { ${status} == 0 } {
70 puts "OK ${BugNumber}"
72 puts "Faulty ${BugNumber}"