Work out screen coordinates for connecting infobox

src/Render.hs

@@ -136,13 +136,15 @@ renderFoldable shadV struct = do
 
 ------------------------------end renderFoldable
 renderLayer 
-    :: Int 
+    :: Layer 
     -> MV.MVector (PrimState IO) FullShader
     -> UMV.MVector (PrimState IO) Int
     -> IO ()
 renderLayer layer shads counts = do
-    let layerCounts = UMV.slice (layer * 6) 6 counts
-    MV.imapM_ (drawShaderLay layer layerCounts) shads
+    let layerCounts = UMV.slice (ln * numLayers) 6 counts
+    MV.imapM_ (drawShaderLay ln layerCounts) shads
+  where
+    ln = layerNum layer
 
 bindTO :: TextureObject -> IO ()
 bindTO t = textureBinding Texture2D $= Just t