tests/perf/single_object_selection/B5

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