renderStepAnimate :: (Int, Int)
                  -> IORef (SimulationState StdGen)
                  -> AgentColoring
                  -> SiteColoring
                  -> Float
                  -> IO GLO.Picture
renderStepAnimate winSize ssRef av cv _ = do
  ss <- readIORef ssRef
  (ss', out) <- simulationTick ss
  writeIORef ssRef ss'

  modelToPicture winSize av cv out
renderStepAnimate :: (Int, Int)
                  -> IORef (SimulationState StdGen)
                  -> AgentColoring
                  -> SiteColoring
                  -> Float
                  -> IO GLO.Picture
renderStepAnimate winSize ssRef av cv _ = do
  ss <- readIORef ssRef
  (ss', out) <- simulationTick ss
  writeIORef ssRef ss'

  modelToPicture winSize av cv out
renderStepAnimate winSize ssRef av cv _ = do
  ss <- readIORef ssRef
  (ss', out) <- simulationTick ss
  writeIORef ssRef ss'

  modelToPicture winSize av cv out