|
@@ -13,21 +13,22 @@ TYPE
|
|
lineWidth-: Real;
|
|
lineWidth-: Real;
|
|
capType-: LONGINT;
|
|
capType-: LONGINT;
|
|
rasterMode: Raster.Mode;
|
|
rasterMode: Raster.Mode;
|
|
- colorMap: ARRAY 256 OF Raster.Pixel;
|
|
|
|
|
|
+ drawColor: WMGraphics.Color;
|
|
|
|
+ drawColorMap: ARRAY 256 OF Raster.Pixel;
|
|
halfLineWidth: Real;
|
|
halfLineWidth: Real;
|
|
halfLineWidthBy255: Real;
|
|
halfLineWidthBy255: Real;
|
|
invLineWidthBy255: Real;
|
|
invLineWidthBy255: Real;
|
|
halfLineWidthSqr: Real;
|
|
halfLineWidthSqr: Real;
|
|
|
|
|
|
PROCEDURE ^ & New*(img: Raster.Image);
|
|
PROCEDURE ^ & New*(img: Raster.Image);
|
|
- PROCEDURE ^ SetColor*(x: WMGraphics.Color);
|
|
|
|
|
|
+ PROCEDURE ^ SetDrawColor(color: WMGraphics.Color);
|
|
PROCEDURE ^ SetLineWidth*(w: Real);
|
|
PROCEDURE ^ SetLineWidth*(w: Real);
|
|
PROCEDURE ^ SetLineCap*(lineCap: LONGINT);
|
|
PROCEDURE ^ SetLineCap*(lineCap: LONGINT);
|
|
- PROCEDURE ^ LineReal*(x0, y0, x1, y1: Real; lineColor: WMGraphics.Color; mode: LONGINT);
|
|
|
|
|
|
+ PROCEDURE ^ LineReal*(x0, y0, x1, y1: Real; color: WMGraphics.Color; mode: LONGINT);
|
|
PROCEDURE ^ Disk*(x0, y0: Real; radius: Real; color: WMGraphics.Color; mode: LONGINT);
|
|
PROCEDURE ^ Disk*(x0, y0: Real; radius: Real; color: WMGraphics.Color; mode: LONGINT);
|
|
PROCEDURE ^ DrawDisk(x0, y0, radius: Real);
|
|
PROCEDURE ^ DrawDisk(x0, y0, radius: Real);
|
|
- PROCEDURE ^ PutPixel(x, y: LONGINT; colorMapIndex: LONGINT);
|
|
|
|
- PROCEDURE ^ PutPixelSwapped(x, y: LONGINT; colorMapIndex: LONGINT);
|
|
|
|
|
|
+ PROCEDURE ^ PutPixel(x, y: LONGINT; drawColorMapIndex: LONGINT);
|
|
|
|
+ PROCEDURE ^ PutPixelSwapped(x, y: LONGINT; drawColorMapIndex: LONGINT);
|
|
PROCEDURE ^ DrawThinLine(x0, y0, x1, y1: Real);
|
|
PROCEDURE ^ DrawThinLine(x0, y0, x1, y1: Real);
|
|
PROCEDURE ^ DrawThickLine(x0, y0, x1, y1: Real);
|
|
PROCEDURE ^ DrawThickLine(x0, y0, x1, y1: Real);
|
|
END Canvas;
|
|
END Canvas;
|