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.Color;                     use Allegro.Color; 
  10.  
  11. package Palette_16 is 
  12.  
  13.     -- This is the standard 16-color palette used by Commander Keen 
  14.  
  15.     function Black         return Allegro_Color; 
  16.     function Blue          return Allegro_Color; 
  17.     function Green         return Allegro_Color; 
  18.     function Cyan          return Allegro_Color; 
  19.     function Red           return Allegro_Color; 
  20.     function Magenta       return Allegro_Color; 
  21.     function Brown         return Allegro_Color; 
  22.     function Grey          return Allegro_Color; 
  23.     function Dark_Grey     return Allegro_Color; 
  24.     function Light_Blue    return Allegro_Color; 
  25.     function Light_Green   return Allegro_Color; 
  26.     function Light_Cyan    return Allegro_Color; 
  27.     function Light_Red     return Allegro_Color; 
  28.     function Light_Magenta return Allegro_Color; 
  29.     function Yellow        return Allegro_Color; 
  30.     function White         return Allegro_Color; 
  31.  
  32. end Palette_16;