1. -- 
  2. -- Copyright (c) 2012 Kevin Wellwood 
  3. -- All rights reserved. 
  4. -- 
  5. -- This source code is distributed under the Modified BSD License. For terms and 
  6. -- conditions, see license.txt. 
  7. -- 
  8.  
  9. with Allegro.Truecolor;                 use Allegro.Truecolor; 
  10.  
  11. package Palette_16 is 
  12.  
  13.     -- This is the standard 16-color palette used by Commander Keen 
  14.  
  15.     function Black         return Color_Type; 
  16.     function Blue          return Color_Type; 
  17.     function Green         return Color_Type; 
  18.     function Cyan          return Color_Type; 
  19.     function Red           return Color_Type; 
  20.     function Magenta       return Color_Type; 
  21.     function Brown         return Color_Type; 
  22.     function Grey          return Color_Type; 
  23.     function Dark_Grey     return Color_Type; 
  24.     function Light_Blue    return Color_Type; 
  25.     function Light_Green   return Color_Type; 
  26.     function Light_Cyan    return Color_Type; 
  27.     function Light_Red     return Color_Type; 
  28.     function Light_Magenta return Color_Type; 
  29.     function Yellow        return Color_Type; 
  30.     function White         return Color_Type; 
  31.  
  32. end Palette_16;