23 lines
593 B
Haskell
23 lines
593 B
Haskell
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
|