Start work on old picture shader code

src/Picture/Data.hs

@@ -34,8 +34,23 @@ layerNum = fromEnum
 numLayers :: Int
 numLayers = length [minBound :: Layer .. maxBound]
 
-newtype ShadNum = ShadNum {_unShadNum :: Int}
+data ShadNum
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+    = PolyShad
+    | PolyzShad
+    | BezShad
+    | TextShad
+    | ArcShad
+    | EllShad
+    deriving (Eq, Ord, Enum, Bounded, Show, Read) --Generic, Flat)
+
+numShads :: Int
+numShads = length [minBound :: ShadNum .. maxBound]
+
+_unShadNum :: ShadNum -> Int
+_unShadNum = fromEnum
+
+toShadNum :: Int -> ShadNum
+toShadNum = toEnum
 
 polyNum, polyzNum, bezNum, textNum, arcNum, ellNum :: ShadNum
 {-# INLINE polyNum #-}
@@ -44,12 +59,12 @@ polyNum, polyzNum, bezNum, textNum, arcNum, ellNum :: ShadNum
 {-# INLINE textNum #-}
 {-# INLINE arcNum #-}
 {-# INLINE ellNum #-}
-polyNum = ShadNum 0
+polyNum = toShadNum 0
-polyzNum = ShadNum 1
+polyzNum = toShadNum 1
-bezNum = ShadNum 2
+bezNum = toShadNum 2
-textNum = ShadNum 3
+textNum = toShadNum 3
-arcNum = ShadNum 4
+arcNum = toShadNum 4
-ellNum = ShadNum 5
+ellNum = toShadNum 5
 
 type Picture = [Verx]