puts "============"
puts "OCC23227"
puts "============"
puts ""
#######################################################################
# New Draw Harness command to estimate current geometry complexity of OpenGL scene
#######################################################################

set BugNumber OCC23227

box b 1 2 3
vinit
vdisplay b
vsetdispmode 1
vfit
set vfeedback1 [vfeedback]

vclear
set vfeedback2 [vfeedback]

set llength_vfeedback1 [llength ${vfeedback1}]
set llength_vfeedback2 [llength ${vfeedback2}]
set IndexTriangles1 [lsearch ${vfeedback1} Triangles:]
set IndexTriangles2 [lsearch ${vfeedback2} Triangles:]

if { ${llength_vfeedback1} < 36 || ${llength_vfeedback2} < 36 || ${IndexTriangles1} < 0 || ${IndexTriangles2} < 0 } {
   puts "Bad format of vfeedback command"
   puts "Faulty ${BugNumber}"
} else {
   set Triangles1 [lindex ${vfeedback1} ${IndexTriangles1}+1]
   set Triangles2 [lindex ${vfeedback2} ${IndexTriangles1}+1]
   if { ${Triangles1} == 12 && ${Triangles2} == 0 } {
      puts "OK ${BugNumber}"
   } else {
      puts "Faulty ${BugNumber}"
   }
}

set only_screen 1

