AlignToVector Question

Blitz3D Forums/Blitz3D Beginners Area/AlignToVector Question

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

you coud also use deltaPitch deltayaw and delateroll functions.

if you can use EntityX entityY and EntityZ, maybe this should work:
Graphics3D 800,600,0,2
SetBuffer BackBuffer()

light	=	CreateLight	(1)
			MoveEntity	light,50,50,-50

cam		=	CreateCamera()
			MoveEntity	cam,0,40,0
			TurnEntity	cam,90,0,0

point1	=	CreateCone	()
			RotateMesh	point1,90,0,0
			ScaleMesh	point1,1,1,2
			EntityColor	point1,0,255,0

point2	=	CreateCone()
			RotateMesh	point2,90,0,0
			ScaleMesh	point2,1,1,2
			EntityColor	point2,255,0,0
			MoveEntity	point2,-10,0,15

Repeat
	mx=MouseX()
	my=MouseY()
	px#=40*(Float(mx-400)/400)
	pz#=40*(Float(300-my)/400)
	PositionEntity point2,px,0,pz
	PointEntity point2,point1
	SmoothPoint(point1,point2,.1)
	RenderWorld
	Flip
Until KeyHit(1)

End




Function SmoothPoint(source%,dest%,rate#=1)
	Dx#=EntityX(dest,1)-EntityX(source,1)
	Dy#=EntityY(dest,1)-EntityY(source,1)
	Dz#=EntityZ(dest,1)-EntityZ(source,1)
	AlignToVector source,dx#,dy#,dz#,3,rate
End Function