diff options
Diffstat (limited to 'src/Internal')
| -rw-r--r-- | src/Internal/LayoutDraw.hs | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/src/Internal/LayoutDraw.hs b/src/Internal/LayoutDraw.hs index 3b3d3f0..5f0572d 100644 --- a/src/Internal/LayoutDraw.hs +++ b/src/Internal/LayoutDraw.hs @@ -45,17 +45,17 @@ drawPng l = do let filepathXpm = pngCacheDir </> (quickHash descr ++ ".xpm") let colors = [ - (1.0, 1.0, 1.0), - (0.9, 0.9, 1.0), - (0.8, 0.8, 1.0), - (0.7, 0.7, 1.0), - (0.6, 0.6, 1.0), - (0.5, 0.5, 1.0), - (0.4, 0.4, 1.0), - (0.3, 0.3, 1.0), - (0.2, 0.2, 1.0), - (0.1, 0.1, 1.0), - (0.0, 0.0, 1.0) + -- (1.0, 1.0, 1.0), + -- (0.9, 0.9, 1.0), + -- (0.8, 0.8, 1.0), + -- (0.7, 0.7, 1.0), + (0.6, 0.6, 0.8), + (0.5, 0.5, 0.8), + (0.4, 0.4, 0.8), + (0.3, 0.3, 0.8), + (0.2, 0.2, 0.8), + (0.1, 0.1, 0.8), + (0.0, 0.0, 0.8) ] exists <- liftIO $ doesFileExist filepathXpm |