Include "MapBasic.Def"
Define SCREEN_DPI_RESOLUTION 96
Declare Sub Main
Declare Sub MnuSP
Declare Sub MnuAbout
Declare Sub MnuExit
Declare Sub MnuSVG_ConvertMap
Declare Sub SVG_ConvertMap (ByVal nMap As Integer, ByVal sOutputFile As String)
Declare Sub PngSave (ByVal nMap As Integer, ByVal sOutputFile As String)
Declare Sub SVG_GetWinSize (ByVal nMap As Integer, nWidth As Integer, nHeight As Integer)
Declare Sub SVG_GetMapLimits (ByVal nMap As Integer, fMinX As Float, fMinY As Float, fMaxX As Float, fMaxY As Float)

Dim m_sFormat As String 'pattern for formatting coordinates

Sub Main
Create Menu "&SVG_Map" As
"&Convert map window to an array of png files..." Calling MnuSVG_ConvertMap,
"(-",
"E&xit pngsave" Calling MnuExit
Alter Menu Bar Add "&SVG_Map"
Call MnuAbout
End Sub