home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / misc_programming / AGUL / COMMON_G.ADS < prev    next >
Encoding:
Text File  |  1990-10-25  |  7.7 KB  |  190 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 :  Common_Graphic_Types - package specification
  16. --
  17. --  Purpose of unit:  This package defines the common, global, variables
  18. --                    for the Ada Graphics Utility Library.
  19. --
  20. --────────────────────────────────────────────────────────────────────────────
  21.  
  22. with COMMON_DISPLAY_TYPES, DISK_TYPES, DIRECTORY, ERRORS, VIDEO, BOX;
  23. use  COMMON_DISPLAY_TYPES;
  24.  
  25. package COMMON_GRAPHIC_TYPES is
  26.  
  27.   --╔══════════════════════════════════════════════════════════════════════════╗
  28.  
  29.   --  Ada Graphics Utility Library Global Types
  30.  
  31.   type VIDEO_SYSTEM is (
  32.     CGA_TEXT40_BW,
  33.     CGA_TEXT40_COLOR,
  34.     CGA_TEXT80_BW,
  35.     CGA_TEXT80_COLOR,
  36.     CGA_LOW_C4,
  37.     CGA_LOW_GREY4,
  38.     CGA_HIGH_C2,
  39.     MDA_EVGA_TEXT80_BW,
  40.     PCJR_LOW_C16,
  41.     PCJR_MED_C16,
  42.     PCJR_HIGH_C4,
  43.     EGA_RESERVED_1,
  44.     EGA_RESERVED_2,
  45.     EVGA_LOW_C16,
  46.     EVGA_MED_C16,
  47.     EVGA_HIGH_BW,
  48.     EVGA_HIGH_C16,
  49.     MCVGA_HIGH_C2,
  50.     VGA_HIGH_C16,
  51.     MCVGA_LOW_C256,
  52.     DEFAULT
  53.     );
  54.  
  55.   subtype AGUL_MEMORY_LOCATION is long_integer;
  56.   subtype HORIZONTAL           is integer range 0 .. 639;
  57.   subtype VERTICAL             is integer range 0 .. 479;
  58.   subtype CHAR_HORIZ           is integer range 0 ..  79;
  59.   subtype CHAR_VERT            is integer range 0 ..  53;
  60.   subtype DISPLAY_PAGE         is integer range 0 ..   1;
  61.   subtype INDEX_NUMBER         is integer range 0 ..   8;
  62.   subtype CHAR_PIXEL_SIZE      is integer range 8 ..  16;
  63.  
  64.   --╚══════════════════════════════════════════════════════════════════════════╝
  65.  
  66.   --╔══════════════════════════════════════════════════════════════════════════╗
  67.  
  68.   --  Video System Global Variables
  69.  
  70.   ASPECT_RATIO                   : float;
  71.   SCREEN_WORLD_RATIO_X           : float;
  72.   SCREEN_WORLD_RATIO_Y           : float;
  73.   GRAPH_SCREEN                   : integer;
  74.   CURRENT_VIDEO_PAGE             : integer := 0;
  75.   SCREEN_FLAG                    : boolean;
  76.   ACTIVE_PAGE                    : DISPLAY_PAGE;
  77.   CURRENT_PAGE                   : DISPLAY_PAGE;
  78.   TEXT_SCREEN                    : VIDEO_SYSTEM;
  79.   CHARACTER_PIXEL_WIDTH          : CHAR_PIXEL_SIZE;
  80.   CHARACTER_PIXEL_HEIGHT         : CHAR_PIXEL_SIZE;
  81.  
  82.   SCREEN_DIMENSION_UPPER_LEFT_X  : constant integer := 0;
  83.   SCREEN_DIMENSION_UPPER_LEFT_Y  : constant integer := 0;
  84.   SCREEN_DIMENSION_LOWER_RIGHT_X : HORIZONTAL;
  85.   SCREEN_DIMENSION_LOWER_RIGHT_Y : VERTICAL;
  86.  
  87.   PAGE1_MEMORY_START             : AGUL_MEMORY_LOCATION;
  88.   PAGE1_MEMORY_END               : AGUL_MEMORY_LOCATION;
  89.  
  90.   PAGE2_MEMORY_START             : AGUL_MEMORY_LOCATION;
  91.   PAGE2_MEMORY_END               : AGUL_MEMORY_LOCATION;
  92.  
  93.   --╚══════════════════════════════════════════════════════════════════════════╝
  94.  
  95.   --╔══════════════════════════════════════════════════════════════════════════╗
  96.  
  97.   --  World Global Variables
  98.  
  99.   CURRENT_WORLD_LEFT_X        : constant integer := 0;
  100.   CURRENT_WORLD_LEFT_Y        : constant integer := 0;
  101.   CURRENT_WORLD_LOWER_RIGHT_X : natural;
  102.   CURRENT_WORLD_LOWER_RIGHT_Y : natural;
  103.  
  104.   CURRENT_WORLD_INDEX_NO      : INDEX_NUMBER;
  105.  
  106.   --╚══════════════════════════════════════════════════════════════════════════╝
  107.  
  108.   --╔══════════════════════════════════════════════════════════════════════════╗
  109.  
  110.   --  Window Global Variables
  111.  
  112.   CURRENT_WINDOW_UPPER_LEFT_X  : HORIZONTAL;
  113.   CURRENT_WINDOW_UPPER_LEFT_Y  : VERTICAL;
  114.   CURRENT_WINDOW_LOWER_RIGHT_X : HORIZONTAL;
  115.   CURRENT_WINDOW_LOWER_RIGHT_Y : VERTICAL;
  116.  
  117.   CURRENT_WINDOW_INDEX_NO      : INDEX_NUMBER;
  118.   CLIP_ENABLE                  : boolean;   
  119.   WINDOW_FORE_COLOR            : COMMON_DISPLAY_TYPES.COLOR;
  120.   WINDOW_BACK_COLOR            : COMMON_DISPLAY_TYPES.BACKGROUND_COLOR;
  121.  
  122.   --╚══════════════════════════════════════════════════════════════════════════╝
  123.  
  124.   --╔══════════════════════════════════════════════════════════════════════════╗
  125.  
  126.   --  Disk Global Variables
  127.  
  128.   CURRENT_DISK_DRIVE               : DISK_TYPES.DRIVE_ID;
  129.   CURRENT_DISK_DIRECTORY           : DIRECTORY.PATHNAME;
  130.   CURRENT_DISK_DIRECTORY_LAST_CHAR : natural;
  131.  
  132.   --╚══════════════════════════════════════════════════════════════════════════╝
  133.  
  134.   --╔══════════════════════════════════════════════════════════════════════════╗
  135.  
  136.   --  Miscellanous Global Variables
  137.  
  138.   FORE_COLOR        : COMMON_DISPLAY_TYPES.COLOR;
  139.   BACK_COLOR        : COMMON_DISPLAY_TYPES.BACKGROUND_COLOR;
  140.  
  141.   ERROR_CODE        : ERRORS.EXTENDED_ERRORS;
  142.  
  143.  
  144.   --╚══════════════════════════════════════════════════════════════════════════╝
  145.  
  146.   --╔══════════════════════════════════════════════════════════════════════════╗
  147.  
  148.   --  Discard the following declarations after system testing
  149.   --  These variables are used for the integration testing programs
  150.  
  151.   ULR                      : COMMON_DISPLAY_TYPES.ROW_RANGE;
  152.   ULC                      : COMMON_DISPLAY_TYPES.COLUMN_RANGE;
  153.   LRR                      : COMMON_DISPLAY_TYPES.ROW_RANGE;
  154.   LRC                      : COMMON_DISPLAY_TYPES.COLUMN_RANGE;
  155.  
  156.   NON_BLINK                :    boolean := false;
  157.   BLINK                    :    boolean := true;
  158.   BLUE_BOX                 :    COMMON_DISPLAY_TYPES.DISPLAY_ATTRIBUTE :=  
  159.                   (FOREGROUND => BRIGHT_WHITE,
  160.                    BACKGROUND => BLUE,
  161.                    BLINK      => false);
  162.  
  163.   CYAN_BOX                 :    COMMON_DISPLAY_TYPES.DISPLAY_ATTRIBUTE :=  
  164.                   (FOREGROUND => BLUE,
  165.                    BACKGROUND => CYAN,
  166.                    BLINK      => false);
  167.  
  168.   GREEN_BOX                :    COMMON_DISPLAY_TYPES.DISPLAY_ATTRIBUTE :=  
  169.                   (FOREGROUND => YELLOW,
  170.                    BACKGROUND => GREEN,
  171.                    BLINK      => false);
  172.  
  173.   NORM_FC      : COMMON_DISPLAY_TYPES.COLOR := YELLOW;        -- Normal Foreground Color
  174.   NORM_BC      : COMMON_DISPLAY_TYPES.COLOR := BLUE;          -- Normal Background Color
  175.   ENTRY_FC     : COMMON_DISPLAY_TYPES.COLOR := BLACK;         -- Function Entry Foreground Color
  176.   ENTRY_BC     : COMMON_DISPLAY_TYPES.COLOR := CYAN;          -- Function Entry Background Color
  177.   HELP_FC      : COMMON_DISPLAY_TYPES.COLOR := BLACK;         -- Information Foreground Color
  178.   HELP_BC      : COMMON_DISPLAY_TYPES.COLOR := GREEN;         -- Information Background Color
  179.   HIGHLIGHT_FC : COMMON_DISPLAY_TYPES.COLOR := YELLOW;        -- HighLight Foreground Color
  180.   HIGHLIGHT_BC : COMMON_DISPLAY_TYPES.COLOR := CYAN;          -- HighLight Background Color
  181.   LOWLIGHT_BC  : COMMON_DISPLAY_TYPES.COLOR := BLUE;          -- LowLight Background Color
  182.   COL_FC       : COMMON_DISPLAY_TYPES.COLOR := BRIGHT_WHITE;  -- Column Select Foreground Color
  183.   COL_BC       : COMMON_DISPLAY_TYPES.COLOR := GREEN;         -- Column Select Background Color
  184.   ERROR_FC     : COMMON_DISPLAY_TYPES.COLOR := RED;           -- Error Foreground Color
  185.   ERROR_BC     : COMMON_DISPLAY_TYPES.COLOR := BLUE;          -- Error Background Color
  186.  
  187.   --╚══════════════════════════════════════════════════════════════════════════╝
  188.  
  189. end COMMON_GRAPHIC_TYPES;
  190.