module Shader.ExtraPrimitive
    where
import Shader.Data

import Graphics.GL.Types
import Graphics.GL.Tokens

marshalEPrimitiveMode :: EPrimitiveMode -> GLenum
{-# INLINABLE marshalEPrimitiveMode #-}
marshalEPrimitiveMode x = case x of
   EPoints -> GL_POINTS
   ELines -> GL_LINES
   ELinesAdjacency -> GL_LINES_ADJACENCY
   ELineLoop -> GL_LINE_LOOP
   ELineStrip -> GL_LINE_STRIP
   ETriangles -> GL_TRIANGLES
   ETriangleStrip -> GL_TRIANGLE_STRIP
   ETriangleFan -> GL_TRIANGLE_FAN
   EQuads -> GL_QUADS
   EQuadStrip -> GL_QUAD_STRIP
   EPolygon -> GL_POLYGON
   EPatches -> GL_PATCHES