module Display (display) where

import Graphics.Rendering.OpenGL
import Graphics.UI.GLUT
import Data.IORef
import States 
import Cube
import DisplayState
import qualified Data.Map as Map

display ::  (IORef MState) ->  (IORef DState) -> IO() 
display  mst dst  = do 
	--clearColor $= (Color4 0.4 0.5 0.5 1.0)
	clear [ColorBuffer]
	shadeModel $= Smooth
	--loadIdentity
	mst' <- readIORef mst
	dst' <- readIORef dst

	    
	mapM_ (cubeSet dst' mst') (gStateObjs (gState mst'))



  	swapBuffers