	
'Declare Function ZoomFit ( Buffer As FB.Image Ptr, W As Long = 64, H As Long = 64 ) AS FB.Image Ptr
	
'Declare Function Zoom ( Buffer As FB.Image Ptr, W As Long = 64, H As Long = 64 ) AS FB.Image Ptr
	
ReDim Shared As String Cardinals ( Any )

Declare Sub Load_Compass ( )

Declare Sub CompassDigital ( V As Double, Digital As VertexType  )

'Declare Function Text2Buffer ( Text As String, Ink As Long = &HFFFFFFFF ) As FB.Image Ptr

'Declare Function VectorToDecimal ( X As Double, Y As Double ) As Double

'Declare Function VectorToRadius ( X As Double, Y As Double ) As Double

#Include Once ".\Compass.bas"
