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