mkMessages :: Point -> [String] -> [Sprite]
mkMessages (offx, offy) = map toSprite . enumerate
    where
        toSprite (i, s) = MessageSprite (offx, i + offy) s (SpriteAttr white black)
mkMessages :: Point -> [String] -> [Sprite]
mkMessages (offx, offy) = map toSprite . enumerate
    where
        toSprite (i, s) = MessageSprite (offx, i + offy) s (SpriteAttr white black)
mkMessages (offx, offy) = map toSprite . enumerate
    where
        toSprite (i, s) = MessageSprite (offx, i + offy) s (SpriteAttr white black)