{-# OPTIONS_HADDOCK hide #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Imj.Graphics.Animation.Chars
( niceChar
, Word8
) where
import Imj.Prelude
import Data.Word(Word8)
niceChar :: Word8
-> Char
niceChar i'
| i == 0 = '$'
| i == 1 = '?'
| i == 2 = 'd'
| i == 3 = 'R'
| i == 4 = 'O'
| i == 5 = 'o'
| i == 6 = '^'
| i == 7 = 'à'
| i == 8 = '{'
| i == 9 = '['
| i == 10 = '|'
| i == 11 = '!'
| i == 12 = ':'
| i == 13 = '¨'
| i == 14 = '`'
| i == 15 = '&'
| i == 16 = '#'
| i == 17 = '@'
| i == 18 = '='
| i == 19 = '\\'
| i == 20 = '/'
| i == 21 = '*'
| otherwise = error $ "logic error in niceChar " ++ show i'
where
end = 22
i = abs $ i' `mod` end