2 puts "0030437: Visualization, TKV3d - add Draw command to print rendering statistics"
5 pload MODELING VISUALIZATION
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
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
22 set aPointsNb [vstatprofiler points]
23 set aTrianglesNb [vstatprofiler triangles]
25 # check number of not culled points and triangles
26 if [expr $aPointsNb != 3 || $aTrianglesNb != 2] { puts "Error: unexpected number of culled elements" }