remove debugging print
authorJoachim Breitner <mail@joachim-breitner.de>
Wed, 18 Feb 2009 21:06:59 +0000 (22:06 +0100)
committerJoachim Breitner <mail@joachim-breitner.de>
Wed, 18 Feb 2009 21:06:59 +0000 (22:06 +0100)
src/Lseed/Renderer/Cairo.hs

index 0ccf46f..0d15de9 100644 (file)
@@ -101,7 +101,7 @@ renderLightedPlant (Stipe intensity len p) = do
        lineTo 0 (len * stipeLength)
        let normalized = intensity / (len * stipeLength)
        when (normalized > 0) $ do
-               liftIO $ print normalized
+               --liftIO $ print normalized
                setLineWidth (2*stipeWidth)
                setSourceRGBA 1 1 0 normalized
                stroke