From 9d875ab8fb539246e3aea0aae58d2c9f227c8276 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Wed, 17 Apr 2024 22:45:19 -0400 Subject: Some basic emulator graphics --- fig-emulator-gb/src/Fig/Emulator/GB/Utils.hs | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'fig-emulator-gb/src/Fig/Emulator/GB/Utils.hs') diff --git a/fig-emulator-gb/src/Fig/Emulator/GB/Utils.hs b/fig-emulator-gb/src/Fig/Emulator/GB/Utils.hs index 694f2ea..4d00743 100644 --- a/fig-emulator-gb/src/Fig/Emulator/GB/Utils.hs +++ b/fig-emulator-gb/src/Fig/Emulator/GB/Utils.hs @@ -4,10 +4,18 @@ import Fig.Prelude import Prelude (fromIntegral) +import qualified Text.Printf as Pr + import Data.Word (Word8, Word16) import Data.Int (Int8) import Data.Bits +show8 :: Word8 -> Text +show8 = pack . Pr.printf "%02X" + +show16 :: Word8 -> Text +show16 = pack . Pr.printf "%04X" + w8w8 :: Word8 -> Word8 -> Word16 w8w8 high low = shiftL (fromIntegral high) 8 .|. fromIntegral low -- cgit v1.2.3