htanks/src/Model.hs

module Model ( Model(..)
             , InterleavedObj
             , modelPath
             ) where

import Paths_htanks
import Data.Obj3D.GL (InterleavedObj)

data Model = ModelTank
             deriving (Eq, Ord, Show)

modelPath :: Model -> IO FilePath
modelPath t = getDataFileName $ "model/" ++ (name t) ++ ".obj"
    where
      name ModelTank = "tank"