module Graphics.Rendering.OGL.GL.RasterPos (
currentRasterPosition, RasterPosComponent, RasterPos(..),
WindowPosComponent, WindowPos(..),
currentRasterDistance, currentRasterColor, currentRasterSecondaryColor,
currentRasterIndex, currentRasterTexCoords, currentRasterPositionValid,
rasterPositionUnclipped
) where
import Data.Int
import Foreign.Ptr ( Ptr, castPtr )
import Graphics.Rendering.OGL.Monad
import Graphics.Rendering.OGL.GL.BasicTypes (
GLshort, GLint, GLfloat, GLdouble, Capability )
import Graphics.Rendering.OGL.GL.GLboolean ( unmarshalGLboolean )
import Graphics.Rendering.OGL.GL.Capability (
EnableCap(CapRasterPositionUnclipped), makeCapability )
import Graphics.Rendering.OGL.GL.Extensions (
FunPtr, unsafePerformIO, Invoker, getProcAddress )
import Graphics.Rendering.OGL.GL.QueryUtils (
GetPName(GetCurrentRasterPosition,GetCurrentRasterDistance,
GetCurrentRasterColor,GetCurrentRasterSecondaryColor,
GetCurrentRasterIndex,GetCurrentRasterTextureCoords,
GetCurrentRasterPositionValid),
getBoolean1, getInteger1, getFloat1, getFloat4 )
import Graphics.Rendering.OGL.GL.StateVar (
GettableStateVar, makeGettableStateVar, StateVar, makeStateVar )
import Graphics.Rendering.OGL.GL.VertexSpec (
Vertex2(..), Vertex3(..), Vertex4(..), TexCoord4(..),
Color4(..), Index1(..) )
#include "HsOpenGLExt.h"
#include "HsOpenGLTypes.h"
currentRasterPosition :: StateVar (Vertex4 GLfloat)
currentRasterPosition =
makeStateVar (getFloat4 Vertex4 GetCurrentRasterPosition) (runGL . rasterPos)
class RasterPosComponent a where
rasterPos2 :: a -> a -> GL ()
rasterPos3 :: a -> a -> a -> GL ()
rasterPos4 :: a -> a -> a -> a -> GL ()
rasterPos2v :: Ptr a -> GL ()
rasterPos3v :: Ptr a -> GL ()
rasterPos4v :: Ptr a -> GL ()
foreign import CALLCONV unsafe "glRasterPos2s" glRasterPos2s ::
GLshort -> GLshort -> GL ()
foreign import CALLCONV unsafe "glRasterPos3s" glRasterPos3s ::
GLshort -> GLshort -> GLshort -> GL ()
foreign import CALLCONV unsafe "glRasterPos4s" glRasterPos4s ::
GLshort -> GLshort -> GLshort -> GLshort -> GL ()
foreign import CALLCONV unsafe "glRasterPos2sv" glRasterPos2sv ::
Ptr GLshort -> GL ()
foreign import CALLCONV unsafe "glRasterPos3sv" glRasterPos3sv ::
Ptr GLshort -> GL ()
foreign import CALLCONV unsafe "glRasterPos4sv" glRasterPos4sv ::
Ptr GLshort -> GL ()
instance RasterPosComponent GLshort_ where
rasterPos2 = glRasterPos2s
rasterPos3 = glRasterPos3s
rasterPos4 = glRasterPos4s
rasterPos2v = glRasterPos2sv
rasterPos3v = glRasterPos3sv
rasterPos4v = glRasterPos4sv
foreign import CALLCONV unsafe "glRasterPos2i" glRasterPos2i ::
GLint -> GLint -> GL ()
foreign import CALLCONV unsafe "glRasterPos3i" glRasterPos3i ::
GLint -> GLint -> GLint -> GL ()
foreign import CALLCONV unsafe "glRasterPos4i" glRasterPos4i ::
GLint -> GLint -> GLint -> GLint -> GL ()
foreign import CALLCONV unsafe "glRasterPos2iv" glRasterPos2iv ::
Ptr GLint -> GL ()
foreign import CALLCONV unsafe "glRasterPos3iv" glRasterPos3iv ::
Ptr GLint -> GL ()
foreign import CALLCONV unsafe "glRasterPos4iv" glRasterPos4iv ::
Ptr GLint -> GL ()
instance RasterPosComponent GLint_ where
rasterPos2 = glRasterPos2i
rasterPos3 = glRasterPos3i
rasterPos4 = glRasterPos4i
rasterPos2v = glRasterPos2iv
rasterPos3v = glRasterPos3iv
rasterPos4v = glRasterPos4iv
foreign import CALLCONV unsafe "glRasterPos2f" glRasterPos2f ::
GLfloat -> GLfloat -> GL ()
foreign import CALLCONV unsafe "glRasterPos3f" glRasterPos3f ::
GLfloat -> GLfloat -> GLfloat -> GL ()
foreign import CALLCONV unsafe "glRasterPos4f" glRasterPos4f ::
GLfloat -> GLfloat -> GLfloat -> GLfloat -> GL ()
foreign import CALLCONV unsafe "glRasterPos2fv" glRasterPos2fv ::
Ptr GLfloat -> GL ()
foreign import CALLCONV unsafe "glRasterPos3fv" glRasterPos3fv ::
Ptr GLfloat -> GL ()
foreign import CALLCONV unsafe "glRasterPos4fv" glRasterPos4fv ::
Ptr GLfloat -> GL ()
instance RasterPosComponent GLfloat_ where
rasterPos2 = glRasterPos2f
rasterPos3 = glRasterPos3f
rasterPos4 = glRasterPos4f
rasterPos2v = glRasterPos2fv
rasterPos3v = glRasterPos3fv
rasterPos4v = glRasterPos4fv
foreign import CALLCONV unsafe "glRasterPos2d" glRasterPos2d ::
GLdouble -> GLdouble -> GL ()
foreign import CALLCONV unsafe "glRasterPos3d" glRasterPos3d ::
GLdouble -> GLdouble -> GLdouble -> GL ()
foreign import CALLCONV unsafe "glRasterPos4d" glRasterPos4d ::
GLdouble -> GLdouble -> GLdouble -> GLdouble -> GL ()
foreign import CALLCONV unsafe "glRasterPos2dv" glRasterPos2dv ::
Ptr GLdouble -> GL ()
foreign import CALLCONV unsafe "glRasterPos3dv" glRasterPos3dv ::
Ptr GLdouble -> GL ()
foreign import CALLCONV unsafe "glRasterPos4dv" glRasterPos4dv ::
Ptr GLdouble -> GL ()
instance RasterPosComponent GLdouble_ where
rasterPos2 = glRasterPos2d
rasterPos3 = glRasterPos3d
rasterPos4 = glRasterPos4d
rasterPos2v = glRasterPos2dv
rasterPos3v = glRasterPos3dv
rasterPos4v = glRasterPos4dv
class RasterPos a where
rasterPos :: a -> GL ()
rasterPosv :: Ptr a -> GL ()
instance RasterPosComponent a => RasterPos (Vertex2 a) where
rasterPos (Vertex2 x y) = rasterPos2 x y
rasterPosv = rasterPos2v . (castPtr :: Ptr (Vertex2 b) -> Ptr b)
instance RasterPosComponent a => RasterPos (Vertex3 a) where
rasterPos (Vertex3 x y z) = rasterPos3 x y z
rasterPosv = rasterPos3v . (castPtr :: Ptr (Vertex3 b) -> Ptr b)
instance RasterPosComponent a => RasterPos (Vertex4 a) where
rasterPos (Vertex4 x y z w) = rasterPos4 x y z w
rasterPosv = rasterPos4v . (castPtr :: Ptr (Vertex4 b) -> Ptr b)
class WindowPosComponent a where
windowPos2 :: a -> a -> GL ()
windowPos3 :: a -> a -> a -> GL ()
windowPos2v :: Ptr a -> GL ()
windowPos3v :: Ptr a -> GL ()
EXTENSION_ENTRY("GL_ARB_window_pos or OpenGL 1.4",glWindowPos2sARB,GLshort -> GLshort -> GL ())
EXTENSION_ENTRY("GL_ARB_window_pos or OpenGL 1.4",glWindowPos3sARB,GLshort -> GLshort -> GLshort -> GL ())
EXTENSION_ENTRY("GL_ARB_window_pos or OpenGL 1.4",glWindowPos2svARB,Ptr GLshort -> GL ())
EXTENSION_ENTRY("GL_ARB_window_pos or OpenGL 1.4",glWindowPos3svARB,Ptr GLshort -> GL ())
instance WindowPosComponent GLshort_ where
windowPos2 = glWindowPos2sARB
windowPos3 = glWindowPos3sARB
windowPos2v = glWindowPos2svARB
windowPos3v = glWindowPos3svARB
EXTENSION_ENTRY("GL_ARB_window_pos or OpenGL 1.4",glWindowPos2iARB,GLint -> GLint -> GL ())
EXTENSION_ENTRY("GL_ARB_window_pos or OpenGL 1.4",glWindowPos3iARB,GLint -> GLint -> GLint -> GL ())
EXTENSION_ENTRY("GL_ARB_window_pos or OpenGL 1.4",glWindowPos2ivARB,Ptr GLint -> GL ())
EXTENSION_ENTRY("GL_ARB_window_pos or OpenGL 1.4",glWindowPos3ivARB,Ptr GLint -> GL ())
instance WindowPosComponent GLint_ where
windowPos2 = glWindowPos2iARB
windowPos3 = glWindowPos3iARB
windowPos2v = glWindowPos2ivARB
windowPos3v = glWindowPos3ivARB
EXTENSION_ENTRY("GL_ARB_window_pos or OpenGL 1.4",glWindowPos2fARB,GLfloat -> GLfloat -> GL ())
EXTENSION_ENTRY("GL_ARB_window_pos or OpenGL 1.4",glWindowPos3fARB,GLfloat -> GLfloat -> GLfloat -> GL ())
EXTENSION_ENTRY("GL_ARB_window_pos or OpenGL 1.4",glWindowPos2fvARB,Ptr GLfloat -> GL ())
EXTENSION_ENTRY("GL_ARB_window_pos or OpenGL 1.4",glWindowPos3fvARB,Ptr GLfloat -> GL ())
instance WindowPosComponent GLfloat_ where
windowPos2 = glWindowPos2fARB
windowPos3 = glWindowPos3fARB
windowPos2v = glWindowPos2fvARB
windowPos3v = glWindowPos3fvARB
EXTENSION_ENTRY("GL_ARB_window_pos or OpenGL 1.4",glWindowPos2dARB,GLdouble -> GLdouble -> GL ())
EXTENSION_ENTRY("GL_ARB_window_pos or OpenGL 1.4",glWindowPos3dARB,GLdouble -> GLdouble -> GLdouble -> GL ())
EXTENSION_ENTRY("GL_ARB_window_pos or OpenGL 1.4",glWindowPos2dvARB,Ptr GLdouble -> GL ())
EXTENSION_ENTRY("GL_ARB_window_pos or OpenGL 1.4",glWindowPos3dvARB,Ptr GLdouble -> GL ())
instance WindowPosComponent GLdouble_ where
windowPos2 = glWindowPos2dARB
windowPos3 = glWindowPos3dARB
windowPos2v = glWindowPos2dvARB
windowPos3v = glWindowPos3dvARB
class WindowPos a where
windowPos :: a -> GL ()
windowPosv :: Ptr a -> GL ()
instance WindowPosComponent a => WindowPos (Vertex2 a) where
windowPos (Vertex2 x y) = windowPos2 x y
windowPosv = windowPos2v . (castPtr :: Ptr (Vertex2 b) -> Ptr b)
instance WindowPosComponent a => WindowPos (Vertex3 a) where
windowPos (Vertex3 x y z) = windowPos3 x y z
windowPosv = windowPos3v . (castPtr :: Ptr (Vertex3 b) -> Ptr b)
currentRasterDistance :: GettableStateVar GLfloat
currentRasterDistance =
makeGettableStateVar (getFloat1 id GetCurrentRasterDistance)
currentRasterColor :: GettableStateVar (Color4 GLfloat)
currentRasterColor =
makeGettableStateVar (getFloat4 Color4 GetCurrentRasterColor)
currentRasterSecondaryColor :: GettableStateVar (Color4 GLfloat)
currentRasterSecondaryColor =
makeGettableStateVar (getFloat4 Color4 GetCurrentRasterSecondaryColor)
currentRasterIndex :: GettableStateVar (Index1 GLint)
currentRasterIndex =
makeGettableStateVar (getInteger1 Index1 GetCurrentRasterIndex)
currentRasterTexCoords :: GettableStateVar (TexCoord4 GLfloat)
currentRasterTexCoords =
makeGettableStateVar (getFloat4 TexCoord4 GetCurrentRasterTextureCoords)
currentRasterPositionValid :: GettableStateVar Bool
currentRasterPositionValid =
makeGettableStateVar
(getBoolean1 unmarshalGLboolean GetCurrentRasterPositionValid)
rasterPositionUnclipped :: StateVar Capability
rasterPositionUnclipped = makeCapability CapRasterPositionUnclipped