blob: e2c045ac80802a8ab1235f05a95d283e6e77f13d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
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"
|