625e1958 |
1 | puts "=================================" |
2 | puts "AIS_Manipulator - scale an object" |
3 | puts "=================================" |
4 | |
5 | set anImage1 $imagedir/${casename}_1.png |
6 | set anImage2 $imagedir/${casename}_2.png |
7 | |
8 | # ------------------------------------- |
9 | # create manipulated and helper objects |
10 | # ------------------------------------- |
11 | |
12 | pcylinder c1_1 5 10 |
13 | pcylinder c1_2 3 10 |
14 | pcylinder c2 10 20 |
15 | ttranslate c1_1 100 0 20 |
16 | ttranslate c1_2 100 0 20 |
17 | trotate c1_2 100 0 25 0 1 0 90 |
18 | trotate c1_2 100 0 25 0 0 1 10 |
19 | ttranslate c2 100 0 0 |
20 | |
21 | compound c1_1 c1_2 c1 |
22 | |
23 | # ------------------------------------ |
24 | # display manipulated objects (test 1) |
25 | # ------------------------------------ |
26 | |
27 | vdisplay c1 |
28 | vdisplay c2 |
29 | vsetdispmode 1 |
30 | vaxo |
31 | vfit |
32 | |
33 | # ------------------ |
34 | # attach manipulator |
35 | # ------------------ |
36 | |
91d96372 |
37 | vmanipulator m -attach c1 -adjustPosition 1 -adjustSize 0 -enableModes 1 -size 40 |
625e1958 |
38 | |
39 | # -------------------------- |
40 | # test hilight and detection |
41 | # -------------------------- |
42 | |
43 | set mouse_pick {229 137} |
44 | |
45 | vmoveto {*}$mouse_pick |
46 | vdump $anImage1 |
47 | |
48 | # ------------------------- |
49 | # test scaling of an object |
50 | # ------------------------- |
51 | |
52 | set mouse_pick {229 137} |
53 | set mouse_drag {210 127} |
54 | |
55 | vmoveto {*}$mouse_pick |
56 | vselect {*}$mouse_pick |
57 | vmanipulator m -startTransform {*}$mouse_pick |
58 | vmanipulator m -transform {*}$mouse_drag |
59 | vmanipulator m -stopTransform |
60 | vselect 0 0 |
61 | vdump $anImage2 |
62 | |
63 | set to_dump_screen 0 |