Vovanium
/
Video_library
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* type adjustment

This commit is contained in:
Vovanium 2023-08-01 22:31:13 +03:00
parent f199711eee
commit 10e13cf629
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
source/base/video-images-raster-indexed-generic_unbounded.ads
View File

@ -34,8 +34,8 @@ package Video.Images.Raster.Indexed.Generic_Unbounded is
overriding function Pixel_Index (
Source : Image;
A : Point)
return Natural
is (Integer (Pixel_Type'(Source.Pixel (A))));
return Color_Index
is (Color_Index (Pixel_Type'(Source.Pixel (A))));
end Images_with_Color_Map;