fn myFnConvertToVertAnimation fpObj fpStart fpEnd fpStep = 
(
	with redraw off
	(
		prc = 0
		obj = snapshot fpObj
	
		progressStart "Converting "
		f = fpStart
		while f <= fpEnd do
		(						
			sliderTime = f
			
			for i=1 to obj.verts.count do
			(
				v = obj.verts[i]
				v2 = fpObj.verts[i]
				
				animate on move v [	(v2.pos.x-v.pos.x),\
									(v2.pos.y-v.pos.y),\
									(v2.pos.z-v.pos.z)]
				
				prc = (fpEnd-((fpEnd-fpStart)/100*(fpEnd-f)))
				progressUpdate (prc as integer)
			)
			
			f += fpStep
		)
		progressEnd()
	)
)

myFnConvertToVertAnimation $ 0 100 10