Ready to get started with anonymous questions today? It's easy! Learn more.
Become a Premium Member and unlock a new, free course in leading technologies each month.
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Dim rct As RectangleF = GetCircle(x1, y1, x2, y2, x3, y3) ' circle from 3 points: http://www.regentsprep.org/Regents/math/geometry/GCG6/RCir.htm
Dim xcc As Single = rct.X + rct.Width / 2
Dim ycc As Single = rct.Y + rct.Height / 2
Dim reversesweep As Boolean = ccw(x1, y1, x2, y2, x3, y3) ' from http://en.wikipedia.org/wiki/Graham_scan
startangle = get_angle(x1 - xcc, y1 - ycc)
endangle = get_angle(x3 - xcc, y3 - ycc)
sweepangle = endangle - startangle
If reversesweep Xor (sweepangle > 0) Then sweepangle += -360 * Math.Sign(sweepangle)
gr.DrawArc(pn, rct, startangle, sweepangle)
Obviously, whether this helps you may depend largely on the compatibility of the called functions with yours. But for starters I think this bit together with the remarks above may enable you to determine the problem. If you think my exact implementation can help you further, please look at the attached project which by now includes some nice bells and whistles (like moving the individual points and calculate the result real-time).If you are experiencing a similar issue, please ask a related question
Join the community of 500,000 technology professionals and ask your questions.