Yellow border surrounding
authorJoachim Breitner <mail@joachim-breitner.de>
Sun, 8 Feb 2009 22:26:21 +0000 (23:26 +0100)
committerJoachim Breitner <mail@joachim-breitner.de>
Sun, 8 Feb 2009 22:26:21 +0000 (23:26 +0100)
src/Lseed/Renderer/Cairo.hs

index 962b539..d4f2466 100644 (file)
@@ -100,7 +100,7 @@ renderLightedLine (l@((x1,y1),(x2,y2)), _, intensity) = do
        when (normalized > 0) $ do
                liftIO $ print normalized
                setLineWidth (3*stipeWidth)
-               setSourceRGBA 1 1 0 normalized
+               setSourceRGB normalized normalized 0
                strokePreserve
        setSourceRGB 0 1 0 
        setLineWidth (0.5*stipeWidth)