
Sub MouseCard ( CI As String, MouseCurrent As VertexType, MouseButtons As VertexType, Digital As VertexType )
	
	Dim As Double V = VectorToDecimal ( VertexFunnel ( 320 - MouseCurrent.XYZ ( Vec.X ), 240 - MouseCurrent.XYZ ( Vec.Y ) ) )
	
	Locate 3, 1
	Print V;

	CompassDigital ( V, Digital )
		
	Line ( 320, 240 ) - ( Digital.XYZ ( Vec.X ), Digital.XYZ ( Vec.Y ) ), RGBA ( 255, 164, 64, 128 )

	Line ( 320, 240 ) - ( MouseCurrent.XYZ ( Vec.X ), MouseCurrent.XYZ ( Vec.Y ) ), RGBA ( 240, 196, 64, 128 )
		
	Dim As String Card
	Card = Cardinals ( Fix ( CompassRose ( V ) ) )
	
	Dim As FB.Image Ptr Buffer = Text2Buffer ( Card, RGBA ( 255, 255, 255, 196 ) )
		
	Dim As FB.Image Ptr CardBuffer = ImageCreate (  Len ( Card ) * 8 * 3, 8 * 5 , RGBA ( 0, 0, 0, 0 ), 32 )
		
	Gfx_Buffer_Stretch_Aspect ( Buffer, CardBuffer, "height" )
		
	ImageDestroy ( Buffer )
		
	Put ( Digital.XYZ ( Vec.X ) - CardBuffer -> Width \ 2, Digital.XYZ ( Vec.Y ) - CardBuffer -> Height \ 2 ), CardBuffer, Alpha
		
	ImageDestroy ( CardBuffer )
		
End Sub
