Try to add compute shaders

src/Color/Data.hs

@@ -0,0 +1,37 @@
+{-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE StrictData #-}
+--{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE TemplateHaskell #-}
+
+module Color.Data where
+
+import Data.Aeson
+import Data.Aeson.TH
+import Data.Word
+import Geometry
+
+data PaletteColor
+    = RED
+    | GREEN
+    | BLUE
+    | YELLOW
+    | CYAN
+    | MAGENTA
+    | ROSE
+    | VIOLET
+    | AZURE
+    | AQUAMARINE
+    | CHARTREUSE
+    | ORANGE
+    | WHITE
+    | BLACK
+    deriving (Eq, Ord, Enum, Show, Read) --Generic, Flat)
+
+type RGBA = Point4
+
+type Color = Point4
+
+type Color256 = V4 Word8
+
+deriveJSON defaultOptions ''PaletteColor