<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html> <head> <!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ --> <title>Graphics/Rendering/OpenGL/GL/Texturing/Parameters.hs</title> <link type='text/css' rel='stylesheet' href='hscolour.css' /> </head> <body> <pre><a name="line-1"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-2"></a><span class='hs-comment'>-- |</span> <a name="line-3"></a><span class='hs-comment'>-- Module : Graphics.Rendering.OpenGL.GL.Texturing.Parameters</span> <a name="line-4"></a><span class='hs-comment'>-- Copyright : (c) Sven Panne 2002-2009</span> <a name="line-5"></a><span class='hs-comment'>-- License : BSD-style (see the file libraries/OpenGL/LICENSE)</span> <a name="line-6"></a><span class='hs-comment'>-- </span> <a name="line-7"></a><span class='hs-comment'>-- Maintainer : sven.panne@aedion.de</span> <a name="line-8"></a><span class='hs-comment'>-- Stability : stable</span> <a name="line-9"></a><span class='hs-comment'>-- Portability : portable</span> <a name="line-10"></a><span class='hs-comment'>--</span> <a name="line-11"></a><span class='hs-comment'>-- This module corresponds to section 3.8.4 (Texture Parameters), section 3.8.7</span> <a name="line-12"></a><span class='hs-comment'>-- (Texture Wrap Mode), section 3.8.8 (Texture Minification), and section 3.8.9</span> <a name="line-13"></a><span class='hs-comment'>-- (Texture Magnification) of the OpenGL 2.1 specs.</span> <a name="line-14"></a><span class='hs-comment'>--</span> <a name="line-15"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-16"></a> <a name="line-17"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>OpenGL</span><span class='hs-varop'>.</span><span class='hs-conid'>GL</span><span class='hs-varop'>.</span><span class='hs-conid'>Texturing</span><span class='hs-varop'>.</span><span class='hs-conid'>Parameters</span> <span class='hs-layout'>(</span> <a name="line-18"></a> <span class='hs-conid'>TextureFilter</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>MinificationFilter</span><span class='hs-layout'>,</span> <span class='hs-conid'>MagnificationFilter</span><span class='hs-layout'>,</span> <span class='hs-varid'>textureFilter</span><span class='hs-layout'>,</span> <a name="line-19"></a> <span class='hs-conid'>Repetition</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>Clamping</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>textureWrapMode</span><span class='hs-layout'>,</span> <a name="line-20"></a> <span class='hs-varid'>textureBorderColor</span><span class='hs-layout'>,</span> <span class='hs-conid'>LOD</span><span class='hs-layout'>,</span> <span class='hs-varid'>textureObjectLODBias</span><span class='hs-layout'>,</span> <span class='hs-varid'>maxTextureLODBias</span><span class='hs-layout'>,</span> <a name="line-21"></a> <span class='hs-varid'>textureLODRange</span><span class='hs-layout'>,</span> <span class='hs-varid'>textureMaxAnisotropy</span><span class='hs-layout'>,</span> <span class='hs-varid'>maxTextureMaxAnisotropy</span><span class='hs-layout'>,</span> <a name="line-22"></a> <span class='hs-varid'>textureLevelRange</span><span class='hs-layout'>,</span> <span class='hs-varid'>generateMipmap</span><span class='hs-layout'>,</span> <span class='hs-varid'>depthTextureMode</span><span class='hs-layout'>,</span> <span class='hs-varid'>textureCompareMode</span><span class='hs-layout'>,</span> <a name="line-23"></a> <span class='hs-varid'>textureCompareFailValue</span><span class='hs-layout'>,</span> <span class='hs-conid'>TextureCompareOperator</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>textureCompareOperator</span> <a name="line-24"></a><span class='hs-layout'>)</span> <span class='hs-keyword'>where</span> <a name="line-25"></a> <a name="line-26"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>OpenGL</span><span class='hs-varop'>.</span><span class='hs-conid'>GL</span><span class='hs-varop'>.</span><span class='hs-conid'>BasicTypes</span> <span class='hs-layout'>(</span> <a name="line-27"></a> <span class='hs-conid'>GLint</span><span class='hs-layout'>,</span> <span class='hs-conid'>GLfloat</span><span class='hs-layout'>,</span> <span class='hs-conid'>GLclampf</span><span class='hs-layout'>,</span> <span class='hs-conid'>Capability</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span> <a name="line-28"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>OpenGL</span><span class='hs-varop'>.</span><span class='hs-conid'>GL</span><span class='hs-varop'>.</span><span class='hs-conid'>Capability</span> <span class='hs-layout'>(</span> <a name="line-29"></a> <span class='hs-varid'>marshalCapability</span><span class='hs-layout'>,</span> <span class='hs-varid'>unmarshalCapability</span> <span class='hs-layout'>)</span> <a name="line-30"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>OpenGL</span><span class='hs-varop'>.</span><span class='hs-conid'>GL</span><span class='hs-varop'>.</span><span class='hs-conid'>ComparisonFunction</span> <span class='hs-layout'>(</span> <a name="line-31"></a> <span class='hs-varid'>marshalComparisonFunction</span><span class='hs-layout'>,</span> <span class='hs-varid'>unmarshalComparisonFunction</span> <span class='hs-layout'>)</span> <a name="line-32"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>OpenGL</span><span class='hs-varop'>.</span><span class='hs-conid'>GL</span><span class='hs-varop'>.</span><span class='hs-conid'>CoordTrans</span> <span class='hs-layout'>(</span> <span class='hs-conid'>TextureCoordName</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span> <a name="line-33"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>OpenGL</span><span class='hs-varop'>.</span><span class='hs-conid'>GL</span><span class='hs-varop'>.</span><span class='hs-conid'>PerFragment</span> <span class='hs-layout'>(</span> <span class='hs-conid'>ComparisonFunction</span> <span class='hs-layout'>)</span> <a name="line-34"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>OpenGL</span><span class='hs-varop'>.</span><span class='hs-conid'>GL</span><span class='hs-varop'>.</span><span class='hs-conid'>PixelRectangles</span> <span class='hs-layout'>(</span> <a name="line-35"></a> <span class='hs-conid'>PixelInternalFormat</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span> <a name="line-36"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>OpenGL</span><span class='hs-varop'>.</span><span class='hs-conid'>GL</span><span class='hs-varop'>.</span><span class='hs-conid'>QueryUtils</span> <span class='hs-layout'>(</span> <a name="line-37"></a> <span class='hs-conid'>GetPName</span><span class='hs-layout'>(</span><span class='hs-conid'>GetMaxTextureMaxAnisotropy</span><span class='hs-layout'>,</span><span class='hs-conid'>GetMaxTextureLODBias</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>getFloat1</span><span class='hs-layout'>)</span> <a name="line-38"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>OpenGL</span><span class='hs-varop'>.</span><span class='hs-conid'>GL</span><span class='hs-varop'>.</span><span class='hs-conid'>StateVar</span> <span class='hs-layout'>(</span> <a name="line-39"></a> <span class='hs-conid'>GettableStateVar</span><span class='hs-layout'>,</span> <span class='hs-varid'>makeGettableStateVar</span><span class='hs-layout'>,</span> <a name="line-40"></a> <span class='hs-conid'>StateVar</span><span class='hs-layout'>,</span> <span class='hs-varid'>makeStateVar</span> <span class='hs-layout'>)</span> <a name="line-41"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>OpenGL</span><span class='hs-varop'>.</span><span class='hs-conid'>GL</span><span class='hs-varop'>.</span><span class='hs-conid'>Texturing</span><span class='hs-varop'>.</span><span class='hs-conid'>Specification</span> <span class='hs-layout'>(</span> <a name="line-42"></a> <span class='hs-conid'>Level</span><span class='hs-layout'>,</span> <span class='hs-conid'>TextureTarget</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span> <a name="line-43"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>OpenGL</span><span class='hs-varop'>.</span><span class='hs-conid'>GL</span><span class='hs-varop'>.</span><span class='hs-conid'>Texturing</span><span class='hs-varop'>.</span><span class='hs-conid'>TexParameter</span> <span class='hs-layout'>(</span> <a name="line-44"></a> <span class='hs-conid'>TexParameter</span><span class='hs-layout'>(</span><span class='hs-conid'>TextureMinFilter</span><span class='hs-layout'>,</span><span class='hs-conid'>TextureMagFilter</span><span class='hs-layout'>,</span><span class='hs-conid'>TextureWrapS</span><span class='hs-layout'>,</span><span class='hs-conid'>TextureWrapT</span><span class='hs-layout'>,</span> <a name="line-45"></a> <span class='hs-conid'>TextureWrapR</span><span class='hs-layout'>,</span><span class='hs-conid'>TextureBorderColor</span><span class='hs-layout'>,</span><span class='hs-conid'>TextureMinLOD</span><span class='hs-layout'>,</span><span class='hs-conid'>TextureMaxLOD</span><span class='hs-layout'>,</span> <a name="line-46"></a> <span class='hs-conid'>TextureBaseLevel</span><span class='hs-layout'>,</span><span class='hs-conid'>TextureMaxLevel</span><span class='hs-layout'>,</span><span class='hs-conid'>TextureMaxAnisotropy</span><span class='hs-layout'>,</span> <a name="line-47"></a> <span class='hs-conid'>TextureLODBias</span><span class='hs-layout'>,</span><span class='hs-conid'>GenerateMipmap</span><span class='hs-layout'>,</span><span class='hs-conid'>DepthTextureMode</span><span class='hs-layout'>,</span> <a name="line-48"></a> <span class='hs-conid'>TextureCompareMode</span><span class='hs-layout'>,</span><span class='hs-conid'>TextureCompareFunc</span><span class='hs-layout'>,</span><span class='hs-conid'>TextureCompareFailValue</span><span class='hs-layout'>,</span> <a name="line-49"></a> <span class='hs-conid'>TextureCompare</span><span class='hs-layout'>,</span><span class='hs-conid'>TextureCompareOperator</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-50"></a> <span class='hs-varid'>texParami</span><span class='hs-layout'>,</span> <span class='hs-varid'>texParamf</span><span class='hs-layout'>,</span> <span class='hs-varid'>texParamC4f</span><span class='hs-layout'>,</span> <span class='hs-varid'>combineTexParams</span><span class='hs-layout'>,</span> <span class='hs-varid'>combineTexParamsMaybe</span> <span class='hs-layout'>)</span> <a name="line-51"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>OpenGL</span><span class='hs-varop'>.</span><span class='hs-conid'>GL</span><span class='hs-varop'>.</span><span class='hs-conid'>Texturing</span><span class='hs-varop'>.</span><span class='hs-conid'>PixelInternalFormat</span> <span class='hs-layout'>(</span> <a name="line-52"></a> <span class='hs-varid'>marshalPixelInternalFormat</span><span class='hs-layout'>,</span> <span class='hs-varid'>unmarshalPixelInternalFormat</span> <span class='hs-layout'>)</span> <a name="line-53"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>OpenGL</span><span class='hs-varop'>.</span><span class='hs-conid'>GL</span><span class='hs-varop'>.</span><span class='hs-conid'>VertexSpec</span><span class='hs-layout'>(</span> <span class='hs-conid'>Color4</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span> <a name="line-54"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>OpenGL</span><span class='hs-varop'>.</span><span class='hs-conid'>GLU</span><span class='hs-varop'>.</span><span class='hs-conid'>ErrorsInternal</span> <span class='hs-layout'>(</span> <span class='hs-varid'>recordInvalidEnum</span> <span class='hs-layout'>)</span> <a name="line-55"></a> <a name="line-56"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-57"></a> <a name="line-58"></a><a name="TextureFilter"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>TextureFilter</span> <span class='hs-keyglyph'>=</span> <a name="line-59"></a> <span class='hs-conid'>Nearest</span> <a name="line-60"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Linear'</span> <a name="line-61"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span> <span class='hs-conid'>Eq</span><span class='hs-layout'>,</span> <span class='hs-conid'>Ord</span><span class='hs-layout'>,</span> <span class='hs-conid'>Show</span> <span class='hs-layout'>)</span> <a name="line-62"></a> <a name="line-63"></a><a name="MinificationFilter"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>MinificationFilter</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>TextureFilter</span><span class='hs-layout'>,</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>TextureFilter</span><span class='hs-layout'>)</span> <a name="line-64"></a> <a name="line-65"></a><a name="MagnificationFilter"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>MagnificationFilter</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>TextureFilter</span> <a name="line-66"></a> <a name="line-67"></a><a name="magToMin"></a><span class='hs-comment'>-- We treat MagnificationFilter as a degenerated case of MinificationFilter</span> <a name="line-68"></a><span class='hs-definition'>magToMin</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>MagnificationFilter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>MinificationFilter</span> <a name="line-69"></a><span class='hs-definition'>magToMin</span> <span class='hs-varid'>magFilter</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>magFilter</span><span class='hs-layout'>,</span> <span class='hs-conid'>Nothing</span><span class='hs-layout'>)</span> <a name="line-70"></a> <a name="line-71"></a><a name="minToMag"></a><span class='hs-definition'>minToMag</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>MinificationFilter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>MagnificationFilter</span> <a name="line-72"></a><span class='hs-definition'>minToMag</span> <span class='hs-layout'>(</span><span class='hs-varid'>magFilter</span><span class='hs-layout'>,</span> <span class='hs-conid'>Nothing</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>magFilter</span> <a name="line-73"></a><span class='hs-definition'>minToMag</span> <span class='hs-varid'>minFilter</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-layout'>(</span><span class='hs-str'>"minToMag: illegal value "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>show</span> <span class='hs-varid'>minFilter</span><span class='hs-layout'>)</span> <a name="line-74"></a> <a name="line-75"></a><a name="marshalMinificationFilter"></a><span class='hs-definition'>marshalMinificationFilter</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>MinificationFilter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>GLint</span> <a name="line-76"></a><span class='hs-definition'>marshalMinificationFilter</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>x</span> <span class='hs-keyword'>of</span> <a name="line-77"></a> <span class='hs-layout'>(</span><span class='hs-conid'>Nearest</span><span class='hs-layout'>,</span> <span class='hs-conid'>Nothing</span> <span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0x2600</span> <a name="line-78"></a> <span class='hs-layout'>(</span><span class='hs-conid'>Linear'</span><span class='hs-layout'>,</span> <span class='hs-conid'>Nothing</span> <span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0x2601</span> <a name="line-79"></a> <span class='hs-layout'>(</span><span class='hs-conid'>Nearest</span><span class='hs-layout'>,</span> <span class='hs-conid'>Just</span> <span class='hs-conid'>Nearest</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0x2700</span> <a name="line-80"></a> <span class='hs-layout'>(</span><span class='hs-conid'>Linear'</span><span class='hs-layout'>,</span> <span class='hs-conid'>Just</span> <span class='hs-conid'>Nearest</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0x2701</span> <a name="line-81"></a> <span class='hs-layout'>(</span><span class='hs-conid'>Nearest</span><span class='hs-layout'>,</span> <span class='hs-conid'>Just</span> <span class='hs-conid'>Linear'</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0x2702</span> <a name="line-82"></a> <span class='hs-layout'>(</span><span class='hs-conid'>Linear'</span><span class='hs-layout'>,</span> <span class='hs-conid'>Just</span> <span class='hs-conid'>Linear'</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0x2703</span> <a name="line-83"></a> <a name="line-84"></a><a name="marshalMagnificationFilter"></a><span class='hs-definition'>marshalMagnificationFilter</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>MagnificationFilter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>GLint</span> <a name="line-85"></a><span class='hs-definition'>marshalMagnificationFilter</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>marshalMinificationFilter</span> <span class='hs-varop'>.</span> <span class='hs-varid'>magToMin</span> <a name="line-86"></a> <a name="line-87"></a><a name="unmarshalMinificationFilter"></a><span class='hs-definition'>unmarshalMinificationFilter</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>GLint</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>MinificationFilter</span> <a name="line-88"></a><span class='hs-definition'>unmarshalMinificationFilter</span> <span class='hs-varid'>x</span> <a name="line-89"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-num'>0x2600</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>Nearest</span><span class='hs-layout'>,</span> <span class='hs-conid'>Nothing</span> <span class='hs-layout'>)</span> <a name="line-90"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-num'>0x2601</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>Linear'</span><span class='hs-layout'>,</span> <span class='hs-conid'>Nothing</span> <span class='hs-layout'>)</span> <a name="line-91"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-num'>0x2700</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>Nearest</span><span class='hs-layout'>,</span> <span class='hs-conid'>Just</span> <span class='hs-conid'>Nearest</span><span class='hs-layout'>)</span> <a name="line-92"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-num'>0x2701</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>Linear'</span><span class='hs-layout'>,</span> <span class='hs-conid'>Just</span> <span class='hs-conid'>Nearest</span><span class='hs-layout'>)</span> <a name="line-93"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-num'>0x2702</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>Nearest</span><span class='hs-layout'>,</span> <span class='hs-conid'>Just</span> <span class='hs-conid'>Linear'</span><span class='hs-layout'>)</span> <a name="line-94"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-num'>0x2703</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>Linear'</span><span class='hs-layout'>,</span> <span class='hs-conid'>Just</span> <span class='hs-conid'>Linear'</span><span class='hs-layout'>)</span> <a name="line-95"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-layout'>(</span><span class='hs-str'>"unmarshalMinificationFilter: illegal value "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>show</span> <span class='hs-varid'>x</span><span class='hs-layout'>)</span> <a name="line-96"></a> <a name="line-97"></a><a name="unmarshalMagnificationFilter"></a><span class='hs-definition'>unmarshalMagnificationFilter</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>GLint</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>MagnificationFilter</span> <a name="line-98"></a><span class='hs-definition'>unmarshalMagnificationFilter</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>minToMag</span> <span class='hs-varop'>.</span> <span class='hs-varid'>unmarshalMinificationFilter</span> <a name="line-99"></a> <a name="line-100"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-101"></a> <a name="line-102"></a><a name="textureFilter"></a><span class='hs-definition'>textureFilter</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TextureTarget</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StateVar</span> <span class='hs-layout'>(</span><span class='hs-conid'>MinificationFilter</span><span class='hs-layout'>,</span> <span class='hs-conid'>MagnificationFilter</span><span class='hs-layout'>)</span> <a name="line-103"></a><span class='hs-definition'>textureFilter</span> <span class='hs-keyglyph'>=</span> <a name="line-104"></a> <span class='hs-varid'>combineTexParams</span> <a name="line-105"></a> <span class='hs-layout'>(</span><span class='hs-varid'>texParami</span> <span class='hs-varid'>unmarshalMinificationFilter</span> <span class='hs-varid'>marshalMinificationFilter</span> <span class='hs-conid'>TextureMinFilter</span><span class='hs-layout'>)</span> <a name="line-106"></a> <span class='hs-layout'>(</span><span class='hs-varid'>texParami</span> <span class='hs-varid'>unmarshalMagnificationFilter</span> <span class='hs-varid'>marshalMagnificationFilter</span> <span class='hs-conid'>TextureMagFilter</span><span class='hs-layout'>)</span> <a name="line-107"></a> <a name="line-108"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-109"></a> <a name="line-110"></a><a name="Repetition"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>Repetition</span> <span class='hs-keyglyph'>=</span> <a name="line-111"></a> <span class='hs-conid'>Repeated</span> <a name="line-112"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Mirrored</span> <a name="line-113"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span> <span class='hs-conid'>Eq</span><span class='hs-layout'>,</span> <span class='hs-conid'>Ord</span><span class='hs-layout'>,</span> <span class='hs-conid'>Show</span> <span class='hs-layout'>)</span> <a name="line-114"></a> <a name="line-115"></a><a name="Clamping"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>Clamping</span> <span class='hs-keyglyph'>=</span> <a name="line-116"></a> <span class='hs-conid'>Clamp</span> <a name="line-117"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Repeat</span> <a name="line-118"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>ClampToEdge</span> <a name="line-119"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>ClampToBorder</span> <a name="line-120"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span> <span class='hs-conid'>Eq</span><span class='hs-layout'>,</span> <span class='hs-conid'>Ord</span><span class='hs-layout'>,</span> <span class='hs-conid'>Show</span> <span class='hs-layout'>)</span> <a name="line-121"></a> <a name="line-122"></a><a name="marshalTextureWrapMode"></a><span class='hs-definition'>marshalTextureWrapMode</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>Repetition</span><span class='hs-layout'>,</span> <span class='hs-conid'>Clamping</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>GLint</span> <a name="line-123"></a><span class='hs-definition'>marshalTextureWrapMode</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>x</span> <span class='hs-keyword'>of</span> <a name="line-124"></a> <span class='hs-layout'>(</span><span class='hs-conid'>Repeated</span><span class='hs-layout'>,</span> <span class='hs-conid'>Clamp</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0x2900</span> <a name="line-125"></a> <span class='hs-layout'>(</span><span class='hs-conid'>Repeated</span><span class='hs-layout'>,</span> <span class='hs-conid'>Repeat</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0x2901</span> <a name="line-126"></a> <span class='hs-layout'>(</span><span class='hs-conid'>Repeated</span><span class='hs-layout'>,</span> <span class='hs-conid'>ClampToEdge</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0x812f</span> <a name="line-127"></a> <span class='hs-layout'>(</span><span class='hs-conid'>Repeated</span><span class='hs-layout'>,</span> <span class='hs-conid'>ClampToBorder</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0x812d</span> <a name="line-128"></a> <span class='hs-layout'>(</span><span class='hs-conid'>Mirrored</span><span class='hs-layout'>,</span> <span class='hs-conid'>Clamp</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0x8742</span> <a name="line-129"></a> <span class='hs-layout'>(</span><span class='hs-conid'>Mirrored</span><span class='hs-layout'>,</span> <span class='hs-conid'>Repeat</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0x8370</span> <a name="line-130"></a> <span class='hs-layout'>(</span><span class='hs-conid'>Mirrored</span><span class='hs-layout'>,</span> <span class='hs-conid'>ClampToEdge</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0x8743</span> <a name="line-131"></a> <span class='hs-layout'>(</span><span class='hs-conid'>Mirrored</span><span class='hs-layout'>,</span> <span class='hs-conid'>ClampToBorder</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0x8912</span> <a name="line-132"></a> <a name="line-133"></a><a name="unmarshalTextureWrapMode"></a><span class='hs-definition'>unmarshalTextureWrapMode</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>GLint</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>Repetition</span><span class='hs-layout'>,</span> <span class='hs-conid'>Clamping</span><span class='hs-layout'>)</span> <a name="line-134"></a><span class='hs-definition'>unmarshalTextureWrapMode</span> <span class='hs-varid'>x</span> <a name="line-135"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-num'>0x2900</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>Repeated</span><span class='hs-layout'>,</span> <span class='hs-conid'>Clamp</span><span class='hs-layout'>)</span> <a name="line-136"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-num'>0x2901</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>Repeated</span><span class='hs-layout'>,</span> <span class='hs-conid'>Repeat</span><span class='hs-layout'>)</span> <a name="line-137"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-num'>0x812f</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>Repeated</span><span class='hs-layout'>,</span> <span class='hs-conid'>ClampToEdge</span><span class='hs-layout'>)</span> <a name="line-138"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-num'>0x812d</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>Repeated</span><span class='hs-layout'>,</span> <span class='hs-conid'>ClampToBorder</span><span class='hs-layout'>)</span> <a name="line-139"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-num'>0x8742</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>Mirrored</span><span class='hs-layout'>,</span> <span class='hs-conid'>Clamp</span><span class='hs-layout'>)</span> <a name="line-140"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-num'>0x8370</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>Mirrored</span><span class='hs-layout'>,</span> <span class='hs-conid'>Repeat</span><span class='hs-layout'>)</span> <a name="line-141"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-num'>0x8743</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>Mirrored</span><span class='hs-layout'>,</span> <span class='hs-conid'>ClampToEdge</span><span class='hs-layout'>)</span> <a name="line-142"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-num'>0x8912</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>Mirrored</span><span class='hs-layout'>,</span> <span class='hs-conid'>ClampToBorder</span><span class='hs-layout'>)</span> <a name="line-143"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-layout'>(</span><span class='hs-str'>"unmarshalTextureWrapMode: illegal value "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>show</span> <span class='hs-varid'>x</span><span class='hs-layout'>)</span> <a name="line-144"></a> <a name="line-145"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-146"></a> <a name="line-147"></a><a name="textureWrapMode"></a><span class='hs-definition'>textureWrapMode</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TextureTarget</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TextureCoordName</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StateVar</span> <span class='hs-layout'>(</span><span class='hs-conid'>Repetition</span><span class='hs-layout'>,</span><span class='hs-conid'>Clamping</span><span class='hs-layout'>)</span> <a name="line-148"></a><span class='hs-definition'>textureWrapMode</span> <span class='hs-varid'>t</span> <span class='hs-varid'>coord</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>coord</span> <span class='hs-keyword'>of</span> <a name="line-149"></a> <span class='hs-conid'>S</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>wrap</span> <span class='hs-conid'>TextureWrapS</span> <a name="line-150"></a> <span class='hs-conid'>T</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>wrap</span> <span class='hs-conid'>TextureWrapT</span> <a name="line-151"></a> <span class='hs-conid'>R</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>wrap</span> <span class='hs-conid'>TextureWrapR</span> <a name="line-152"></a> <span class='hs-conid'>Q</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>invalidTextureCoord</span> <a name="line-153"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>wrap</span> <span class='hs-varid'>c</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>texParami</span> <span class='hs-varid'>unmarshalTextureWrapMode</span> <span class='hs-varid'>marshalTextureWrapMode</span> <span class='hs-varid'>c</span> <span class='hs-varid'>t</span> <a name="line-154"></a> <a name="line-155"></a><a name="invalidTextureCoord"></a><span class='hs-definition'>invalidTextureCoord</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StateVar</span> <span class='hs-layout'>(</span><span class='hs-conid'>Repetition</span><span class='hs-layout'>,</span><span class='hs-conid'>Clamping</span><span class='hs-layout'>)</span> <a name="line-156"></a><span class='hs-definition'>invalidTextureCoord</span> <span class='hs-keyglyph'>=</span> <a name="line-157"></a> <span class='hs-varid'>makeStateVar</span> <a name="line-158"></a> <span class='hs-layout'>(</span><span class='hs-keyword'>do</span> <span class='hs-varid'>recordInvalidEnum</span><span class='hs-layout'>;</span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>Repeated</span><span class='hs-layout'>,</span> <span class='hs-conid'>Repeat</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-159"></a> <span class='hs-layout'>(</span><span class='hs-varid'>const</span> <span class='hs-varid'>recordInvalidEnum</span><span class='hs-layout'>)</span> <a name="line-160"></a> <a name="line-161"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-162"></a> <a name="line-163"></a><a name="textureBorderColor"></a><span class='hs-definition'>textureBorderColor</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TextureTarget</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StateVar</span> <span class='hs-layout'>(</span><span class='hs-conid'>Color4</span> <span class='hs-conid'>GLfloat</span><span class='hs-layout'>)</span> <a name="line-164"></a><span class='hs-definition'>textureBorderColor</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>texParamC4f</span> <span class='hs-conid'>TextureBorderColor</span> <a name="line-165"></a> <a name="line-166"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-167"></a> <a name="line-168"></a><a name="LOD"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>LOD</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>GLfloat</span> <a name="line-169"></a> <a name="line-170"></a><a name="textureObjectLODBias"></a><span class='hs-definition'>textureObjectLODBias</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TextureTarget</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StateVar</span> <span class='hs-conid'>LOD</span> <a name="line-171"></a><span class='hs-definition'>textureObjectLODBias</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>texParamf</span> <span class='hs-varid'>id</span> <span class='hs-varid'>id</span> <span class='hs-conid'>TextureLODBias</span> <a name="line-172"></a> <a name="line-173"></a><a name="maxTextureLODBias"></a><span class='hs-definition'>maxTextureLODBias</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>GettableStateVar</span> <span class='hs-conid'>LOD</span> <a name="line-174"></a><span class='hs-definition'>maxTextureLODBias</span> <span class='hs-keyglyph'>=</span> <a name="line-175"></a> <span class='hs-varid'>makeGettableStateVar</span> <span class='hs-layout'>(</span><span class='hs-varid'>getFloat1</span> <span class='hs-varid'>id</span> <span class='hs-conid'>GetMaxTextureLODBias</span><span class='hs-layout'>)</span> <a name="line-176"></a> <a name="line-177"></a><a name="textureLODRange"></a><span class='hs-definition'>textureLODRange</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TextureTarget</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StateVar</span> <span class='hs-layout'>(</span><span class='hs-conid'>LOD</span><span class='hs-layout'>,</span><span class='hs-conid'>LOD</span><span class='hs-layout'>)</span> <a name="line-178"></a><span class='hs-definition'>textureLODRange</span> <span class='hs-keyglyph'>=</span> <a name="line-179"></a> <span class='hs-varid'>combineTexParams</span> <a name="line-180"></a> <span class='hs-layout'>(</span><span class='hs-varid'>texParamf</span> <span class='hs-varid'>id</span> <span class='hs-varid'>id</span> <span class='hs-conid'>TextureMinLOD</span><span class='hs-layout'>)</span> <a name="line-181"></a> <span class='hs-layout'>(</span><span class='hs-varid'>texParamf</span> <span class='hs-varid'>id</span> <span class='hs-varid'>id</span> <span class='hs-conid'>TextureMaxLOD</span><span class='hs-layout'>)</span> <a name="line-182"></a> <a name="line-183"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-184"></a> <a name="line-185"></a><a name="textureMaxAnisotropy"></a><span class='hs-definition'>textureMaxAnisotropy</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TextureTarget</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StateVar</span> <span class='hs-conid'>GLfloat</span> <a name="line-186"></a><span class='hs-definition'>textureMaxAnisotropy</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>texParamf</span> <span class='hs-varid'>id</span> <span class='hs-varid'>id</span> <span class='hs-conid'>TextureMaxAnisotropy</span> <a name="line-187"></a> <a name="line-188"></a><a name="maxTextureMaxAnisotropy"></a><span class='hs-definition'>maxTextureMaxAnisotropy</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>GettableStateVar</span> <span class='hs-conid'>GLfloat</span> <a name="line-189"></a><span class='hs-definition'>maxTextureMaxAnisotropy</span> <span class='hs-keyglyph'>=</span> <a name="line-190"></a> <span class='hs-varid'>makeGettableStateVar</span> <span class='hs-layout'>(</span><span class='hs-varid'>getFloat1</span> <span class='hs-varid'>id</span> <span class='hs-conid'>GetMaxTextureMaxAnisotropy</span><span class='hs-layout'>)</span> <a name="line-191"></a> <a name="line-192"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-193"></a> <a name="line-194"></a><a name="textureLevelRange"></a><span class='hs-definition'>textureLevelRange</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TextureTarget</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StateVar</span> <span class='hs-layout'>(</span><span class='hs-conid'>Level</span><span class='hs-layout'>,</span><span class='hs-conid'>Level</span><span class='hs-layout'>)</span> <a name="line-195"></a><span class='hs-definition'>textureLevelRange</span> <span class='hs-keyglyph'>=</span> <a name="line-196"></a> <span class='hs-varid'>combineTexParams</span> <a name="line-197"></a> <span class='hs-layout'>(</span><span class='hs-varid'>texParami</span> <span class='hs-varid'>id</span> <span class='hs-varid'>id</span> <span class='hs-conid'>TextureBaseLevel</span><span class='hs-layout'>)</span> <a name="line-198"></a> <span class='hs-layout'>(</span><span class='hs-varid'>texParami</span> <span class='hs-varid'>id</span> <span class='hs-varid'>id</span> <span class='hs-conid'>TextureMaxLevel</span><span class='hs-layout'>)</span> <a name="line-199"></a> <a name="line-200"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-201"></a> <a name="line-202"></a><a name="generateMipmap"></a><span class='hs-definition'>generateMipmap</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TextureTarget</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StateVar</span> <span class='hs-conid'>Capability</span> <a name="line-203"></a><span class='hs-definition'>generateMipmap</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>texParami</span> <span class='hs-varid'>unmarshal</span> <span class='hs-varid'>marshal</span> <span class='hs-conid'>GenerateMipmap</span> <a name="line-204"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>unmarshal</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unmarshalCapability</span> <span class='hs-varop'>.</span> <span class='hs-varid'>fromIntegral</span> <a name="line-205"></a> <span class='hs-varid'>marshal</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>.</span> <span class='hs-varid'>marshalCapability</span> <a name="line-206"></a> <a name="line-207"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-208"></a> <a name="line-209"></a><a name="depthTextureMode"></a><span class='hs-comment'>-- Only Luminance', Intensity, and Alpha' allowed</span> <a name="line-210"></a><span class='hs-definition'>depthTextureMode</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TextureTarget</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StateVar</span> <span class='hs-conid'>PixelInternalFormat</span> <a name="line-211"></a><span class='hs-definition'>depthTextureMode</span> <span class='hs-keyglyph'>=</span> <a name="line-212"></a> <span class='hs-varid'>texParami</span> <span class='hs-varid'>unmarshalPixelInternalFormat</span> <span class='hs-varid'>marshalPixelInternalFormat</span> <span class='hs-conid'>DepthTextureMode</span> <a name="line-213"></a> <a name="line-214"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-215"></a> <a name="line-216"></a><a name="marshalTextureCompareMode"></a><span class='hs-definition'>marshalTextureCompareMode</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Capability</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>GLint</span> <a name="line-217"></a><span class='hs-definition'>marshalTextureCompareMode</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>x</span> <span class='hs-keyword'>of</span> <a name="line-218"></a> <span class='hs-conid'>Disabled</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0x0</span> <span class='hs-comment'>-- i.e. None</span> <a name="line-219"></a> <span class='hs-conid'>Enabled</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0x884e</span> <span class='hs-comment'>-- i.e. CompareRToTexture</span> <a name="line-220"></a> <a name="line-221"></a><a name="unmarshalTextureCompareMode"></a><span class='hs-definition'>unmarshalTextureCompareMode</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>GLint</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Capability</span> <a name="line-222"></a><span class='hs-definition'>unmarshalTextureCompareMode</span> <span class='hs-varid'>x</span> <a name="line-223"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-num'>0x0</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Disabled</span> <a name="line-224"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-num'>0x884e</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Enabled</span> <a name="line-225"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-layout'>(</span><span class='hs-str'>"unmarshalTextureCompareMode: illegal value "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>show</span> <span class='hs-varid'>x</span><span class='hs-layout'>)</span> <a name="line-226"></a> <a name="line-227"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-228"></a> <a name="line-229"></a><a name="textureCompareMode"></a><span class='hs-definition'>textureCompareMode</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TextureTarget</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StateVar</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-conid'>ComparisonFunction</span><span class='hs-layout'>)</span> <a name="line-230"></a><span class='hs-definition'>textureCompareMode</span> <span class='hs-keyglyph'>=</span> <a name="line-231"></a> <span class='hs-varid'>combineTexParamsMaybe</span> <a name="line-232"></a> <span class='hs-layout'>(</span><span class='hs-varid'>texParami</span> <span class='hs-varid'>unmarshalTextureCompareMode</span> <span class='hs-varid'>marshalTextureCompareMode</span> <span class='hs-conid'>TextureCompareMode</span><span class='hs-layout'>)</span> <a name="line-233"></a> <span class='hs-layout'>(</span><span class='hs-varid'>texParami</span> <span class='hs-varid'>unmarshal</span> <span class='hs-varid'>marshal</span> <span class='hs-conid'>TextureCompareFunc</span><span class='hs-layout'>)</span> <a name="line-234"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>unmarshal</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unmarshalComparisonFunction</span> <span class='hs-varop'>.</span> <span class='hs-varid'>fromIntegral</span> <a name="line-235"></a> <span class='hs-varid'>marshal</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>.</span> <span class='hs-varid'>marshalComparisonFunction</span> <a name="line-236"></a> <a name="line-237"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-238"></a> <a name="line-239"></a><a name="textureCompareFailValue"></a><span class='hs-definition'>textureCompareFailValue</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TextureTarget</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StateVar</span> <span class='hs-conid'>GLclampf</span> <a name="line-240"></a><span class='hs-definition'>textureCompareFailValue</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>texParamf</span> <span class='hs-varid'>id</span> <span class='hs-varid'>id</span> <span class='hs-conid'>TextureCompareFailValue</span> <a name="line-241"></a> <a name="line-242"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-243"></a> <a name="line-244"></a><a name="TextureCompareOperator"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>TextureCompareOperator</span> <span class='hs-keyglyph'>=</span> <a name="line-245"></a> <span class='hs-conid'>LequalR</span> <a name="line-246"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>GequalR</span> <a name="line-247"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span> <span class='hs-conid'>Eq</span><span class='hs-layout'>,</span> <span class='hs-conid'>Ord</span><span class='hs-layout'>,</span> <span class='hs-conid'>Show</span> <span class='hs-layout'>)</span> <a name="line-248"></a> <a name="line-249"></a><a name="marshalTextureCompareOperator"></a><span class='hs-definition'>marshalTextureCompareOperator</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TextureCompareOperator</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>GLint</span> <a name="line-250"></a><span class='hs-definition'>marshalTextureCompareOperator</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>x</span> <span class='hs-keyword'>of</span> <a name="line-251"></a> <span class='hs-conid'>LequalR</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0x819c</span> <a name="line-252"></a> <span class='hs-conid'>GequalR</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0x819d</span> <a name="line-253"></a> <a name="line-254"></a><a name="unmarshalTextureCompareOperator"></a><span class='hs-definition'>unmarshalTextureCompareOperator</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>GLint</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TextureCompareOperator</span> <a name="line-255"></a><span class='hs-definition'>unmarshalTextureCompareOperator</span> <span class='hs-varid'>x</span> <a name="line-256"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-num'>0x819c</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>LequalR</span> <a name="line-257"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-num'>0x819d</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>GequalR</span> <a name="line-258"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-layout'>(</span><span class='hs-str'>"unmarshalTextureCompareOperator: illegal value "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>show</span> <span class='hs-varid'>x</span><span class='hs-layout'>)</span> <a name="line-259"></a> <a name="line-260"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-261"></a> <a name="line-262"></a><a name="textureCompareOperator"></a><span class='hs-definition'>textureCompareOperator</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TextureTarget</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StateVar</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-conid'>TextureCompareOperator</span><span class='hs-layout'>)</span> <a name="line-263"></a><span class='hs-definition'>textureCompareOperator</span> <span class='hs-keyglyph'>=</span> <a name="line-264"></a> <span class='hs-varid'>combineTexParamsMaybe</span> <a name="line-265"></a> <span class='hs-layout'>(</span><span class='hs-varid'>texParami</span> <span class='hs-layout'>(</span><span class='hs-varid'>unmarshalCapability</span> <span class='hs-varop'>.</span> <span class='hs-varid'>fromIntegral</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span><span class='hs-varop'>.</span> <span class='hs-varid'>marshalCapability</span><span class='hs-layout'>)</span> <span class='hs-conid'>TextureCompare</span><span class='hs-layout'>)</span> <a name="line-266"></a> <span class='hs-layout'>(</span><span class='hs-varid'>texParami</span> <span class='hs-varid'>unmarshalTextureCompareOperator</span> <span class='hs-varid'>marshalTextureCompareOperator</span> <span class='hs-conid'>TextureCompareOperator</span><span class='hs-layout'>)</span> </pre></body> </html>
