Prepare 2D plots (from colour-valued PointsWeb).

Author: leftaroundabout

Graphics/Dynamic/Plot/R2.hs

@@ -118,6 +118,8 @@ import Data.Manifold.TreeCover
 import Data.Manifold.Web
 import qualified Data.Map.Lazy as Map
 
+import qualified Data.Colour.Manifold as CSp
+
 import Data.Tagged
 
 import Text.Printf
@@ -578,6 +580,8 @@ instance Plottable (PointsWeb ℝ (Shade' ℝ)) where
          locals = Hask.toList $ localFocusWeb web
   plot _ = def
 
+instance Plottable (PointsWeb ℝ² (CSp.Colour ℝ)) where
+
 instance Plottable (SimpleTree P2) where
   plot (GenericTree Nothing) = plot ([] :: [SimpleTree P2])
   plot (GenericTree (Just (ctr, root)))

dynamic-plot.cabal

@@ -61,6 +61,7 @@ Library
                      , glib
                      , colour >= 2 && < 3
                      , manifolds >= 0.2.3 && < 0.2.4
+                     , colour-space
                      , lens < 4.15
   Other-Extensions:  FlexibleInstances
                      , TypeFamilies