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

% bug in color conversion

This commit is contained in:
Vovanium 2023-08-02 15:21:10 +03:00
parent 88d027950f
commit da6903cf60
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-colors.adb
View File

@ -16,7 +16,7 @@ package body Video.Colors is
is (Color_Component (Value));
function To_1_Bit (Value : Color_Component) return Color_Component_1_Bit
is (Color_Component_4_Bit (Value / 2**7));
is (Color_Component_1_Bit (Value / 2**7));
function To_4_Bit (Value : Color_Component) return Color_Component_4_Bit
is (Color_Component_4_Bit (Value / 2**4));
@ -25,7 +25,7 @@ package body Video.Colors is
is (Color_Component_5_Bit (Value / 2**3));
function To_6_Bit (Value : Color_Component) return Color_Component_6_Bit
is (Color_Component_4_Bit (Value / 2**2));
is (Color_Component_6_Bit (Value / 2**2));
function To_8_Bit (Value : Color_Component) return Color_Component_8_Bit
is (Color_Component_8_Bit (Value));