type Base_Color is ( Black, White, Transparent, Magenta, Butter1, Butter2, Butter3, Orange1, Orange2, Orange3, Chocolate1, Chocolate2, Chocolate3, Chameleon1, Chameleon2, Chameleon3, Skyblue1, Skyblue2, Skyblue3, Plum1, Plum2, Plum3, Scarlet1, Scarlet2, Scarlet3, Chrome1, Chrome2, Chrome3, Chrome4, Chrome5, Chrome6 );
type Base_Colors_Array is array(Base_Color) of Color_Type;
base_colors : Base_Colors_Array;
procedure Initialize;