tests/bugs/vis/bug23227

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