Added more models and render with perspective transform now

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"