Add explicit layer datatype

2022-04-10 10:48:17 +01:00
parent edd82fb3ac
commit 77c3f83d20
27 changed files with 75 additions and 70 deletions
@@ -10,10 +10,10 @@ data Verx = Verx
    { _vxPos    :: !Point3
    , _vxCol    :: !Point4
    , _vxExt    :: [Float]
-    , _vxLayer  :: !LayNum
+    , _vxLayer  :: !Layer
    , _vxShadNum  :: !ShadNum
    }
-newtype LayNum  = LayNum  { _unLayNum :: Int }
+--newtype LayNum  = LayNum  { _unLayNum :: Int }

 data Layer
    = BottomLayer
@@ -23,6 +23,15 @@ data Layer
    | TopLayer
    | FixedCoordLayer

+layerNum :: Layer -> Int
+layerNum lay = case lay of
+    BottomLayer     -> 0
+    MidLayer        -> 1
+    BloomLayer      -> 2
+    BloomNoZWrite   -> 3
+    TopLayer        -> 4
+    FixedCoordLayer -> 5
+
 numLayers :: Int
 numLayers = 6
 --TODO use synonyms for layer numbers