Cleanup. Start tweaking flares, glares and flashes

src/Shader/Poke.hs

@@ -1,12 +1,9 @@
---{-# LANGUAGE TupleSections #-}
---{-# LANGUAGE BangPatterns #-}
 module Shader.Poke
     ( pokeVerxs
     , pokeLayVerxs
     , pokeArrayOff
     , pokePoint33s
     , pokeShape
-    , pokePoint3s
     , pokeWallsWindowsFloor
     ) where
 import Shader.Data
@@ -23,11 +20,6 @@ import qualified Data.Vector.Unboxed.Mutable as UMV
 import qualified Data.Vector.Mutable as MV
 import qualified Data.Vector.Fusion.Stream.Monadic as VS
 import Control.Monad.Primitive
---import Control.Parallel.Strategies
---import System.Environment
---import Control.Monad.Parallel as MP
---import Control.Monad
---import qualified Data.DList as DL
 
 pokeVerxs 
     :: MV.MVector (PrimState IO) FullShader
@@ -186,16 +178,6 @@ pokeJustV ptr counts sh = do
     V3 a b c    = _svPos sh
     V4 d e f g  = _svCol sh
 
-pokePoint3s :: Ptr Float -> VS.Stream IO Point3 -> IO Int
-pokePoint3s ptr = VS.foldlM' (pokePoint3 ptr) 0
-
-pokePoint3 :: Ptr Float -> Int -> Point3 -> IO Int
-pokePoint3 ptr n (V3 a b c) = do
-    pokeElemOff ptr (n * 3) a
-    pokeElemOff ptr (n * 3 + 1) b
-    pokeElemOff ptr (n * 3 + 2) c
-    return $ n + 1
-
 pokeLayVerxs 
     :: MV.MVector (PrimState IO) FullShader 
     -> UMV.MVector (PrimState IO) Int