{-# OPTIONS_HADDOCK hide #-}
module Graphics.Rendering.OpenGL.GL.PointParameter (
PointParameter(..), pointParameterf, pointParameterfv
) where
import Foreign.Ptr
import Graphics.GL
data PointParameter =
PointSizeMin
| PointSizeMax
| PointFadeThresholdSize
| PointDistanceAttenuation
marshalPointParameter :: PointParameter -> GLenum
marshalPointParameter :: PointParameter -> GLenum
marshalPointParameter x :: PointParameter
x = case PointParameter
x of
PointSizeMin -> GLenum
GL_POINT_SIZE_MIN
PointSizeMax -> GLenum
GL_POINT_SIZE_MAX
PointFadeThresholdSize -> GLenum
GL_POINT_FADE_THRESHOLD_SIZE
PointDistanceAttenuation -> GLenum
GL_POINT_DISTANCE_ATTENUATION
pointParameterf :: PointParameter -> GLfloat -> IO ()
pointParameterf :: PointParameter -> GLfloat -> IO ()
pointParameterf = GLenum -> GLfloat -> IO ()
forall (m :: * -> *). MonadIO m => GLenum -> GLfloat -> m ()
glPointParameterf (GLenum -> GLfloat -> IO ())
-> (PointParameter -> GLenum) -> PointParameter -> GLfloat -> IO ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PointParameter -> GLenum
marshalPointParameter
pointParameterfv :: PointParameter -> Ptr GLfloat -> IO ()
pointParameterfv :: PointParameter -> Ptr GLfloat -> IO ()
pointParameterfv = GLenum -> Ptr GLfloat -> IO ()
forall (m :: * -> *). MonadIO m => GLenum -> Ptr GLfloat -> m ()
glPointParameterfv (GLenum -> Ptr GLfloat -> IO ())
-> (PointParameter -> GLenum)
-> PointParameter
-> Ptr GLfloat
-> IO ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PointParameter -> GLenum
marshalPointParameter