Paint ground further down
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 27 Jun 2009 19:45:20 +0000 (21:45 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 27 Jun 2009 19:45:20 +0000 (21:45 +0200)
src/Lseed/Renderer/Cairo.hs

index b832d74..b861712 100644 (file)
@@ -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