----------------------------------------------------------------------
     -- Title       :  GrapAKD
     -- Version     :  1.0
     -- Copyright   :  (C) 1994 David Wallace Croft.  All rights reserved.
     -- Author      :  David Wallace Croft, CompuServe [76600,102]
     -- Compiler    :  Ada
     -- Description :  Graphics
     ----------------------------------------------------------------------

     with Common_Graphic_Types;  --AGUL
     with Draw;                  --AGUL
     with Graph_Init;            --AGUL
     with Screen;                --AGUL
     with Window;                --AGUL

     package GrapAKD is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------

     ----------------------------------------------------------------------
     -- package Common_Display_Types renamed
     ----------------------------------------------------------------------
--   subtype Byte is Common_Display_Types.Byte;
--   subtype Display_Page is Common_Display_Types.Display_Page;
--   ----------------------------------------------------------------------
--   subtype Color is Common_Display_Types.Color;
--   Black         : constant Color := Common_Display_Types.Black        ;
--   Blue          : constant Color := Common_Display_Types.Blue         ;
--   Green         : constant Color := Common_Display_Types.Green        ;
--   Cyan          : constant Color := Common_Display_Types.Cyan         ;
--   Red           : constant Color := Common_Display_Types.Red          ;
--   Magenta       : constant Color := Common_Display_Types.Magenta      ;
--   Brown         : constant Color := Common_Display_Types.Brown        ;
--   White         : constant Color := Common_Display_Types.White        ;
--   Grey          : constant Color := Common_Display_Types.Grey         ;
--   Light_Blue    : constant Color := Common_Display_Types.Light_Blue   ;
--   Light_Green   : constant Color := Common_Display_Types.Light_Green  ;
--   Light_Cyan    : constant Color := Common_Display_Types.Light_Cyan   ;
--   Light_Red     : constant Color := Common_Display_Types.Light_Red    ;
--   Light_Magenta : constant Color := Common_Display_Types.Light_Magenta;
--   Yellow        : constant Color := Common_Display_Types.Yellow       ;
--   Bright_White  : constant Color := Common_Display_Types.Bright_White ;
     ----------------------------------------------------------------------
--   subtype Graphic_Color is Common_Display_Types.Graphic_Color;
--   Background: constant Graphic_Color := Common_Display_Types.Background;
--   Color1    : constant Graphic_Color := Common_Display_Types.Color1    ;
--   Color2    : constant Graphic_Color := Common_Display_Types.Color2    ;
--   Color3    : constant Graphic_Color := Common_Display_Types.Color3    ;
--   ----------------------------------------------------------------------
--   -- package Video renamed
--   ----------------------------------------------------------------------
--   subtype Pixel_Value is Video.Pixel_Value;
--   subtype Video_Mode is Video.Video_Mode;
--   Text40_Co        : constant Video_Mode := Video.Text40_Co;
--   Graphic_High_EGA : constant Video_Mode := Video.Graphic_High_EGA;
--   Color_Extra_EGA  : constant Video_Mode := Video.Color_Extra_EGA;
--   ----------------------------------------------------------------------
--   procedure Get_Mode (
--     Width :    out Byte;
--     Mode  :    out Video_Mode;
--     Page  :    out Display_Page )
--     renames Video.Get_Mode;
--   procedure Set (
--     Mode : in    Video_Mode )
--     renames Video.Set;
--   procedure Write_Pixel (
--     Pixel_Color  :  Pixel_Value;
--     Pixel_Row    :  natural;
--     Pixel_Column :  natural )
--     renames Video.Write_Pixel;
--
     ----------------------------------------------------------------------
     --
     ----------------------------------------------------------------------

     ----------------------------------------------------------------------
     -- unique
     ----------------------------------------------------------------------
     procedure Demo;
     procedure Initiate (
       Desired_Video :  Video_System_Type := EGA_VGA_C16 )
       renames Graph_Init.Initiate_Graph;
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     end GrapAKD;