diff options
Diffstat (limited to 'src/corelib/x11')
-rw-r--r-- | src/corelib/x11/gfx_x11.pas | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/corelib/x11/gfx_x11.pas b/src/corelib/x11/gfx_x11.pas index d5a09843..279c5eba 100644 --- a/src/corelib/x11/gfx_x11.pas +++ b/src/corelib/x11/gfx_x11.pas @@ -116,6 +116,8 @@ type procedure DoEndDraw; override; function GetPixel(X, Y: integer): TfpgColor; override; procedure SetPixel(X, Y: integer; const AValue: TfpgColor); override; + procedure DoDrawArc(x, y, w, h: TfpgCoord; a1, a2: double); override; + procedure DoFillArc(x, y, w, h: TfpgCoord; a1, a2: double); override; public constructor Create; override; destructor Destroy; override; @@ -1309,6 +1311,18 @@ begin {$Note We must still implement DrawPoint} end; +procedure TfpgCanvasImpl.DoDrawArc(x, y, w, h: TfpgCoord; a1, a2: double); +begin + XDrawArc(xapplication.display, FDrawHandle, Fgc, x, y, w-1, h-1, + Trunc(64 * a1), Trunc(64 * a2)); +end; + +procedure TfpgCanvasImpl.DoFillArc(x, y, w, h: TfpgCoord; a1, a2: double); +begin + XFillArc(xapplication.display, FDrawHandle, Fgc, x, y, w, h, + Trunc(64 * a1), Trunc(64 * a2)); +end; + procedure TfpgCanvasImpl.DoSetFontRes(fntres: TfpgFontResourceBase); begin if fntres = nil then |