tests/bugs/vis/bug23227

   1 puts "============"
   2 puts "OCC23227"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # New Draw Harness command to estimate current geometry complexity of OpenGL scene
   7 #######################################################################
   8
   9 set BugNumber OCC23227
  10
  11 box b 1 2 3
  12 vinit
  13 vdisplay b
  14 vsetdispmode 1
  15 vfit
  16 set vfeedback1 [vfeedback]
  17
  18 vclear
  19 set vfeedback2 [vfeedback]
  20
  21 set llength_vfeedback1 [llength ${vfeedback1}]
  22 set llength_vfeedback2 [llength ${vfeedback2}]
  23 set IndexTriangles1 [lsearch ${vfeedback1} Triangles:]
  24 set IndexTriangles2 [lsearch ${vfeedback2} Triangles:]
  25
  26 if { ${llength_vfeedback1} < 36 || ${llength_vfeedback2} < 36 || ${IndexTriangles1} < 0 || ${IndexTriangles2} < 0 } {
  27    puts "Bad format of vfeedback command"
  28    puts "Faulty ${BugNumber}"
  29 } else {
  30    set Triangles1 [lindex ${vfeedback1} ${IndexTriangles1}+1]
  31    set Triangles2 [lindex ${vfeedback2} ${IndexTriangles1}+1]
  32    if { ${Triangles1} == 12 && ${Triangles2} == 0 } {
  33       puts "OK ${BugNumber}"
  34    } else {
  35       puts "Faulty ${BugNumber}"
  36    }
  37 }
  38
  39 set only_screen 1
  40