tests/perf/single_mesh_selection/B2

   1 puts "3D visualization performance tests"
   2 puts "Interactive selection of whole MeshVS_Mesh object by rectangular selection for MeshVS_Mesh"
   3 puts "Object haves shading mode"
   4
   5
   6 vsetdispmode m 2
   7 vselmode m 0 1
   8
   9 dchrono tmr start
  10
  11 set x1 180; set y1 180; set x2 225; set y2 230
  12 set x11 5; set y11 5
  13
  14 for {set i 1} {$i < 100} {incr i} {
  15     vselect $x1 $y1 $x2 $y2 1
  16     vselect $x11 $y11
  17 }