home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / modula / vdicontr.def < prev    next >
Encoding:
Modula Definition  |  1993-10-23  |  1.4 KB  |  59 lines
  1. DEFINITION MODULE VDIControls;
  2.  
  3.  
  4. FROM GEMVDIbase IMPORT VDIWorkInType, VDIWorkOutType, PxyArrayType;
  5.  
  6.  
  7.  
  8.  
  9. PROCEDURE OpenWorkstation (VAR WorkIn:  VDIWorkInType;
  10.                            VAR Handle:  INTEGER;
  11.                            VAR WorkOut: VDIWorkOutType);
  12.  
  13. (* loads a device driver, and initialises device with parameters passed *)
  14.  
  15.  
  16. PROCEDURE CloseWorkstation (Handle: INTEGER);
  17.  
  18. (* closes graphics device properly, and returns to alpha mode *)
  19.  
  20.  
  21. PROCEDURE OpenVirtualWorkstation (VAR WorkIn:  VDIWorkInType;
  22.                                   VAR Handle:  INTEGER;
  23.                                   VAR WorkOut: VDIWorkOutType);
  24.  
  25. (* open virtual screen workstation *)
  26.  
  27.  
  28. PROCEDURE CloseVirtualWorkstation (Handle: INTEGER);
  29.  
  30. (* close virtual device, preventing further output to it *)
  31.  
  32.  
  33. PROCEDURE ClearWorkstation (Handle: INTEGER);
  34.  
  35. (* clear workstation. Erases the screen *) 
  36.  
  37.  
  38. PROCEDURE UpdateWorkstation (Handle: INTEGER);
  39.  
  40. (* execute immediately all pending graphics commands *)
  41.  
  42.  
  43. PROCEDURE LoadFonts (Handle, Select: INTEGER): INTEGER;
  44.  
  45. (* loads fonts and makes them available *)
  46.  
  47.  
  48. PROCEDURE UnloadFonts (Handle, Select: INTEGER);
  49.  
  50. (* dissociates fonts and removes them from memory *)
  51.  
  52.  
  53. PROCEDURE SetClipping (Handle, ClipFlag: INTEGER;
  54.                        VAR PxyArray: PxyArrayType);
  55.  
  56. (* enable/disable clipping of all ouput by GEM VDI *)
  57.  
  58. END VDIControls.
  59.