module Irg.Lab4.Shading.Lab4 where

import Irg.Lab4.Shading.Callbacks
import Irg.Lab4.Shading.Initialize
import Irg.Lab4.Shading.Utility
import Irg.Lab4.Shading.ParseFile

import Linear
import System.Directory

myMain :: IO ()
myMain = do
  print "enter path"
  path <- getLine
  doesExist <- doesFileExist (folderLocation ++ path)
  parsedFile <- if doesExist then parseFile (folderLocation ++ path) else parseFile fileLocation
  -- print parsedFile

  let gameState = GameState parsedFile $ V4 3 3 3 0
  initialize gameState reshapeCallback displayCallback keyboardCallback mouseCallback mousePassiveMoveCallback
