{-# OPTIONS_HADDOCK hide #-}
module Graphics.Rendering.OpenGL.GL.PrimitiveModeInternal (
marshalPrimitiveMode, unmarshalPrimitiveMode
) where
import Graphics.GL
import Graphics.Rendering.OpenGL.GL.PrimitiveMode
marshalPrimitiveMode :: PrimitiveMode -> GLenum
marshalPrimitiveMode :: PrimitiveMode -> GLenum
marshalPrimitiveMode PrimitiveMode
x = case PrimitiveMode
x of
PrimitiveMode
Points -> GLenum
GL_POINTS
PrimitiveMode
Lines -> GLenum
GL_LINES
PrimitiveMode
LineLoop -> GLenum
GL_LINE_LOOP
PrimitiveMode
LineStrip -> GLenum
GL_LINE_STRIP
PrimitiveMode
Triangles -> GLenum
GL_TRIANGLES
PrimitiveMode
TriangleStrip -> GLenum
GL_TRIANGLE_STRIP
PrimitiveMode
TriangleFan -> GLenum
GL_TRIANGLE_FAN
PrimitiveMode
Quads -> GLenum
GL_QUADS
PrimitiveMode
QuadStrip -> GLenum
GL_QUAD_STRIP
PrimitiveMode
Polygon -> GLenum
GL_POLYGON
PrimitiveMode
Patches -> GLenum
GL_PATCHES
unmarshalPrimitiveMode :: GLenum -> PrimitiveMode
unmarshalPrimitiveMode :: GLenum -> PrimitiveMode
unmarshalPrimitiveMode GLenum
x
| GLenum
x forall a. Eq a => a -> a -> Bool
== GLenum
GL_POINTS = PrimitiveMode
Points
| GLenum
x forall a. Eq a => a -> a -> Bool
== GLenum
GL_LINES = PrimitiveMode
Lines
| GLenum
x forall a. Eq a => a -> a -> Bool
== GLenum
GL_LINE_LOOP = PrimitiveMode
LineLoop
| GLenum
x forall a. Eq a => a -> a -> Bool
== GLenum
GL_LINE_STRIP = PrimitiveMode
LineStrip
| GLenum
x forall a. Eq a => a -> a -> Bool
== GLenum
GL_TRIANGLES = PrimitiveMode
Triangles
| GLenum
x forall a. Eq a => a -> a -> Bool
== GLenum
GL_TRIANGLE_STRIP = PrimitiveMode
TriangleStrip
| GLenum
x forall a. Eq a => a -> a -> Bool
== GLenum
GL_TRIANGLE_FAN = PrimitiveMode
TriangleFan
| GLenum
x forall a. Eq a => a -> a -> Bool
== GLenum
GL_QUADS = PrimitiveMode
Quads
| GLenum
x forall a. Eq a => a -> a -> Bool
== GLenum
GL_QUAD_STRIP = PrimitiveMode
QuadStrip
| GLenum
x forall a. Eq a => a -> a -> Bool
== GLenum
GL_POLYGON = PrimitiveMode
Polygon
| GLenum
x forall a. Eq a => a -> a -> Bool
== GLenum
GL_PATCHES = PrimitiveMode
Patches
| Bool
otherwise = forall a. HasCallStack => [Char] -> a
error ([Char]
"unmarshalPrimitiveMode: illegal value " forall a. [a] -> [a] -> [a]
++ forall a. Show a => a -> [Char]
show GLenum
x)