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