Paint ground further down

diff --git a/src/Lseed/Renderer/Cairo.hs b/src/Lseed/Renderer/Cairo.hs
index b832d74..b861712 100644 (file)
--- a/src/Lseed/Renderer/Cairo.hs
+++ b/src/Lseed/Renderer/Cairo.hs
@@ -350,7 +350,7 @@ renderSky angle = do
 renderGround :: Render ()
 renderGround = do
        setSourceRGB (140/255) (80/255) (21/255)
-       rectangle (-1) 0 3 (-groundLevel)
+       rectangle (-1) 0 3 (-(1+groundLevel))
         fill
 
 -- | Wrapper that calls 'save' and 'restore' before and after the argument