home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / MODULAV2GERMAN.DMS / in.adf / Def.zoo / GfxMacros.def < prev    next >
Encoding:
Modula Definition  |  1988-11-06  |  965 b   |  32 lines
  1. (* $N- *)
  2. DEFINITION MODULE GfxMacros;
  3.  
  4. FROM SYSTEM IMPORT
  5.  ADDRESS, BYTE;
  6. FROM Graphics IMPORT
  7.  BobPtr, RastPortPtr, UCopListPtr;
  8.  
  9. PROCEDURE InitAnimate(animKey:ADDRESS);
  10. PROCEDURE RemBob(bob:BobPtr);
  11. PROCEDURE RasSize(w, h:CARDINAL):CARDINAL;
  12. PROCEDURE OnDisplay;
  13. PROCEDURE OffDisplay;
  14. PROCEDURE OnSprite;
  15. PROCEDURE OffSprite;
  16. PROCEDURE OnVBlank;
  17. PROCEDURE OffVBlank;
  18. PROCEDURE SetOPen(rp:RastPortPtr; pen:CARDINAL);
  19. PROCEDURE SetDrPt(rp:RastPortPtr; pattern:CARDINAL);
  20. PROCEDURE SetWrMsk(rp:RastPortPtr; mask:BYTE);
  21. PROCEDURE SetAfPen(rp:RastPortPtr; 
  22.                    areaPattern:ADDRESS; size:CARDINAL);
  23. PROCEDURE BndryOff(rp:RastPortPtr);
  24. PROCEDURE CINIT(c:UCopListPtr; n:LONGINT);
  25. PROCEDURE CMOVE(c:UCopListPtr; a:ADDRESS; b:INTEGER);
  26. PROCEDURE CWAIT(c:UCopListPtr; a, b:INTEGER);
  27. PROCEDURE CEND(c:UCopListPtr; a, b:INTEGER);
  28. PROCEDURE DrawCircle(rp:RastPortPtr; cx, cy, r:INTEGER);
  29. PROCEDURE AreaCircle(rp:RastPortPtr; cx, cy, r:INTEGER);
  30.  
  31. END GfxMacros.
  32.