rollout gui "track vert to object"
(
pickbutton chooseOBJ "Choose OBJ"
	on chooseOBJ picked obj do
	(
	TrackOBJ = dummy()
	slidertime = animationrange.start
	animate on
	for i = animationrange.start to animationrange.end do
		(
		VertSEL = getvertselection $ $.modifiers[#edit_mesh] as array -- gets vert ID
		VertPOSI = meshop.getvert $ VertSEL[1]
		TrackOBJ.position = vertposi
		slidertime +=1
		)
	--look up getvert()
	)

button _about "about"
	on _about pressed do
		(
		messagebox "Written by Allan McKay
		Simple script to track a dummy to the selected object\n
		amckay@allanmckay.com
		or
		http://www.allanmckay.com"
		)

bitmap cfx_logo "Logo" filename:"C:/AtmosApp_24a.bmp"


)
createdialog gui