sdl2-compositor 1.0 → 1.0.0.1

raw patch · 2 files changed

+6/−7 lines, 2 files

Files

• SDL/Compositor.hs +5/−6
• sdl2-compositor.cabal +1/−1

@@ -84,6 +84,8 @@   filledRectangleC = FilledRectangle   lineC = Line +infixr 5 `overC`+ class Compositor c where   overC :: c -> c -> c   rotateC :: Double -> c -> c@@ -183,7 +185,6 @@ renderNode (Rectangle dims colors) = do   env <- get   let rend = renderTarget env-      modulations = ($env) <$> (V4 redMod greenMod blueMod alphaMod)   -- get old values   oldColors <- SDL.get (SDL.rendererDrawColor rend)   oldTarget <- SDL.get (SDL.rendererRenderTarget rend)@@ -192,7 +193,7 @@   SDL.rendererRenderTarget rend $= Just tex   SDL.rendererDrawColor rend $= V4 0 0 0 0   SDL.clear rend-  SDL.rendererDrawColor rend $= round <$> modulations * (fromIntegral <$> colors)+  SDL.rendererDrawColor rend $= fromIntegral <$> colors   SDL.drawRect rend (Just (SDL.Rectangle 0 (fromIntegral <$> dims)))   SDL.present rend   SDL.rendererRenderTarget rend $= oldTarget@@ -204,7 +205,6 @@ renderNode (Line dims colors) = do   env <- get   let rend = renderTarget env-      modulations = ($env) <$> (V4 redMod greenMod blueMod alphaMod)   -- get old values   oldColors <- SDL.get (SDL.rendererDrawColor rend)   oldTarget <- SDL.get (SDL.rendererRenderTarget rend)@@ -213,7 +213,7 @@   SDL.rendererRenderTarget rend $= Just tex   SDL.rendererDrawColor rend $= V4 0 0 0 0   SDL.clear rend-  SDL.rendererDrawColor rend $= round <$> modulations * (fromIntegral <$> colors)+  SDL.rendererDrawColor rend $= fromIntegral <$> colors   SDL.drawLine rend 0 (P $ fromIntegral <$> dims)   SDL.present rend   SDL.rendererRenderTarget rend $= oldTarget@@ -225,12 +225,11 @@ renderNode (FilledRectangle dims colors) = do   env <- get   let rend = renderTarget env-      modulations = ($env) <$> (V4 redMod greenMod blueMod alphaMod)   -- get old values   oldColors <- SDL.get (SDL.rendererDrawColor rend)   oldTarget <- SDL.get (SDL.rendererRenderTarget rend)   -- set new values-  SDL.rendererDrawColor rend $= round <$> modulations * (fromIntegral <$> colors)+  SDL.rendererDrawColor rend $= fromIntegral <$> colors   tex <- SDL.createTexture rend SDL.RGBA8888 SDL.TextureAccessTarget (fromIntegral <$> dims)   SDL.rendererRenderTarget rend $= Just tex   SDL.clear rend

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                sdl2-compositor-version:             1.0+version:             1.0.0.1 synopsis:            image compositing with sdl2 - declarative style  description: This package provides tools for simple image composition