module Graphics.Rendering.OpenGL.GLU.Mipmapping (
scaleImage, build1DMipmaps, build2DMipmaps
) where
import Graphics.Rendering.GLU.Raw
import Graphics.Rendering.OpenGL.Raw.Core31
import Graphics.Rendering.OpenGL.GL.CoordTrans ( Size(..) )
import Graphics.Rendering.OpenGL.GL.PixelData ( PixelData, withPixelData )
import Graphics.Rendering.OpenGL.GL.Texturing.PixelInternalFormat (
PixelInternalFormat, marshalPixelInternalFormat )
import Graphics.Rendering.OpenGL.GL.Texturing.TextureTarget (
TextureTarget, marshalTextureTarget )
import Graphics.Rendering.OpenGL.GLU.ErrorsInternal ( recordInvalidValue )
scaleImage :: Size -> PixelData a -> Size -> PixelData b -> IO ()
scaleImage (Size widthIn heightIn) pdIn (Size widthOut heightOut) pdOut =
withPixelData pdIn $ \fIn dIn pIn ->
withPixelData pdOut $ \fOut dOut pOut ->
if fIn == fOut
then do gluScaleImage
fIn widthIn heightIn dIn pIn widthOut heightOut dOut pOut
return ()
else recordInvalidValue
build1DMipmaps ::
TextureTarget -> PixelInternalFormat -> GLsizei -> PixelData a -> IO ()
build1DMipmaps target internalFormat height pd = do
withPixelData pd $
gluBuild1DMipmaps
(marshalTextureTarget target)
(marshalPixelInternalFormat internalFormat)
height
return ()
build2DMipmaps :: TextureTarget -> PixelInternalFormat -> GLsizei -> GLsizei
-> PixelData a -> IO ()
build2DMipmaps target internalFormat width height pd = do
withPixelData pd $
gluBuild2DMipmaps
(marshalTextureTarget target)
(marshalPixelInternalFormat internalFormat)
width height
return ()