home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / M2V11-1.LHA / modula / amiga / GfxMacros.def < prev    next >
Encoding:
Modula Definition  |  1993-11-03  |  1.4 KB  |  40 lines
  1. DEFINITION MODULE GfxMacros ;
  2.  
  3. FROM SYSTEM    IMPORT ADDRESS, SHORTSET ;
  4. FROM Graphics    IMPORT RastPortPtr, UCopListPtr ;
  5.  
  6. (* RASSIZE,InitAnimate & RemBob are in declared in module Graphics *)
  7.  
  8. PROCEDURE ON_DISPLAY  ;
  9. PROCEDURE OFF_DISPLAY ;
  10. PROCEDURE ON_SPRITE   ;
  11. PROCEDURE OFF_SPRITE  ;
  12. PROCEDURE ON_VBLANK   ;
  13. PROCEDURE OFF_VBLANK  ;
  14.  
  15. PROCEDURE SetDrPt ( w : RastPortPtr ; p : CARDINAL ) ;
  16. PROCEDURE SetAfPt ( w : RastPortPtr ; p : ADDRESS ; n : SHORTINT ) ;
  17. PROCEDURE SetOPen ( w : RastPortPtr ; c : SHORTINT ) ;
  18. PROCEDURE SetWrMsk( w : RastPortPtr ; m : SHORTSET ) ;
  19.  
  20. (* the SafeSetxxx macros are backwards (pre V39 graphics) compatible versions *)
  21. (* using these macros will make your code do the right thing under V39 AND V37*)
  22.  
  23. PROCEDURE SafeSetOutlinePen( w : RastPortPtr ; c : SHORTINT ) ;
  24. PROCEDURE SafeSetWriteMask ( w : RastPortPtr ; m : SHORTSET ) ;
  25.  
  26. (* synonym for GetOPen for consistency with SetOutlinePen *)
  27. PROCEDURE GetOPen( rp : RastPortPtr ) : LONGINT ;
  28.  
  29. PROCEDURE BNDRYOFF( w : RastPortPtr ) ;
  30.  
  31. PROCEDURE CINIT( c : UCopListPtr ; n : LONGINT ) : UCopListPtr ;
  32. PROCEDURE CMOVE( c : UCopListPtr ; a : ADDRESS ; b : LONGINT ) ;
  33. PROCEDURE CWAIT( c : UCopListPtr ; a, b : LONGINT ) ;
  34. PROCEDURE CEND ( c : UCopListPtr ) ;
  35.  
  36. PROCEDURE DrawCircle( rp : RastPortPtr ; cx, cy, r : LONGINT ) ;
  37. PROCEDURE AreaCircle( rp : RastPortPtr ; cx, cy, r : LONGINT ) : LONGINT ;
  38.  
  39. END GfxMacros.
  40.