Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.
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.