renderPrimShape :: GL.Color c => PrimRenderer c
renderPrimShape color a = do
   GL.polygonMode $= (GL.Fill, GL.Fill)
   GL.polygonOffset $= (1,1)
   GL.polygonOffsetFill $= Enabled
   GL.color color
   Primitive.render a
   GL.polygonOffsetFill $= Disabled
renderPrimShape :: GL.Color c => PrimRenderer c
renderPrimShape color a = do
   GL.polygonMode $= (GL.Fill, GL.Fill)
   GL.polygonOffset $= (1,1)
   GL.polygonOffsetFill $= Enabled
   GL.color color
   Primitive.render a
   GL.polygonOffsetFill $= Disabled
renderPrimShape color a = do
   GL.polygonMode $= (GL.Fill, GL.Fill)
   GL.polygonOffset $= (1,1)
   GL.polygonOffsetFill $= Enabled
   GL.color color
   Primitive.render a
   GL.polygonOffsetFill $= Disabled