9 lines
323 B
Ada
9 lines
323 B
Ada
package Video.Rasters.Indexed with Pure is
|
|
|
|
type Index_1_Pixel is mod 2;
|
|
type Index_4_Pixel is mod 16;
|
|
|
|
type Index_1_Raster is array (Integer range <>, Integer range <>) of Index_1_Pixel with Pack;
|
|
type Index_4_Raster is array (Integer range <>, Integer range <>) of Index_4_Pixel with Pack;
|
|
|
|
end Video.Rasters.Indexed; |