home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d418 / moduladefs.lha / ModulaDefs / Graphic.DEF < prev    next >
Encoding:
Modula Definition  |  1990-12-18  |  1.1 KB  |  32 lines
  1. (*******************************************
  2.  *  Name : Graphic.DEF                     *
  3.  *  Author : JSG                           *
  4.  * Purpose : graphic library drawing       *
  5.  *            functions                    *
  6.  *******************************************)
  7.  
  8. DEFINITION MODULE Graphic;
  9.  
  10. FROM SYSTEM IMPORT ADDRESS;
  11.  
  12. PROCEDURE Draw(rP:ADDRESS; x,y : LONGINT);
  13. PROCEDURE Move(rP:ADDRESS; x,y : LONGINT);
  14. PROCEDURE Text(rP:ADDRESS; VAR st : ARRAY OF CHAR;len : LONGINT);
  15. PROCEDURE SetAPen(rP:ADDRESS;fg : LONGINT);
  16. PROCEDURE SetBPen(rP:ADDRESS;bg : LONGINT);
  17. PROCEDURE SetRast(rP:ADDRESS;bg : LONGINT);
  18. PROCEDURE RectFill(rP:ADDRESS;xmin,ymin,xmax,ymax : LONGINT);
  19. PROCEDURE WritePixel(rP:ADDRESS; x,y : LONGINT);
  20. PROCEDURE Flood(rP:ADDRESS; fm,x,y : LONGINT);
  21. PROCEDURE SetRGB4(vP:ADDRESS; n,ri,gi,bi : LONGINT);
  22. PROCEDURE DrawEllipse(rP:ADDRESS;cx,cy,a,b:LONGINT);
  23. PROCEDURE AreaEllipse(rP:ADDRESS;cx,cy,a,b:LONGINT);
  24. PROCEDURE InitArea(ai,buff:ADDRESS;maxv:LONGINT);
  25. PROCEDURE AreaMove(rP:ADDRESS;x,y:LONGINT):LONGINT;
  26. PROCEDURE AreaDraw(rP:ADDRESS;x,y:LONGINT):LONGINT;
  27. PROCEDURE AreaEnd(rP:ADDRESS);
  28.  
  29.  
  30. END Graphic.
  31.  
  32.