I found this function and converted it to VB.Net. It draws an oval rather than a circle. What do I need to do to fix the calculations?
Dim seg As Double = Math.PI * 2 / segmentsDim y As Integer = 0For i As Integer = 0 To segments - 1 Dim theta As Double = seg * i Dim a As Double = _pll.Lat + Math.Cos(theta) * radius Dim b As Double = _pll.Lng + Math.Sin(theta) * radius plls.Add(New PointLatLng(a, b))NextThanks
أكثر...
Dim seg As Double = Math.PI * 2 / segmentsDim y As Integer = 0For i As Integer = 0 To segments - 1 Dim theta As Double = seg * i Dim a As Double = _pll.Lat + Math.Cos(theta) * radius Dim b As Double = _pll.Lng + Math.Sin(theta) * radius plls.Add(New PointLatLng(a, b))NextThanks
أكثر...