[occt.git] / tests / bugs / vis / bug30669

puts "============="
puts "0030669: Visualization - AIS_Manipulator ignores parent transformation"
puts "============="

pload MODELING VISUALIZATION
box b1 0 0 0 1 2 3
box b2 2 0 0 2 1 3
vclear
vinit View1
vpoint p0 0 0 0
vdisplay -dispMode 1 b1 b2
vchild b1 -add b2
vlocation b1  -setRotation  1 0 0 1 -setLocation 4 -2 0
vfit
vmanipulator m -attach b2

set mouse_pick {265 265}
set mouse_drag {265 200}

vmoveto {*}$mouse_pick
vselect {*}$mouse_pick
vmanipulator m -startTransform {*}$mouse_pick
vmanipulator m -transform {*}$mouse_drag
vmanipulator m -stopTransform
vselect 0 0

if { [string trim [vlocation b2 -location]] != "0 1.80711 0" } { puts "Error: wrong location" }
vdump $imagedir/${casename}.png
Commit	Line	Data
245cbf94	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