modelToPicture :: (Int, Int)
               -> AgentColoring
               -> SiteColoring
               -> SimTickOut
               -> IO GLO.Picture
modelToPicture winSize av cv (t, env, as) 
  = return $ renderSugarScapeFrame winSize t env as av cv
modelToPicture :: (Int, Int)
               -> AgentColoring
               -> SiteColoring
               -> SimTickOut
               -> IO GLO.Picture
modelToPicture winSize av cv (t, env, as) 
  = return $ renderSugarScapeFrame winSize t env as av cv
modelToPicture winSize av cv (t, env, as) 
  = return $ renderSugarScapeFrame winSize t env as av cv