{-# OPTIONS_HADDOCK hide #-}

-- | Implements functions to dump portions of the GLUT and OpenGL state to stdout. 
--	Used for debugging.
module Graphics.Gloss.Internals.Interface.Debug
	( dumpGlutState
	, dumpFramebufferState
	, dumpFragmentState )
where

import qualified Graphics.Rendering.OpenGL.GL	as GL
import qualified Graphics.UI.GLUT		as GLUT
import Graphics.UI.GLUT			(($=), get)


-- | Dump the internal state of GLUT
dumpGlutState :: IO ()
dumpGlutState 
 = do
	wbw		<- get GLUT.windowBorderWidth
 	whh		<- get GLUT.windowHeaderHeight
	rgba		<- get GLUT.rgba

	rgbaBD		<- get GLUT.rgbaBufferDepths
	colorBD		<- get GLUT.colorBufferDepth
	depthBD		<- get GLUT.depthBufferDepth
	accumBD		<- get GLUT.accumBufferDepths
	stencilBD	<- get GLUT.stencilBufferDepth

	doubleBuffered	<- get GLUT.doubleBuffered

	colorMask	<- get GLUT.colorMask
	depthMask	<- get GLUT.depthMask
	
	putStr	$  "* dumpGlutState\n"
		++ "  windowBorderWidth  = " ++ show wbw		++ "\n"
		++ "  windowHeaderHeight = " ++ show whh		++ "\n"
		++ "  rgba               = " ++ show rgba		++ "\n"
		++ "  depth      rgba    = " ++ show rgbaBD		++ "\n"
		++ "             color   = " ++ show colorBD		++ "\n"
		++ "             depth   = " ++ show depthBD		++ "\n"
		++ "             accum   = " ++ show accumBD		++ "\n"
		++ "             stencil = " ++ show stencilBD		++ "\n"
		++ "  doubleBuffered     = " ++ show doubleBuffered	++ "\n"
		++ "  mask         color = " ++ show colorMask		++ "\n"
		++ "               depth = " ++ show depthMask		++ "\n"
		++ "\n"
		
		
-- | Dump internal state of the OpenGL framebuffer
dumpFramebufferState :: IO ()
dumpFramebufferState
 = do
 	auxBuffers	<- get GL.auxBuffers
	doubleBuffer	<- get GL.doubleBuffer
	drawBuffer	<- get GL.drawBuffer

	rgbaBits	<- get GL.rgbaBits
	stencilBits	<- get GL.stencilBits
	depthBits	<- get GL.depthBits
	accumBits	<- get GL.accumBits
	
	clearColor	<- get GL.clearColor
	clearStencil	<- get GL.clearStencil
	clearDepth	<- get GL.clearDepth
	clearAccum	<- get GL.clearAccum
	
	colorMask	<- get GL.colorMask
	stencilMask	<- get GL.stencilMask
	depthMask	<- get GL.depthMask
	
	putStr	$  "* dumpFramebufferState\n"
		++ "  auxBuffers         = " ++ show auxBuffers		++ "\n"
		++ "  doubleBuffer       = " ++ show doubleBuffer	++ "\n"
		++ "  drawBuffer         = " ++ show drawBuffer		++ "\n"
		++ "\n"
		++ "  bits       rgba    = " ++ show rgbaBits		++ "\n"
		++ "             stencil = " ++ show stencilBits	++ "\n"
		++ "             depth   = " ++ show depthBits		++ "\n"
		++ "             accum   = " ++ show accumBits		++ "\n"
		++ "\n"
		++ "  clear      color   = " ++ show clearColor		++ "\n"
		++ "             stencil = " ++ show clearStencil	++ "\n"
		++ "             depth   = " ++ show clearDepth		++ "\n"
		++ "             accum   = " ++ show clearAccum		++ "\n"
		++ "\n"
		++ "  mask       color   = " ++ show colorMask		++ "\n"
		++ "             stencil = " ++ show stencilMask	++ "\n"
		++ "             depth   = " ++ show depthMask		++ "\n"
		++ "\n"
		

-- | Dump internal state of the fragment renderer.
dumpFragmentState :: IO ()
dumpFragmentState
 = do
 	blend		<- get GL.blend
	blendEquation	<- get GL.blendEquation
	blendFunc	<- get GL.blendFunc
	
	putStr	$  "* dumpFragmentState\n"
		++ "  blend              = " ++ show blend		++ "\n"
		++ "  blend equation     = " ++ show blendEquation	++ "\n"
		++ "  blend func         = " ++ show blendFunc		++ "\n"
		++ "\n"