home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / misc_programming / AGUL / GRAPH_IN.ADS < prev    next >
Encoding:
Text File  |  1990-10-25  |  2.0 KB  |  39 lines

  1. --        ╔═════════════════════════════════════════════════════════════╗
  2. --        ║█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█║
  3. --        ║█                                                           █║
  4. --        ║█                 Meridian Software Systems                 █║
  5. --        ║█                                                           █║
  6. --        ║█                    Copyright (C)  1990                    █║
  7. --        ║█                                                           █║
  8. --        ║█                    ALL RIGHTS RESERVED                    █║
  9. --        ║█                                                           █║
  10. --        ║█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█║
  11. --        ╚═════════════════════════════════════════════════════════════╝
  12.  
  13. ------------------------------------------------------------------------------
  14. --
  15. --  Unit Name:  TestInit - package specification
  16. --
  17. --  Purpose of unit:  This package initializes and closes the Ada Graphics
  18. --                    Utility Library.  It must be called before any other
  19. --                    graphics procedure or function, but may only be called
  20. --                    once within an application program.  Initiate_Graph
  21. --                    procedure selects the video page 1 as the active screen
  22. --                    and erases it.  All windows and worlds are initialized
  23. --                    to the graphic screen coordinates.  This procedure will
  24. --                    also turn the graphics mode off and return the system 
  25. --                    to the text mode which was active before Initiate_Graph
  26. --                    was called.
  27. --
  28. ------------------------------------------------------------------------------
  29.  
  30. with COMMON_GRAPHIC_TYPES;
  31.  
  32. package GRAPH_INIT  is
  33.  
  34.   procedure CLOSE_GRAPH;
  35.   procedure DETECT_GRAPHIC_CARD;
  36.   procedure INITIATE_GRAPH (DESIRED_VIDEO: COMMON_GRAPHIC_TYPES.VIDEO_SYSTEM);
  37.  
  38. end GRAPH_INIT;
  39.