Fix interpolation gifs.

Former-commit-id: 1d596ff95e002b77fad2c5954e63846d252abf43

docs/gen_doc_gifs.sh

@@ -2,7 +2,8 @@
 ROOT=`stack path --project-root`
 
 TINY='^(doc_turbo|doc_viridis|doc_magma|doc_inferno|doc_plasma|doc_sinebow|doc_cividis|doc_jet|
-        doc_hsv|doc_hsvMatlab|doc_greyscale|doc_parula|doc_rgbComponents|doc_hsvComponents)$'
+        newline|doc_hsvMatlab|doc_greyscale|doc_parula|doc_rgbComponents|doc_hsvComponents|
+        newline|doc_lchComponents|doc_xyzComponents|doc_labComponents)$'
 
 for src in $ROOT/examples/doc_*.hs; do
   BASE=`basename $src .hs`

examples/doc_hsvComponents.hs

@@ -0,0 +1,14 @@
+#!/usr/bin/env stack
+-- stack runghc --package reanimate
+module Main(main) where
+
+import Reanimate
+import Reanimate.Interpolate
+import Reanimate.Builtin.Documentation
+import Codec.Picture
+
+main :: IO ()
+main = reanimate $ docEnv $ animate $ const $ showColorMap $ interpolateRGB8 hsvComponents yellow blue
+  where
+    yellow = PixelRGB8 0xFF 0xFF 0x00
+    blue = PixelRGB8 0x00 0x00 0xFF

examples/doc_labComponents.hs

@@ -0,0 +1,14 @@
+#!/usr/bin/env stack
+-- stack runghc --package reanimate
+module Main(main) where
+
+import Reanimate
+import Reanimate.Interpolate
+import Reanimate.Builtin.Documentation
+import Codec.Picture
+
+main :: IO ()
+main = reanimate $ docEnv $ animate $ const $ showColorMap $ interpolateRGB8 labComponents yellow blue
+  where
+    yellow = PixelRGB8 0xFF 0xFF 0x00
+    blue = PixelRGB8 0x00 0x00 0xFF

examples/doc_lchComponents.hs

@@ -0,0 +1,14 @@
+#!/usr/bin/env stack
+-- stack runghc --package reanimate
+module Main(main) where
+
+import Reanimate
+import Reanimate.Interpolate
+import Reanimate.Builtin.Documentation
+import Codec.Picture
+
+main :: IO ()
+main = reanimate $ docEnv $ animate $ const $ showColorMap $ interpolateRGB8 lchComponents yellow blue
+  where
+    yellow = PixelRGB8 0xFF 0xFF 0x00
+    blue = PixelRGB8 0x00 0x00 0xFF

examples/doc_xyzComponents.hs

@@ -0,0 +1,14 @@
+#!/usr/bin/env stack
+-- stack runghc --package reanimate
+module Main(main) where
+
+import Reanimate
+import Reanimate.Interpolate
+import Reanimate.Builtin.Documentation
+import Codec.Picture
+
+main :: IO ()
+main = reanimate $ docEnv $ animate $ const $ showColorMap $ interpolateRGB8 rgbComponents yellow blue
+  where
+    yellow = PixelRGB8 0xFF 0xFF 0x00
+    blue = PixelRGB8 0x00 0x00 0xFF