17 lines
452 B
Haskell
17 lines
452 B
Haskell
module Model ( Model(..)
|
|
, InterleavedObj
|
|
, modelPath
|
|
) where
|
|
|
|
import Paths_htanks
|
|
import Data.Obj3D.GL (InterleavedObj)
|
|
|
|
data Model = ModelTank | ModelBullet | ModelBlock
|
|
deriving (Eq, Ord, Show)
|
|
|
|
modelPath :: Model -> IO FilePath
|
|
modelPath t = getDataFileName $ "model/" ++ (name t) ++ ".obj"
|
|
where
|
|
name ModelTank = "tank"
|
|
name ModelBullet = "bullet"
|
|
name ModelBlock = "cube"
|