diff options
| author | Matthias Schiffer <matthias@gamezock.de> | 2010-04-16 03:08:48 +0200 |
|---|---|---|
| committer | Matthias Schiffer <matthias@gamezock.de> | 2010-04-16 03:08:48 +0200 |
| commit | a19dc0d6aa982d138f46305cdea6443cb45a5fd3 (patch) | |
| tree | eb846615b4d22e2f1e76272b1460cc879f52f937 /src/Model.hs | |
| parent | 5951108c0a47fed6d78e442ae4233d9d34eafe13 (diff) | |
| download | htanks-a19dc0d6aa982d138f46305cdea6443cb45a5fd3.tar htanks-a19dc0d6aa982d138f46305cdea6443cb45a5fd3.zip | |
Added more models and render with perspective transform now
Diffstat (limited to 'src/Model.hs')
| -rw-r--r-- | src/Model.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Model.hs b/src/Model.hs index 0c273e9..e2c045a 100644 --- a/src/Model.hs +++ b/src/Model.hs @@ -6,10 +6,12 @@ module Model ( Model(..) import Paths_htanks import Data.Obj3D.GL (InterleavedObj) -data Model = ModelTank +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" |