Work out screen coordinates for connecting infobox

2022-04-10 11:32:05 +01:00
parent 77c3f83d20
commit 0cc12f31ad
9 changed files with 41 additions and 43 deletions
@@ -20,20 +20,14 @@ data Layer
    | MidLayer
    | BloomLayer
    | BloomNoZWrite
-    | TopLayer
+    | DebugLayer
    | FixedCoordLayer
+  deriving (Eq,Ord,Enum,Bounded)

 layerNum :: Layer -> Int
-layerNum lay = case lay of
-    BottomLayer     -> 0
-    MidLayer        -> 1
-    BloomLayer      -> 2
-    BloomNoZWrite   -> 3
-    TopLayer        -> 4
-    FixedCoordLayer -> 5
-
+layerNum = fromEnum
 numLayers :: Int
-numLayers = 6
+numLayers = length [minBound::Layer .. maxBound]
 --TODO use synonyms for layer numbers
 newtype ShadNum = ShadNum { _unShadNum :: Int }
 polyNum, polyzNum, bezNum, textNum, arcNum, ellNum :: ShadNum