Commit before improving item targeting

2022-02-22 10:47:15 +00:00
parent ff84363a13
commit 69490bb984
12 changed files with 83 additions and 50 deletions
@@ -10,9 +10,11 @@ data Verx = Verx
    { _vxPos    :: !Point3
    , _vxCol    :: !Point4
    , _vxExt    :: [Float]
-    , _vxLayer  :: !Int
+    , _vxLayer  :: !LayNum
    , _vxShadNum  :: !ShadNum
    }
+newtype LayNum  = LayNum  { _unLayNum :: Int }
+--TODO use synonyms for layer numbers
 newtype ShadNum = ShadNum { _unShadNum :: Int }
 polyNum, polyzNum, bezNum, textNum, arcNum, ellNum :: ShadNum
 {-# INLINE polyNum #-}