diff --git a/assets/haskelloid.svg b/assets/haskelloid.svg index e03949b..33da05d 100644 --- a/assets/haskelloid.svg +++ b/assets/haskelloid.svg @@ -1,16 +1,80 @@ - - - - - - - - - - - - - - - - \ No newline at end of file + + + + + + image/svg+xml + + + + + + + + + + + + + + + diff --git a/src/Main.hs b/src/Main.hs index ead72a6..4a1e68b 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -10,7 +10,7 @@ import qualified Data.Map as M import Linear as L -import NanoVG hiding (V2(..)) +import NanoVG hiding (V2(..), V4(..)) import Control.Monad.IO.Class (liftIO) @@ -29,7 +29,8 @@ main = do , windowTitle = "Haskelloids" , windowConfig = SDL.defaultWindow { SDL.windowOpenGL = Just SDL.defaultOpenGL - { SDL.glProfile = SDL.Core SDL.Normal 3 3 + { SDL.glProfile = SDL.Core SDL.Normal 3 3 + , SDL.glColorPrecision = V4 8 8 8 8 } } , initScreenMode = SDL.Windowed