diff --git a/src/Commons.hs b/src/Commons.hs index 937b051..98a0e31 100644 --- a/src/Commons.hs +++ b/src/Commons.hs @@ -116,6 +116,6 @@ drawSpinner ctx x y cr ct = do drawHaskelloid :: Haskelloid -> Affection UserData () drawHaskelloid (Haskelloid pos _ rot _ d img) = do ctx <- nano <$> getAffection - liftIO $ drawImage ctx img (pos - fmap (/2) dim) dim rot 255 + liftIO $ drawImage ctx img (pos - fmap (/2) dim) dim rot 1 where dim = fmap (/ fromIntegral d) (V2 100 100) diff --git a/src/InGame.hs b/src/InGame.hs index ac9dacd..3d315b3 100644 --- a/src/InGame.hs +++ b/src/InGame.hs @@ -238,7 +238,7 @@ drawWonLost wl = do drawShip :: Ship -> Affection UserData () drawShip Ship{..} = do ctx <- nano <$> getAffection - liftIO $ drawImage ctx sImg (sPos - fmap (/2) dim) dim sRot 255 + liftIO $ drawImage ctx sImg (sPos - fmap (/2) dim) dim sRot 1 where dim = V2 40 40