(*******************************************
 *  Name : Graphic.DEF                     *
 *  Author : JSG                           *
 * Purpose : graphic library drawing       *
 *            functions                    *
 *******************************************)

DEFINITION MODULE Graphic;

FROM SYSTEM IMPORT ADDRESS;

PROCEDURE Draw(rP:ADDRESS; x,y : LONGINT);
PROCEDURE Move(rP:ADDRESS; x,y : LONGINT);
PROCEDURE Text(rP:ADDRESS; VAR st : ARRAY OF CHAR;len : LONGINT);
PROCEDURE SetAPen(rP:ADDRESS;fg : LONGINT);
PROCEDURE SetBPen(rP:ADDRESS;bg : LONGINT);
PROCEDURE SetRast(rP:ADDRESS;bg : LONGINT);
PROCEDURE RectFill(rP:ADDRESS;xmin,ymin,xmax,ymax : LONGINT);
PROCEDURE WritePixel(rP:ADDRESS; x,y : LONGINT);
PROCEDURE Flood(rP:ADDRESS; fm,x,y : LONGINT);
PROCEDURE SetRGB4(vP:ADDRESS; n,ri,gi,bi : LONGINT);
PROCEDURE DrawEllipse(rP:ADDRESS;cx,cy,a,b:LONGINT);
PROCEDURE AreaEllipse(rP:ADDRESS;cx,cy,a,b:LONGINT);
PROCEDURE InitArea(ai,buff:ADDRESS;maxv:LONGINT);
PROCEDURE AreaMove(rP:ADDRESS;x,y:LONGINT):LONGINT;
PROCEDURE AreaDraw(rP:ADDRESS;x,y:LONGINT):LONGINT;
PROCEDURE AreaEnd(rP:ADDRESS);


END Graphic.