Move menu layers outside of world

src/Dodge/Render.hs

@@ -30,8 +30,9 @@ import qualified SDL
 import qualified Data.Vector.Unboxed.Mutable as UMV
 import Graphics.GL.Core43
 
-doDrawing :: RenderData -> World -> IO Word32
-doDrawing pdata w = do
+doDrawing :: RenderData -> Universe -> IO Word32
+doDrawing pdata u = do
+    let w = _uvWorld u
     sTicks <- SDL.ticks
     let rot     = _cameraRot w
         camzoom    = _cameraZoom w
@@ -245,7 +246,7 @@ doDrawing pdata w = do
     blendFunc $= (SrcAlpha,OneMinusSrcAlpha)
     renderLayer 4 shadV layerCounts
     bufferUBO $ isoMatrix 0 1 (V2 0 0) (V2 2 2)
-    renderFoldable shadV $ fixedCoordPictures w
+    renderFoldable shadV $ fixedCoordPictures u
     depthMask $= Enabled
     eTicks <- SDL.ticks
     return (eTicks - sTicks)