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