Relative angle between 2 vectors

Blitz3D Forums/Blitz3D Programming/Relative angle between 2 vectors

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.

big10p
 #1
Doesn't seem to work.
Open in online IDE
	Graphics 640,480,0,2
	SetBuffer BackBuffer()

	Type vectorT
		Field dx#
		Field dy#
	End Type

	; Static vector.
	v1.vectorT = New vectorT
	v1\dx = 100
	v1\dy = 50
	
	; Mouse vector.
	v2.vectorT = New vectorT
	
	base_x = 320
	base_y = 240
	
	While Not KeyHit(1)
		v2\dx = MouseX() - base_x
		v2\dy = MouseY() - base_y
		
		Cls
		
		Color 255,0,0
		Line base_x, base_y, base_x + v1\dx, base_y + v1\dy
		Line base_x, base_y, base_x + v2\dx, base_y + v2\dy
		
		Color 0,255,0
		Oval base_x - 4, base_y - 4, 9, 9, 1
		
		ang# = ATan2(v1\dy - v2\dy, v1\dx - v2\dx) ; ????
		
		Color 255,255,255
		Text 10,10,"Angle: " + ang#
		
		VWait : Flip False
	Wend

	End