6.6.1 Example: Pixel Type - JulTob/Ada GitHub Wiki
--Pixel de colores luz on/off--------------------------
type Color is (Red, Blue, Green);
type Pixel_Type is Color of Boolean;
--------------------Ejemplo de uso
On : constant Boolean :=True;
Off : constant Boolean :=False;
Pixel : Pixel_Type :=(others=>OFF);
Pixel(Green):=On;
Pixel:=(On,On,Off); --Es lo mismo que
Pixel:=(Green=>Off
, Red=>ON
,Blue=>ON);
Pixel:=(Red..Green=>Off); --All off range
Pixel:=
if Pixel(Red) then; -- Si el rojo de pixel=ON