0030669: Visualization - AIS_Manipulator ignores parent transformation
[occt.git] / tests / bugs / vis / bug30669
1 puts "============="
2 puts "0030669: Visualization - AIS_Manipulator ignores parent transformation"
3 puts "============="
4
5 pload MODELING VISUALIZATION
6 box b1 0 0 0 1 2 3
7 box b2 2 0 0 2 1 3
8 vclear
9 vinit View1
10 vpoint p0 0 0 0
11 vdisplay -dispMode 1 b1 b2
12 vchild b1 -add b2
13 vlocation b1  -setRotation  1 0 0 1 -setLocation 4 -2 0
14 vfit
15 vmanipulator m -attach b2
16
17 set mouse_pick {265 265}
18 set mouse_drag {265 200}
19
20 vmoveto {*}$mouse_pick
21 vselect {*}$mouse_pick
22 vmanipulator m -startTransform {*}$mouse_pick
23 vmanipulator m -transform {*}$mouse_drag
24 vmanipulator m -stopTransform
25 vselect 0 0
26
27 if { [string trim [vlocation b2 -location]] != "0 1.80711 0" } { puts "Error: wrong location" }
28 vdump $imagedir/${casename}.png