diff --git a/SDL/Compositor.hs b/SDL/Compositor.hs
--- a/SDL/Compositor.hs
+++ b/SDL/Compositor.hs
@@ -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
diff --git a/sdl2-compositor.cabal b/sdl2-compositor.cabal
--- a/sdl2-compositor.cabal
+++ b/sdl2-compositor.cabal
@@ -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