diff options
| author | LLLL Colonq <llll@colonq> | 2024-04-17 22:45:19 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-04-17 22:45:19 -0400 |
| commit | 9d875ab8fb539246e3aea0aae58d2c9f227c8276 (patch) | |
| tree | ba14b76a69fa39ec5cdb614d76ff6fdd02c81e94 /fig-emulator-gb/src/Fig/Emulator/GB/Utils.hs | |
| parent | 3a0a7b0a89fd841edd5f25f79cdb877051d0e948 (diff) | |
Some basic emulator graphics
Diffstat (limited to 'fig-emulator-gb/src/Fig/Emulator/GB/Utils.hs')
| -rw-r--r-- | fig-emulator-gb/src/Fig/Emulator/GB/Utils.hs | 8 |
1 files changed, 8 insertions, 0 deletions
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 |