If SEAS_ > maxZoomLevel - 4 Thenīoat = TransformAndRotate(boatHeading, boat) 'simplified rotation and transformation matrixĬase SEAS_ To maxZoomLevel - 3ĭim newRect As New RectangleF(boat(0).X, boat(0).Y, newSize.Width, newSize.Height) NewSize = New Size(CInt(Size.Width / 2), CInt(Size.Height / 2))īoat(4).X = CSng(boat(0).X - newSize.Width / 2)īoat(4).Y = CSng(boat(0).Y + newSize.Width / 2)
NewSize = New Size(CInt(Size.Width * 1.5), CInt(Size.Height * 1.5))Ĭase maxZoomLevel - 2 To maxZoomLevel - 1Ĭase SEAS_ To maxZoomLevel - 2 NewSize = New Size(Size.Width * 2, Size.Height * 2) Public Overrides Sub OnRender(g As Graphics)ĭim maxZoomLevel As Integer = SEAS_ Public Sub New(ic As SEAS_DATA.ImageCluster, b As Brush) Sorry for the lack of comments! Namespace I also draw the boat differently based on the zoom level.
I know this thread is almost a year old but this is how I create a boat marker I rotate based on the orientation of the boat.
0 kommentar(er)
