This snippet of code:
B4X:
Dim APath As B4XPath
APath.InitializeArc(ARCStartPoint.XCoord,ARCStartPoint.YCoord,CalcDistance(ARCStartPoint,ArcEndPoint1),10,350)
cvsTemp.DrawPath(APath,xui.Color_Red,False,1)
cvsTemp.DrawCircle(ArcEndPoint1.XCoord,ArcEndPoint1.YCoord,5,xui.Color_Red,True,1)...