tests/bugs/vis/bug30437

   1 puts "============="
   2 puts "0030437: Visualization, TKV3d - add Draw command to print rendering statistics"
   3 puts "============="
   4
   5 pload MODELING VISUALIZATION
   6 vclear
   7 vinit View1 -width 800 -height 400
   8 vdrawparray g trianglestrips v -97.9819 -175.225 -7.6706 v -97.9819  194.163 -7.6706 v 271.406  -175.225 -7.6706 v 271.406   194.163 -7.6706
   9
  10 vpoint pl1  -4 -17  0
  11 vpoint pl2  -4 -10 14
  12 vpoint pl3   0  -6 17
  13 vpoint pr1 179  17 39
  14 vpoint pr2 174  -2 12
  15 vpoint pr3 177   0 15
  16 vfit
  17
  18 vcamera -persp
  19 vviewparams -scale 5 -proj -0 -1 -0 -up 0 0 1 -at -157 9.5 19
  20 vviewparams -scale 5 -proj -0 -1 -0 -up 0 0 1 -at -157 9.5 19
  21
  22 set aPointsNb    [vstatprofiler points]
  23 set aTrianglesNb [vstatprofiler triangles]
  24
  25 # check number of not culled points and triangles
  26 if [expr $aPointsNb != 3 || $aTrianglesNb != 2] { puts "Error: unexpected number of culled elements" }