← All compilation units

Flyology_TUI.Colors

Description

ANSI_Color

type ANSI_Color is
  (Black,
   Red,
   Green,
   Yellow,
   Blue,
   Magenta,
   Cyan,
   White,
   …,
   Bright_White);
Enumeration literals
Black
Red
Green
Yellow
Blue
Magenta
Cyan
White
Bright_Black
Bright_Red
Bright_Green
Bright_Yellow
Bright_Blue
Bright_Magenta
Bright_Cyan
Bright_White

Basic

function Basic (Name : ANSI_Color) return Color
Parameters
Name
Return value

Channel

subtype Channel is Natural range 0 .. 255;

Color

type Color (Kind : Color_Kind := Default_Color) is record
   case Kind is
      when Default_Color =>
         null;
      when ANSI =>
         Name : ANSI_Color := White;
      when Indexed =>
         Index : Channel := 0;
      when RGB =>
         Red_Value   : Channel := 0;
         Green_Value : Channel := 0;
         Blue_Value  : Channel := 0;
   end case;
end record;
Record fields
Kind
Name
Index
Red_Value
Green_Value
Blue_Value

Color_Kind

type Color_Kind is (Default_Color, ANSI, Indexed, RGB);
Enumeration literals
Default_Color
ANSI
Indexed
RGB

Default

Default : constant Color := (Kind => Default_Color);

Palette

function Palette (Index : Channel) return Color
Parameters
Index
Return value

True_Color

function True_Color
  (Red, Green, Blue : Channel) return Color
Parameters
Red
Green
Blue
Return value