Disable face culling on fixed layer, for aim sweep reverse winding

src/Dodge/Render.hs

@@ -77,8 +77,6 @@ doDrawing' win pdata u = do
                 (0, 0, 0)
                 ws
             )
-    UMV.forM_ pokeCounts $ print
-    print "--"
     nCloudVs' <- -- foldM (pokeCloud $ pdata ^. cloudVBO . vboPtr) 0 (w ^. cWorld . lWorld . clouds)
         V.foldM'
             (pokeCloud (pdata ^. cloudVBO . vboPtr))
@@ -416,12 +414,12 @@ doDrawing' win pdata u = do
     glBlendFunc GL_ONE GL_ONE_MINUS_SRC_ALPHA -- assume premultiplied alpha
     glDisable GL_CULL_FACE
     renderLayer DebugLayer shadV pokeCounts
-    glEnable GL_CULL_FACE
     withArray (scaleMatrix (2 / windowXFloat cfig) (2 / windowYFloat cfig)) $
         glNamedBufferSubData (pdata ^. matUBO) 0 64
     glDepthMask GL_TRUE
     with 1 $ glClearNamedFramebufferfv 0 GL_DEPTH 0
     renderLayer FixedCoordLayer shadV pokeCounts
+    glEnable GL_CULL_FACE
     checkGLError "during doDrawing'"
     SDL.glSwapWindow win
 

src/Dodge/Render/Picture.hs

@@ -291,7 +291,7 @@ aimDelaySweep u = fold $ do
 
 drawAimSweep :: Creature -> World -> Picture
 drawAimSweep cr w = fold $ do
-    a <- safeArgV (mwp -.- p)
+    a <- safeArgV (mwp - p)
     return $
         uncurryV translate (worldPosToScreen campos p) $
             arcFull