Add createSoftwareRenderer

Author: tngafwlehmann

ChangeLog.md

@@ -2,6 +2,7 @@
 =====
 
 * Add `SDL.Exception` module, exposing `SDLException`
+* Add new function, `createSoftwareRenderer`, to render onto a surface
 * Add joystick POV hat support
 * Remove deprecated functionality:
   * `InitEverything` enumeration in `SDL.Init`

src/SDL/Video.hs

@@ -40,6 +40,7 @@ module SDL.Video
 
   -- * Renderer Management
   , createRenderer
+  , createSoftwareRenderer
   , destroyRenderer
 
   -- * Clipboard Handling
@@ -566,5 +567,14 @@ createRenderer (Window w) driver config =
     throwIfNull "SDL.Video.createRenderer" "SDL_CreateRenderer" $
     Raw.createRenderer w driver (toNumber config)
 
+-- | Create a 2D software rendering context for the given surface.
+--
+-- See @<https://wiki.libsdl.org/SDL_CreateSoftwareRenderer>@
+createSoftwareRenderer :: MonadIO m => Surface -> m Renderer
+createSoftwareRenderer (Surface ptr _) =
+  liftIO . fmap Renderer $
+    throwIfNull "SDL.Video.createSoftwareRenderer" "SDL_CreateSoftwareRenderer" $
+    Raw.createSoftwareRenderer ptr
+
 destroyRenderer :: MonadIO m => Renderer -> m ()
 destroyRenderer (Renderer r) = Raw.destroyRenderer r