puts "================"
puts "OCC23065"
puts "================"
puts ""
##########################################################################################
# This is desirable to add general DRAW command to estimate visualization performance
##########################################################################################

set BugNumber OCC23065

vinit
set Log [vfps]

set status 0
if { [llength ${Log}] == 5} {
   set word1 [string compare [lindex ${Log} end] "msec"]
   set word2 [string compare [lindex ${Log} end-2] "CPU:"]
   set word3 [string compare [lindex ${Log} end-4] "FPS:"]
   if { ${word1} == 0 && ${word2} == 0 && ${word3} == 0 } {
      set status 0
   } else {
      set status 1
   }
} else {
   set status 1
}

# Resume
puts ""
if { ${status} == 0 } {
   puts "OK ${BugNumber}"
} else {
   puts "Faulty ${BugNumber}"
}