tests/perf/multi_mesh_selection/A8

   1 puts "3D visualization performance tests"
   2 puts "Interactive selection of whole MeshVS_Mesh object by point-and-click for MeshVS_Mesh object in V3d View with 27 MeshVS_Mesh objects (+ AIS trihedron)"
   3 puts "Object haves shading mode"
   4
   5
   6 set dispmode 2
   7 vsetdispmode m  ${dispmode}
   8 vsetdispmode m2 ${dispmode}
   9 vsetdispmode m3 ${dispmode}
  10 vsetdispmode m4 ${dispmode}
  11 vsetdispmode m5 ${dispmode}
  12 vsetdispmode m6 ${dispmode}
  13 vsetdispmode m7 ${dispmode}
  14 vsetdispmode m8 ${dispmode}
  15 vsetdispmode m9 ${dispmode}
  16
  17 vsetdispmode m11 ${dispmode}
  18 vsetdispmode m12 ${dispmode}
  19 vsetdispmode m13 ${dispmode}
  20 vsetdispmode m14 ${dispmode}
  21 vsetdispmode m15 ${dispmode}
  22 vsetdispmode m16 ${dispmode}
  23 vsetdispmode m17 ${dispmode}
  24 vsetdispmode m18 ${dispmode}
  25 vsetdispmode m19 ${dispmode}
  26
  27 vsetdispmode m21 ${dispmode}
  28 vsetdispmode m22 ${dispmode}
  29 vsetdispmode m23 ${dispmode}
  30 vsetdispmode m24 ${dispmode}
  31 vsetdispmode m25 ${dispmode}
  32 vsetdispmode m26 ${dispmode}
  33 vsetdispmode m27 ${dispmode}
  34 vsetdispmode m28 ${dispmode}
  35 vsetdispmode m29 ${dispmode}
  36
  37 vselmode m 0 1
  38
  39 dchrono tmr start
  40
  41 set x 267
  42 set y 222
  43 set x2 10
  44 set y2 10
  45 for {set i 1} {$i < 100} {incr i} {
  46     vselect $x $y
  47     vselect $x2 $y2
  48 }