diff options
| author | Matthias Schiffer <matthias@gamezock.de> | 2010-04-12 16:17:41 +0200 |
|---|---|---|
| committer | Matthias Schiffer <matthias@gamezock.de> | 2010-04-12 16:17:41 +0200 |
| commit | 08762ddc9ac9be5a4a63b1d15b3955ceb27f76b2 (patch) | |
| tree | bb4f2f36cd4fc5c230744d44bdd40aa3e4badaa8 /src/Model.hs | |
| parent | dafe16f191f99dc1199a5b386fad916a78c5c4f1 (diff) | |
| download | htanks-08762ddc9ac9be5a4a63b1d15b3955ceb27f76b2.tar htanks-08762ddc9ac9be5a4a63b1d15b3955ceb27f76b2.zip | |
Simplified texture and model loading; also use crosshair for DefaultPlayer
Diffstat (limited to 'src/Model.hs')
| -rw-r--r-- | src/Model.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Model.hs b/src/Model.hs index daec0c2..0c273e9 100644 --- a/src/Model.hs +++ b/src/Model.hs @@ -1,8 +1,15 @@ 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" |