1 puts "=================================="
2 puts "AIS_Manipulator - rotate an object"
3 puts "=================================="
5 set anImage1 $imagedir/${casename}_1.png
6 set anImage2 $imagedir/${casename}_2.png
7 set anImage3 $imagedir/${casename}_3.png
8 set anImage4 $imagedir/${casename}_4.png
9 set anImage5 $imagedir/${casename}_5.png
11 # -------------------------------------
12 # create manipulated and helper objects
13 # -------------------------------------
18 ttranslate c1_1 100 0 20
19 ttranslate c1_2 100 0 20
20 trotate c1_2 100 0 25 0 1 0 90
21 trotate c1_2 100 0 25 0 0 1 10
26 # ------------------------------------
27 # display manipulated objects (test 1)
28 # ------------------------------------
40 vmanipulator m -attach c1 -adjustPosition 1 -adjustSize 0 -enableModes 1
42 # ----------------------------------------------------
43 # test rotation around x axis (object reference frame)
44 # ----------------------------------------------------
46 vmanipulator m -followRotation 1
48 set mouse_pick {201 092}
49 set mouse_drag {176 142}
51 vmoveto {*}$mouse_pick
52 vselect {*}$mouse_pick
53 vmanipulator m -startTransform {*}$mouse_pick
54 vmanipulator m -transform {*}$mouse_drag
55 vmanipulator m -stopTransform
57 vmoveto {*}$mouse_drag
60 # ----------------------------------------------------
61 # test rotation around y axis (object reference frame)
62 # ----------------------------------------------------
64 vmanipulator m -followRotation 1
66 set mouse_pick {173 137}
67 set mouse_drag {233 140}
69 vmoveto {*}$mouse_pick
70 vselect {*}$mouse_pick
71 vmanipulator m -startTransform {*}$mouse_pick
72 vmanipulator m -transform {*}$mouse_drag
73 vmanipulator m -stopTransform
75 vmoveto {*}$mouse_drag
78 # ----------------------------------------------------
79 # test rotation around z axis (object reference frame)
80 # ----------------------------------------------------
82 vmanipulator m -followRotation 1
84 set mouse_pick {200 094}
85 set mouse_drag {182 117}
87 vmoveto {*}$mouse_pick
88 vselect {*}$mouse_pick
89 vmanipulator m -startTransform {*}$mouse_pick
90 vmanipulator m -transform {*}$mouse_drag
91 vmanipulator m -stopTransform
93 vmoveto {*}$mouse_drag
96 # ------------------------------------
97 # display manipulated objects (test 2)
98 # ------------------------------------
107 vmanipulator m -attach c1 -adjustPosition 1 -adjustSize 0 -enableModes 1
108 vmanipulator m -followRotation 0
110 # ---------------------------------------------------
111 # test rotation around y axis (world reference frame)
112 # ---------------------------------------------------
114 set mouse_pick {211 095}
115 set mouse_drag {230 127}
117 vmoveto {*}$mouse_pick
118 vselect {*}$mouse_pick
119 vmanipulator m -startTransform {*}$mouse_pick
120 vmanipulator m -transform {*}$mouse_drag
121 vmanipulator m -stopTransform
123 vmoveto {*}$mouse_drag
126 # ---------------------------------------------------
127 # test rotation around z axis (world reference frame)
128 # ---------------------------------------------------
130 set mouse_pick {225 143}
131 set mouse_drag {184 143}
133 vmoveto {*}$mouse_pick
134 vselect {*}$mouse_pick
135 vmanipulator m -startTransform {*}$mouse_pick
136 vmanipulator m -transform {*}$mouse_drag
137 vmanipulator m -stopTransform
139 vmoveto {*}$mouse_drag