module DisplayState (newDState) where
import Graphics.Rendering.OpenGL
import Graphics.UI.GLUT
import General (foldlPair)
import States
import MainState
import qualified Data.Map as Map


newDState :: MState -> KState -> DState -> DState
newDState mst kst dst =  changeCounter mst dst

changeCounter :: MState -> DState -> DState
changeCounter mst dst = let dCounter = eCounter dst
			    gbcs = gBoardCells mst
			in foldlPair dStateChangeCounterV dst [(CBlack , (numberStone SBlack gbcs)) , (CWhite , (numberStone SWhite gbcs))]