{-# 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 PointParameter
x = case PointParameter
x of
PointParameter
PointSizeMin -> GLenum
GL_POINT_SIZE_MIN
PointParameter
PointSizeMax -> GLenum
GL_POINT_SIZE_MAX
PointParameter
PointFadeThresholdSize -> GLenum
GL_POINT_FADE_THRESHOLD_SIZE
PointParameter
PointDistanceAttenuation -> GLenum
GL_POINT_DISTANCE_ATTENUATION
pointParameterf :: PointParameter -> GLfloat -> IO ()
pointParameterf :: PointParameter -> GLfloat -> IO ()
pointParameterf = forall (m :: * -> *). MonadIO m => GLenum -> GLfloat -> m ()
glPointParameterf forall b c a. (b -> c) -> (a -> b) -> a -> c
. PointParameter -> GLenum
marshalPointParameter
pointParameterfv :: PointParameter -> Ptr GLfloat -> IO ()
pointParameterfv :: PointParameter -> Ptr GLfloat -> IO ()
pointParameterfv = forall (m :: * -> *). MonadIO m => GLenum -> Ptr GLfloat -> m ()
glPointParameterfv forall b c a. (b -> c) -> (a -> b) -> a -> c
. PointParameter -> GLenum
marshalPointParameter