' Find a point on a circle\'s circumference given the circle\'s origin, radius and degrees. Private Function FindPointOnCircle(originPoint As Point, radius As Double, angleDegrees As Double) As Point Dim x As Double = radius * Math.Cos(Math.PI * angleDegrees / 180.0) + originPoint.X Dim y As Double = radius * Math.Sin(Math.PI * angleDegrees / 180.0) + originPoint.Y Return New Point(x, y) End Function
Posted: March 20, 2023
Return to the snippets listing