home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / BasicGfx.def < prev    next >
Text File  |  1994-05-25  |  2KB  |  68 lines
  1. |##########|
  2. |#MAGIC   #|CLABLMGJ
  3. |#PROJECT #|"IMPORTALL"
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|-x---x--x----xx-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x----x----------
  9. |##########|
  10. DEFINITION MODULE BasicGfx;
  11.  
  12. IMPORT Graphics;
  13. IMPORT Intuition;
  14. IMPORT GfxInput;
  15.  
  16. TYPE
  17.   FontPtr   = POINTER TO Font;
  18.   Font      = RECORD
  19.                 font  : Graphics.TextFontPtr;
  20.                 prev,
  21.                 next  : FontPtr;
  22.               END;
  23.  
  24.   ShapePtr  = POINTER TO Shape;
  25.   Shape     = RECORD
  26.                 map   : Graphics.BitMap;
  27.                 width : INTEGER;
  28.                 prev,
  29.                 next  : ShapePtr;
  30.               END;
  31.  
  32.   ScreenPtr = POINTER TO Screen;
  33.   Screen    = RECORD
  34.                 rastPort : Graphics.RastPortPtr;
  35.                 window   : Intuition.WindowPtr;
  36.                 screen   : Intuition.ScreenPtr;
  37.                 areaInfo : Graphics.AreaInfo;
  38.                 tmpRas   : Graphics.TmpRas;
  39.                 buffer   : ARRAY [0..99] OF INTEGER;
  40.                 font     : FontPtr;
  41.                 lastKey  : GfxInput.KeyTypes;
  42.                 lastCode : CHAR;
  43.                 lastX,
  44.                 lastY    : INTEGER;
  45.                 lastClick: BOOLEAN;
  46.                 lastTime : ARRAY [0..1] OF LONGCARD;
  47.                 mouseDown: BOOLEAN;
  48.                 prev,
  49.                 next     : ScreenPtr;
  50.               END;
  51.  
  52. PROCEDURE OpenScreen(depth  : INTEGER;hires,lace   : BOOLEAN):ScreenPtr;
  53.  
  54. PROCEDURE CloseScreen(screen : ScreenPtr);
  55.  
  56.  
  57. PROCEDURE OpenFont(REF name : STRING;height : INTEGER):FontPtr;
  58.  
  59. PROCEDURE CloseFont(font : FontPtr);
  60.  
  61.  
  62. PROCEDURE AllocShape(width,height,depth : INTEGER):ShapePtr;
  63.  
  64. PROCEDURE DisposeShape(shape : ShapePtr);
  65.  
  66. END BasicGfx.
  67.  
  68.