nek0/haskelloids
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

fixing error

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Commons.hs
View file

@ -116,6 +116,6 @@ drawSpinner ctx x y cr ct = do
drawHaskelloid :: Haskelloid -> Affection UserData () drawHaskelloid :: Haskelloid -> Affection UserData ()
drawHaskelloid (Haskelloid pos _ rot _ d img) = do drawHaskelloid (Haskelloid pos _ rot _ d img) = do
ctx <- nano <$> getAffection 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 where
dim = fmap (/ fromIntegral d) (V2 100 100) dim = fmap (/ fromIntegral d) (V2 100 100)

2
src/InGame.hs
View file

@ -238,7 +238,7 @@ drawWonLost wl = do
drawShip :: Ship -> Affection UserData () drawShip :: Ship -> Affection UserData ()
drawShip Ship{..} = do drawShip Ship{..} = do
ctx <- nano <$> getAffection 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 where
dim = V2 40 40 dim = V2 40 40