fixing error

This commit is contained in:
nek0 2018-01-08 22:26:31 +01:00
parent eca9b1c629
commit e99014f8f9
2 changed files with 2 additions and 2 deletions

View file

@ -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)

View file

@ -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