Rendering optimisations (mainly inlining)

src/Shader/Data.hs

@@ -37,6 +37,8 @@ module Shader.Data
 -- TODO make lenses for VBO object
 --    , textureObject 
     ) where
+--import Geometry.Data
+
 import Graphics.Rendering.OpenGL
 import Foreign
 import Control.Lens
@@ -139,6 +141,14 @@ data FullShader = FullShader
 {- | Datatype containing the reference to a texture object.  -}
 newtype ShaderTexture = ShaderTexture
     { _textureObject :: TextureObject }
+--data PicVerxs = PicVerxs
+--    { _pvPoly   :: (Point3,Point4)
+--    , _pvPolyz  :: (Point3,Point4,Float)
+--    , _pvBez    :: (Point3,Point4,Point4)
+--    , _pvText   :: (Point3,Point4,Point2)
+--    , _pvArc    :: (Point3,Point3,Point3)
+--    , _pvEll    :: (Point3,Point4)
+--    }
 
 data EPrimitiveMode
     = EPoints