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