Allow specifying wanted multisample samples for OpenGL contexts

Author: polarina

src/SDL/Video.hs

@@ -124,7 +124,7 @@ createWindow title config = liftIO $ do
       , if isJust $ windowOpenGL config then Raw.SDL_WINDOW_OPENGL else 0
       , if windowResizable config then Raw.SDL_WINDOW_RESIZABLE else 0
       ]
-    setGLAttributes (OpenGLConfig (V4 r g b a) d s p) = do
+    setGLAttributes (OpenGLConfig (V4 r g b a) d s ms p) = do
       let (msk, v0, v1, flg) = case p of
             Core Debug v0' v1' -> (Raw.SDL_GL_CONTEXT_PROFILE_CORE, v0', v1', Raw.SDL_GL_CONTEXT_DEBUG_FLAG)
             Core Normal v0' v1' -> (Raw.SDL_GL_CONTEXT_PROFILE_CORE, v0', v1', 0)
@@ -139,6 +139,8 @@ createWindow title config = liftIO $ do
         , (Raw.SDL_GL_ALPHA_SIZE, a)
         , (Raw.SDL_GL_DEPTH_SIZE, d)
         , (Raw.SDL_GL_STENCIL_SIZE, s)
+        , (Raw.SDL_GL_MULTISAMPLEBUFFERS, if ms > 1 then 1 else 0)
+        , (Raw.SDL_GL_MULTISAMPLESAMPLES, if ms > 1 then ms else 0)
         , (Raw.SDL_GL_CONTEXT_PROFILE_MASK, msk)
         , (Raw.SDL_GL_CONTEXT_MAJOR_VERSION, v0)
         , (Raw.SDL_GL_CONTEXT_MINOR_VERSION, v1)

src/SDL/Video/OpenGL.hs

@@ -53,6 +53,7 @@ import Control.Applicative
 --   { 'glColorPrecision' = V4 8 8 8 0
 --   , 'glDepthPrecision' = 24
 --   , 'glStencilPrecision' = 8
+--   , 'glMultisampleSamples' = 1
 --   , 'glProfile' = 'Compatibility' 'Normal' 2 1
 --   }
 -- @
@@ -61,15 +62,17 @@ defaultOpenGL = OpenGLConfig
   { glColorPrecision = V4 8 8 8 0
   , glDepthPrecision = 24
   , glStencilPrecision = 8
+  , glMultisampleSamples = 1
   , glProfile = Compatibility Normal 2 1
   }
 
 -- | Configuration used when creating an OpenGL rendering context.
 data OpenGLConfig = OpenGLConfig
-  { glColorPrecision   :: V4 CInt -- ^ Defaults to 'V4' @8 8 8 0@.
-  , glDepthPrecision   :: CInt    -- ^ Defaults to @24@.
-  , glStencilPrecision :: CInt    -- ^ Defaults to @8@.
-  , glProfile          :: Profile -- ^ Defaults to 'Compatibility' 'Normal' @2 1@.
+  { glColorPrecision     :: V4 CInt -- ^ Defaults to 'V4' @8 8 8 0@.
+  , glDepthPrecision     :: CInt    -- ^ Defaults to @24@.
+  , glStencilPrecision   :: CInt    -- ^ Defaults to @8@.
+  , glMultisampleSamples :: CInt    -- ^ Defaults to @1@.
+  , glProfile            :: Profile -- ^ Defaults to 'Compatibility' 'Normal' @2 1@.
   } deriving (Eq, Generic, Ord, Read, Show, Typeable)
 
 -- | The profile a driver should use when creating an OpenGL context.