From 08762ddc9ac9be5a4a63b1d15b3955ceb27f76b2 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Mon, 12 Apr 2010 16:17:41 +0200 Subject: Simplified texture and model loading; also use crosshair for DefaultPlayer --- src/Model.hs | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/Model.hs') 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" -- cgit v1.2.3