diff --git a/apecs-gloss.cabal b/apecs-gloss.cabal
--- a/apecs-gloss.cabal
+++ b/apecs-gloss.cabal
@@ -1,5 +1,5 @@
 name:                apecs-gloss
-version:             0.1.1
+version:             0.2.0
 synopsis:            Simple gloss renderer for apecs
 homepage:            https://github.com/jonascarpay/apecs-physics#readme
 license:             BSD3
diff --git a/src/Apecs/Gloss.hs b/src/Apecs/Gloss.hs
--- a/src/Apecs/Gloss.hs
+++ b/src/Apecs/Gloss.hs
@@ -14,8 +14,8 @@
 import           Apecs
 
 data Camera = Camera
-  { camOffset :: V2 Double
-  , camScale  :: Double
+  { camOffset :: V2 Float
+  , camScale  :: Float
   } deriving (Eq, Show, Read)
 
 instance Semigroup Camera where
@@ -27,12 +27,10 @@
 -- | Apply a camera transformation to a picture
 cameraTransform :: Camera -> Picture -> Picture
 cameraTransform (Camera (V2 cx cy) cs) =
-    Scale (f cs) (f cs) .  Translate (f . negate $ cx) (f . negate $ cy)
-  where f = realToFrac
+    Scale cs cs .  Translate (-cx) (-cy)
 
-windowToWorld :: Camera -> (Float,Float) -> V2 Double
-windowToWorld (Camera cx cs) (x,y) = v ^/ cs - cx
-  where v = V2 (realToFrac x) (realToFrac y)
+windowToWorld :: Camera -> (Float,Float) -> V2 Float
+windowToWorld (Camera cx cs) (x,y) = V2 x y ^/ cs - cx
 
 instance Component Camera where
   type Storage Camera = Global Camera
@@ -44,14 +42,14 @@
   -> Int                  -- ^ Desired FPS
   -> System w Picture -- ^ Drawing function
   -> (Event -> System w ()) -- ^ Event handling function
-  -> (Double  -> System w ()) -- ^ Stepping function, with a time delta argument.
+  -> (Float  -> System w ()) -- ^ Stepping function, with a time delta argument.
   -> System w ()
 play disp col fps draw handle step = do
   w <- ask
   liftIO$ playIO disp col fps w draw' handle' step'
     where
       handle' event = runSystem $ handle event >> ask
-      step'   dT    = runSystem $ step (realToFrac dT) >> ask
+      step'   dT    = runSystem $ step dT >> ask
       draw'         = runSystem $ do
         cam <- get global
         cameraTransform cam <$> draw