DSA glClear

src/Shader/Poke.hs

@@ -7,7 +7,6 @@ module Shader.Poke (
     memoTopPrismEdgeIndices,
 ) where
 
---import Control.Monad
 import Control.Monad.Primitive
 import qualified Data.Vector as V
 import qualified Data.Vector.Fusion.Stream.Monadic as VFSM
@@ -231,7 +230,6 @@ pokeTopPrism cp col size ptr iptr ieptr (nv, nsi, nei) svs = do
     nv' <- VFSM.foldlM' (pokeJustV cp col ptr) nv svs
     nsi' <-
         UV.foldM'
-            --(pokeTopPrismIndex nv iptr)
             (pokeIndex nv iptr)
             nsi
             (memoTopPrismIndices V.! (size - 3))
@@ -379,7 +377,6 @@ pokeJustV ::
     IO Int
 {-# INLINE pokeJustV #-}
 pokeJustV cp col ptr nv sh = do
-    --zipWithM_ f [0 ..] [x, y, z, 1, r, g, b, a, nx, ny, nz, 1]
     UV.imapM_ f $ UV.fromList [x, y, z, 1, r, g, b, a, nx, ny, nz, 1]
     return (nv + 1)
   where
@@ -397,7 +394,6 @@ pokeJustVInvNormal ::
     IO Int
 {-# INLINE pokeJustVInvNormal #-}
 pokeJustVInvNormal cp col ptr nv sh = do
-    --zipWithM_ f [0 ..] [x, y, z, 1, r, g, b, a, nx, ny, nz, 1]
     UV.imapM_ f $ UV.fromList [x, y, z, 1, r, g, b, a, nx, ny, nz, 1]
     return (nv + 1)
   where
@@ -415,7 +411,6 @@ pokeFlatV ::
     IO Int
 {-# INLINE pokeFlatV #-}
 pokeFlatV norm col ptr nv sh = do
-    --zipWithM_ f [0 ..] [x, y, z, 1, r, g, b, a, nx, ny, nz, 1]
     UV.imapM_ f $ UV.fromList [x, y, z, 1, r, g, b, a, nx, ny, nz, 1]
     return (nv + 1)
   where