summaryrefslogtreecommitdiffstats
path: root/src/Model.hs
blob: 3c88ec7514b6aa91337e516a52b2103aea4523a5 (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.OpenGL (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"