Procedure jCanvasES2.DrawCircle(XY: TXY; Z, L: Single; AColor: TRGBA; AWidth: Single = 0.3);
var
i: Integer;
begin
if not FInitialized then Exit;
For i := 0 to 70 do
DrawLine(
_XYZ(cCircle[i*2] *L+XY.X, cCircle[i*2+1]*L+XY.Y, Z),
_XYZ(cCircle[i*2+2]*L+XY.X, cCircle[i*2+3]*L+XY.Y, Z),
AColor, AWidth
);
DrawLine(
_XYZ(cCircle[0] *L+XY.X, cCircle[1] *L+XY.Y, Z),
_XYZ(cCircle[142]*L+XY.X, cCircle[143]*L+XY.Y, Z),
AColor, AWidth
);
end;