tests/perf/single_object_selection/B2

   1 puts "3D visualization performance tests"
   2 puts "Interactive selection of whole interactive object by point-and-click for AIS-object"
   3 puts "Object haves shading mode"
   4
   5
   6 vsetdispmode 1
   7
   8 dchrono tmr start
   9
  10 set x 247
  11 set y 214
  12 set x2 247
  13 set y2 10
  14 for {set i 1} {$i < 100} {incr i} {
  15     vselect $x $y
  16     vselect $x2 $y2
  17 }