Option Explicit

Public Function TilePlotter(Map As strcPoint) As strcPoint
  TilePlotter.x = Map.x * TileBreiteHoehe
  TilePlotter.y = Map.y * TileBreiteHoehe
End Function

Public Sub ClipScreenAnchor()
  If ScreenAnchor.x < AnchorSpace.Left Then _
        ScreenAnchor.x = AnchorSpace.Left
  If ScreenAnchor.y < AnchorSpace.Top Then _
        ScreenAnchor.y = AnchorSpace.Top
  If ScreenAnchor.x > AnchorSpace.Right Then _
        ScreenAnchor.x = AnchorSpace.Right
  If ScreenAnchor.y > AnchorSpace.Bottom Then _
        ScreenAnchor.y = AnchorSpace.Bottom
End Sub

Public Function GetMouseTile(ByVal mx As Long, _
                             ByVal my As Long) As strcPoint
  Dim MapCoarse As strcPoint

  mx = mx + ScreenAnchor.x
  my = my + ScreenAnchor.y
  MapCoarse.x = mx \ TileBreiteHoehe
  MapCoarse.y = my \ TileBreiteHoehe
  GetMouseTile = MapCoarse
End Function