Cleanup terminal display

src/Color.hs

@@ -1,9 +1,9 @@
 module Color where
 import Geometry
 
-data PaletteColor = Red | Green | Blue | Yellow | Cyan 
-    | Magenta | Rose  | Violet | Azure | Aquamarine | Chartreuse | Orange | White | Black
-  deriving (Eq,Ord,Enum,Show)
+data PaletteColor = RED | GREEN | BLUE | YELLOW | CYAN 
+    | MAGENTA | ROSE  | VIOLET | AZURE | AQUAMARINE | CHARTREUSE | ORANGE | WHITE | BLACK
+  deriving (Eq,Ord,Enum,Show,Read)
 
 type RGBA  = Point4
 type Color = Point4
@@ -46,20 +46,20 @@ black     = V4   0   0   0 1
 paletteToColor :: PaletteColor -> Color
 {-# INLINE paletteToColor #-}
 paletteToColor pc = case pc of
-    Red         -> red       
-    Green       -> green     
-    Blue        -> blue      
-    Yellow      -> yellow    
-    Cyan        -> cyan      
-    Magenta     -> magenta   
-    Rose        -> rose      
-    Violet      -> violet    
-    Azure       -> azure     
-    Aquamarine  -> aquamarine
-    Chartreuse  -> chartreuse
-    Orange      -> orange    
-    White       -> white     
-    Black       -> black     
+    RED         -> red       
+    GREEN       -> green     
+    BLUE        -> blue      
+    YELLOW      -> yellow    
+    CYAN        -> cyan      
+    MAGENTA     -> magenta   
+    ROSE        -> rose      
+    VIOLET      -> violet    
+    AZURE       -> azure     
+    AQUAMARINE  -> aquamarine
+    CHARTREUSE  -> chartreuse
+    ORANGE      -> orange    
+    WHITE       -> white     
+    BLACK       -> black     
 
 mixColors :: Float -> Float -> Color -> Color -> Color
 {-# INLINE mixColors #-}