diff options
Diffstat (limited to 'src/Chelleport/Draw.hs')
| -rw-r--r-- | src/Chelleport/Draw.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/Chelleport/Draw.hs b/src/Chelleport/Draw.hs index 2d3a77c..1fa8b31 100644 --- a/src/Chelleport/Draw.hs +++ b/src/Chelleport/Draw.hs @@ -33,7 +33,7 @@ instance (MonadIO m) => MonadDraw (AppM m) where let rect = SDL.Rectangle (SDL.P $ SDL.V2 x y) (SDL.V2 w h) SDL.fillRect renderer (Just rect) - drawText (x, y) (TextStyle {textColor, textSize}) text = do + drawText (x, y) (TextStyle {textColor, textSize, textAlign}) text = do DrawContext {ctxRenderer = renderer, ctxFontSmall, ctxFontLarge} <- ask let font = case textSize of FontSM -> ctxFontSmall @@ -47,9 +47,13 @@ instance (MonadIO m) => MonadDraw (AppM m) where let textWidth = SDL.textureWidth textureInfo let textHeight = SDL.textureHeight textureInfo + let (left, top) = case textAlign of + AlignLeft -> (x, y) + AlignCenter -> (x - textWidth `div` 2, y) + -- Render the texture SDL.copy renderer texture Nothing $ - Just (SDL.Rectangle (SDL.P $ SDL.V2 x y) (SDL.V2 textWidth textHeight)) + Just (SDL.Rectangle (SDL.P $ SDL.V2 left top) (SDL.V2 textWidth textHeight)) SDL.destroyTexture texture pure (textWidth, textHeight) |