diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-24 13:58:34 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-24 13:58:34 +1300 |
| commit | 508e2ca78bc531ace4e383b8ca501cc9997d4073 (patch) | |
| tree | a40a954b8056953ac51f438917218db0dd69668e /test/bitmap.adb | |
| parent | 7de2d7403340ba53fc108b84a5251bb162d5f90b (diff) | |
Fixed framerate bug in animated test, used Ada2022 aggregates in animated/arc tests, other slight test improvements
Diffstat (limited to 'test/bitmap.adb')
| -rw-r--r-- | test/bitmap.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/test/bitmap.adb b/test/bitmap.adb index af8ddfa..e6d5094 100644 --- a/test/bitmap.adb +++ b/test/bitmap.adb @@ -16,8 +16,7 @@ with use type - FLTK.Alignment, - FLTK.Widgets.Buttons.State; + FLTK.Alignment; function Bitmap @@ -35,6 +34,8 @@ is Sorceress_Height : constant Integer := 75; + -- It would be slightly more concise to write these numbers in base 10 here + -- but it is vastly easier to use copy/replace on the 0x syntax Sorceress_Bits : constant FLTK.Color_Component_Array := (16#fc#, 16#7e#, 16#40#, 16#20#, 16#90#, 16#00#, 16#07#, 16#80#, 16#23#, 16#00#, 16#00#, 16#c6#, 16#c1#, 16#41#, 16#98#, 16#b8#, 16#01#, 16#07#, 16#66#, 16#00#, 16#15#, 16#9f#, 16#03#, 16#47#, |