From 5d183710d9ad709ee28f8b10208d4b37e819b279 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sun, 16 Oct 2022 16:55:50 +0200
Subject: Colorschemes

---
 render/Render.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'render/Render.hs')

diff --git a/render/Render.hs b/render/Render.hs
index 095df8d..05a1ee3 100644
--- a/render/Render.hs
+++ b/render/Render.hs
@@ -19,6 +19,7 @@ import System.Environment (getArgs)
 import System.Exit (die, exitFailure)
 
 import MandelHSlib
+import Inferno
 
 
 type Colorscheme = Double -> (Word8, Word8, Word8)
@@ -50,7 +51,8 @@ curve x start end
 colorschemes :: Map String Colorscheme
 colorschemes = Map.fromList
   [("yellow", colorscheme_yellow)
-  ,("purple", colorscheme_purple)]
+  ,("purple", colorscheme_purple)
+  ,("infernoinv", colorscheme_infernoinv)]
 
 renderFractal :: Colorscheme -> Fractal -> Pix.Image Pix.PixelRGB8
 renderFractal colors (Fractal (w, h) _ arr) =
-- 
cgit v1.2.3-70-g09d2