Remove old layer code

2022-04-10 10:32:55 +01:00
parent 2da4098d41
commit edd82fb3ac
17 changed files with 54 additions and 53 deletions
@@ -14,6 +14,17 @@ data Verx = Verx
    , _vxShadNum  :: !ShadNum
    }
 newtype LayNum  = LayNum  { _unLayNum :: Int }
+
+data Layer
+    = BottomLayer
+    | MidLayer
+    | BloomLayer
+    | BloomNoZWrite
+    | TopLayer
+    | FixedCoordLayer
+
+numLayers :: Int
+numLayers = 6
 --TODO use synonyms for layer numbers
 newtype ShadNum = ShadNum { _unShadNum :: Int }
 polyNum, polyzNum, bezNum, textNum, arcNum, ellNum :: ShadNum