1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-08 18:40:55 +03:00
occt/tests/v3d/manipulator/drag_in_2d_view
sshutina e3fd3d83da 0032861: Visualization - Separate rotate and move the object behavior in AIS_ViewController
Added the flag in Dragging structure that defines perform dragging (ToMove).
2022-04-06 03:16:12 +03:00

32 lines
794 B
Plaintext

puts "=============================================="
puts "0032861: Visualization - Separate rotate and move the object behavior in AIS_ViewController"
puts "=============================================="
puts ""
pload MODELING VISUALIZATION
vinit View1 -2d
box b 10 10 10
vdisplay b
vaxo
vfit
vzoom 0.5
vmanipulator m -attach b
vdump $imagedir/${casename}_1.png
set mouse_pick {226 214}
set mouse_drag {306 265}
# note: mouse events cannot be emulated here, so the original bug cannot be reproduced by this test case
vmoveto {*}$mouse_pick
vselect {*}$mouse_pick
vmanipulator m -startTransform {*}$mouse_pick
vmanipulator m -transform {*}$mouse_drag
vmanipulator m -stopTransform
vselect 0 0
vmoveto {*}$mouse_drag
vdump $imagedir/${casename}_2.png
set aNewLoc [vlocation b -location]