Cleanup

2024-09-30 21:32:51 +01:00
parent 74b518e10b
commit 48b8cfe7ef
9 changed files with 28 additions and 53 deletions
@@ -45,7 +45,7 @@ pokeVerx vbos offsets Verx{_vxPos = thePos, _vxCol = theCol, _vxExt = ext, _vxSh
    pokeArrayOff thePtr 7 ext
    UMV.unsafeModify offsets (+ 1) sn
  where
-    sn = _unShadNum shadnum
+    sn = fromEnum shadnum

 pokeWallsWindows ::
    Ptr Float ->
@@ -497,10 +497,10 @@ pokeLayVerx vbos counts vx = do
    pokeArrayOff thePtr 7 (_vxExt vx)
    UMV.unsafeModify counts (+ 1) vecPos
  where
-    sn = _unShadNum shadnum
+    sn = fromEnum shadnum
    shadnum = _vxShadNum vx
    vecPos = theLayer * numLayers + sn
-    theLayer = layerNum $ _vxLayer vx
+    theLayer = fromEnum $ _vxLayer vx
    thePos = _vxPos vx
    theCol = _vxCol vx
    layOff = theLayer * numSubElements