home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Fish 1
/
GoldFishApril1994_CD2.img
/
d4xx
/
d418
/
moduladefs
/
graphic.def
< prev
next >
Wrap
Text File
|
1990-12-17
|
1KB
|
32 lines
(*******************************************
* 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.