-- This file was automatically generated.
{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.EmbeddedCommon11 (
  -- * Graphics.GL.EmbeddedCommon11
    module Graphics.GL.EmbeddedLite11
  , glAlphaFunc
  , glClearColor
  , glClearDepthf
  , glClipPlanef
  , glColor4f
  , glDepthRangef
  , glFogf
  , glFogfv
  , glFrustumf
  , glGetClipPlanef
  , glGetFloatv
  , glGetLightfv
  , glGetMaterialfv
  , glGetTexEnvfv
  , glGetTexParameterfv
  , glLightModelf
  , glLightModelfv
  , glLightf
  , glLightfv
  , glLineWidth
  , glLoadMatrixf
  , glMaterialf
  , glMaterialfv
  , glMultMatrixf
  , glMultiTexCoord4f
  , glNormal3f
  , glOrthof
  , glPointParameterf
  , glPointParameterfv
  , glPointSize
  , glPolygonOffset
  , glRotatef
  , glScalef
  , glTexEnvf
  , glTexEnvfv
  , glTexParameterf
  , glTexParameterfv
  , glTranslatef
) where

import Control.Monad.IO.Class
import Foreign.Ptr
import Graphics.GL.Internal.FFI
import Graphics.GL.Internal.Proc
import Graphics.GL.Internal.Shared
import Graphics.GL.Types
import System.IO.Unsafe

import Graphics.GL.EmbeddedLite11

-- | Usage: @'glClipPlanef' p eqn@
--
-- The length of @eqn@ should be @4@.


glClipPlanef :: MonadIO m => GLenum -> Ptr GLfloat -> m ()
glClipPlanef :: GLenum -> Ptr GLfloat -> m ()
glClipPlanef = FunPtr (GLenum -> Ptr GLfloat -> IO ())
-> GLenum -> Ptr GLfloat -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLenum -> Ptr GLfloat -> IO ())
-> GLenum -> Ptr GLfloat -> m ()
ffienumPtrfloatIOV FunPtr (GLenum -> Ptr GLfloat -> IO ())
glClipPlanefFunPtr

glClipPlanefFunPtr :: FunPtr (GLenum -> Ptr GLfloat -> IO ())
glClipPlanefFunPtr :: FunPtr (GLenum -> Ptr GLfloat -> IO ())
glClipPlanefFunPtr = IO (FunPtr (GLenum -> Ptr GLfloat -> IO ()))
-> FunPtr (GLenum -> Ptr GLfloat -> IO ())
forall a. IO a -> a
unsafePerformIO (String -> IO (FunPtr (GLenum -> Ptr GLfloat -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress "glClipPlanef")

{-# NOINLINE glClipPlanefFunPtr #-}

-- | Usage: @'glFrustumf' l r b t n f@


glFrustumf :: MonadIO m => GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> m ()
glFrustumf :: GLfloat
-> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> m ()
glFrustumf = FunPtr
  (GLfloat
   -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> IO ())
-> GLfloat
-> GLfloat
-> GLfloat
-> GLfloat
-> GLfloat
-> GLfloat
-> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr
  (GLfloat
   -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> IO ())
-> GLfloat
-> GLfloat
-> GLfloat
-> GLfloat
-> GLfloat
-> GLfloat
-> m ()
ffifloatfloatfloatfloatfloatfloatIOV FunPtr
  (GLfloat
   -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> IO ())
glFrustumfFunPtr

glFrustumfFunPtr :: FunPtr (GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> IO ())
glFrustumfFunPtr :: FunPtr
  (GLfloat
   -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> IO ())
glFrustumfFunPtr = IO
  (FunPtr
     (GLfloat
      -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> IO ()))
-> FunPtr
     (GLfloat
      -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> IO ())
forall a. IO a -> a
unsafePerformIO (String
-> IO
     (FunPtr
        (GLfloat
         -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress "glFrustumf")

{-# NOINLINE glFrustumfFunPtr #-}

-- | Usage: @'glGetClipPlanef' plane equation@
--
-- The length of @equation@ should be @4@.


glGetClipPlanef :: MonadIO m => GLenum -> Ptr GLfloat -> m ()
glGetClipPlanef :: GLenum -> Ptr GLfloat -> m ()
glGetClipPlanef = FunPtr (GLenum -> Ptr GLfloat -> IO ())
-> GLenum -> Ptr GLfloat -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLenum -> Ptr GLfloat -> IO ())
-> GLenum -> Ptr GLfloat -> m ()
ffienumPtrfloatIOV FunPtr (GLenum -> Ptr GLfloat -> IO ())
glGetClipPlanefFunPtr

glGetClipPlanefFunPtr :: FunPtr (GLenum -> Ptr GLfloat -> IO ())
glGetClipPlanefFunPtr :: FunPtr (GLenum -> Ptr GLfloat -> IO ())
glGetClipPlanefFunPtr = IO (FunPtr (GLenum -> Ptr GLfloat -> IO ()))
-> FunPtr (GLenum -> Ptr GLfloat -> IO ())
forall a. IO a -> a
unsafePerformIO (String -> IO (FunPtr (GLenum -> Ptr GLfloat -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress "glGetClipPlanef")

{-# NOINLINE glGetClipPlanefFunPtr #-}

-- | Usage: @'glOrthof' l r b t n f@


glOrthof :: MonadIO m => GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> m ()
glOrthof :: GLfloat
-> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> m ()
glOrthof = FunPtr
  (GLfloat
   -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> IO ())
-> GLfloat
-> GLfloat
-> GLfloat
-> GLfloat
-> GLfloat
-> GLfloat
-> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr
  (GLfloat
   -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> IO ())
-> GLfloat
-> GLfloat
-> GLfloat
-> GLfloat
-> GLfloat
-> GLfloat
-> m ()
ffifloatfloatfloatfloatfloatfloatIOV FunPtr
  (GLfloat
   -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> IO ())
glOrthofFunPtr

glOrthofFunPtr :: FunPtr (GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> IO ())
glOrthofFunPtr :: FunPtr
  (GLfloat
   -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> IO ())
glOrthofFunPtr = IO
  (FunPtr
     (GLfloat
      -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> IO ()))
-> FunPtr
     (GLfloat
      -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> IO ())
forall a. IO a -> a
unsafePerformIO (String
-> IO
     (FunPtr
        (GLfloat
         -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress "glOrthof")

{-# NOINLINE glOrthofFunPtr #-}