Mega Code Archive
PointF and PointDouble
<![CDATA[
Imports System.Drawing
Imports System.Drawing.Drawing2D
Public Class Tester
Public Shared Sub Main
' ----- Original PointF version.
Dim singlePoint As New PointF(1 / 17, Math.PI)
Console.WriteLine("PointF: " & singlePoint.ToString())
Console.WriteLine("X: " & singlePoint.X)
' ----- New Point2D version.
Dim doublePoint As New Point2D(1 / 17, Math.PI)
Console.WriteLine("Point2D: " & doublePoint.Tostring())
Console.WriteLine("X: " & doublePoint.X)
End Sub
End Class
Public Class Point2D
Public X As Double
Public Y As Double
Public Sub New(ByVal xPoint As Double, _
ByVal yPoint As Double)
Me.X = xPoint
Me.Y = yPoint
End Sub
Public Overrides Function Tostring() As String
Return "{X=" & X & ",Y=" & Y & "}"
End Function
End Class
PointF: {X=0.05882353, Y=3.141593}
X: 0.05882353
Point2D: {X=0.0588235294117647,Y=3.14159265358979}
X: 0.0588235294117647
]]>