import Graphics.Rendering.OpenGL
import Graphics.UI.GLUT
import System.Environment
import RunBound

data ArgmentType = SrartProg | Config | PreviewMode deriving (Show)

main = do
	args <- getArgs
	case (argElem args) of 
		SrartProg -> runBound

------コマンドライン引数に含まれる文字で判別
argElem ::[String] -> ArgmentType
argElem args 
	| "/S" `elem` args = SrartProg
	| "/s" `elem` args = SrartProg
	| args == [] = SrartProg