Fix pices scaling issue

tgass · Jun 21, 2020 · cd9114f · cd9114f
1 parent eb66db1
commit cd9114f
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/Macbeth/Wx/Game/Board.hs b/src/Macbeth/Wx/Game/Board.hs
@@ -73,9 +73,10 @@ drawPieces = do
   liftIO $ sequence_ $ drawPiece dc state <$> virtualPosition state
   where
     drawPiece :: DC a -> BoardState -> (Square, Piece) -> IO ()
-    drawPiece dc state (sq, piece) = drawBitmap dc
-      (pieceToBitmap (runtimeEnv state) (pieceSet $ boardConfig state) piece (pieceImgSize state))
-      (toPos' (squareSizePx state) sq (perspective state)) True []
+    drawPiece dc state (sq, piece) = do
+      let b = pieceToBitmap (runtimeEnv state) (pieceSet $ boardConfig state) piece (pieceImgSize state)
+      bitmapSetSize b $ Size (squareSizePx state) (squareSizePx state)
+      drawBitmap dc b (toPos' (squareSizePx state) sq (perspective state)) True []
 
 
 drawSelectedSquare :: BoardT a