1 puts "====================================="
2 puts "AIS_Manipulator - translate an object"
3 puts "====================================="
5 pload MODELING VISUALIZATION
7 set anImage1 $imagedir/${casename}_1.png
8 set anImage2 $imagedir/${casename}_2.png
9 set anImage3 $imagedir/${casename}_3.png
10 set anImage4 $imagedir/${casename}_4.png
11 set anImage5 $imagedir/${casename}_5.png
13 # -------------------------------------
14 # create manipulated and helper objects
15 # -------------------------------------
19 ttranslate c1 100 0 20
21 trotate c1 100 0 25 0 1 0 90
22 trotate c1 100 0 25 0 0 1 10
24 # -------------------------------------
25 # display manipulated objects (scene 1)
26 # -------------------------------------
38 vmanipulator m -attach c1 -adjustPosition 1 -adjustSize 0 -enableModes 1 -size 40
39 vmanipulator m -followRotation 1
40 vmanipulator m -followTranslation 1
41 vmanipulator m -part 0 4 0
42 vmanipulator m -part 1 4 0
43 vmanipulator m -part 2 4 0
45 # ----------------------------------------------------
46 # test x translation transform (world reference frame)
47 # ----------------------------------------------------
49 set mouse_pick {204 112}
50 set mouse_drag {204 156}
52 vmoveto {*}$mouse_pick
53 vselect {*}$mouse_pick
54 vmanipulator m -startTransform {*}$mouse_pick
55 vmanipulator m -transform {*}$mouse_drag
56 vmanipulator m -stopTransform
58 vmoveto {*}$mouse_drag
61 # ----------------------------------------------------
62 # test y translation transform (world reference frame)
63 # ----------------------------------------------------
65 set mouse_pick {215 160}
66 set mouse_drag {265 132}
68 vmoveto {*}$mouse_pick
69 vselect {*}$mouse_pick
70 vmanipulator m -startTransform {*}$mouse_pick
71 vmanipulator m -transform {*}$mouse_drag
72 vmanipulator m -stopTransform
74 vmoveto {*}$mouse_drag
77 # ----------------------------------------------------
78 # test z translation transform (world reference frame)
79 # ----------------------------------------------------
81 set mouse_pick {263 145}
82 set mouse_drag {127 065}
84 vmoveto {*}$mouse_pick
85 vselect {*}$mouse_pick
86 vmanipulator m -startTransform {*}$mouse_pick
87 vmanipulator m -transform {*}$mouse_drag
88 vmanipulator m -stopTransform
90 vmoveto {*}$mouse_drag
93 # -------------------------------------
94 # display manipulated objects (scene 2)
95 # -------------------------------------
104 # -------------------------------------------
105 # attach manipulator and rotate around z axis
106 # -------------------------------------------
108 vmanipulator m -attach c1 -adjustPosition 1 -adjustSize 0 -enableModes 1 -size 40
109 vmanipulator m -followRotation 1
110 vmanipulator m -followTranslation 1
111 vmanipulator m -part 0 4 0
112 vmanipulator m -part 1 4 0
113 vmanipulator m -part 2 4 0
115 set mouse_pick {223 144}
116 set mouse_drag {181 140}
118 vmoveto {*}$mouse_pick
119 vselect {*}$mouse_pick
120 vmanipulator m -startTransform {*}$mouse_pick
121 vmanipulator m -transform {*}$mouse_drag
122 vmanipulator m -stopTransform
124 vmoveto {*}$mouse_drag
126 # ----------------------------------------------------
127 # test x translation transform (object reference frame)
128 # ----------------------------------------------------
130 set mouse_pick {199 131}
131 set mouse_drag {175 168}
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
142 # ----------------------------------------------------
143 # test y translation transform (object reference frame)
144 # ----------------------------------------------------
146 set mouse_pick {199 164}
147 set mouse_drag {246 177}
149 vmoveto {*}$mouse_pick
150 vselect {*}$mouse_pick
151 vmanipulator m -startTransform {*}$mouse_pick
152 vmanipulator m -transform {*}$mouse_drag
153 vmanipulator m -stopTransform
155 vmoveto {*}$mouse_drag