home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / M2V11-1.LHA / modula / amiga / Graphics.mod < prev    next >
Encoding:
Modula Implementation  |  1993-11-22  |  503 b   |  23 lines
  1. (* @B- @P- *)
  2. IMPLEMENTATION MODULE Graphics ;
  3.  
  4. IMPORT SYSTEM, M2Lib, Hardware, Graphics ;
  5.  
  6. TYPE
  7.   AdrPtr = POINTER TO SYSTEM.ADDRESS ;
  8.  
  9. PROCEDURE InitAnimate( animKey : AdrPtr ) ;
  10. BEGIN animKey^ := NIL
  11. END InitAnimate ;
  12.  
  13. PROCEDURE RASSIZE( w , h : CARDINAL ) : CARDINAL ;
  14. BEGIN RETURN h*CARDINAL( SYSTEM.BITSET((w+15)/8) * {1..15})
  15. END RASSIZE ;
  16.  
  17. PROCEDURE RemBob( b : BobPtr ) ;
  18. BEGIN b^.Flags := b^.Flags+BOBSAWAY ;
  19. END RemBob ;
  20.  
  21. BEGIN GfxBase := M2Lib.OpenLib( GRAPHICSNAME, VERSION )
  22. END Graphics.
  23.