Some cleanup of rendering/poking, remove forcefield gun

src/Shader/Parameters.hs

@@ -6,7 +6,7 @@ module Shader.Parameters
     , glushortSize
     , numGLushort
     ) where
-import Picture.Data
+--import Picture.Data
 import Graphics.GL.Core45
 import Foreign
 
@@ -30,10 +30,12 @@ numGLushort :: Int
 numGLushort = fromIntegral (maxBound :: GLushort) + 1
 {-# INLINE numGLushort #-}
 
+-- why 6?
 numDrawableVertices :: Int
 {-# INLINE numDrawableVertices #-}
 numDrawableVertices = 6 * numSubElements
 
+-- why this number?
 numSubElements :: Int
 {-# INLINE numSubElements #-}
 numSubElements = 65536