Materials and textures are relative to object file.

1 files changed, 7 insertions, 0 deletions

diff --git a/MtlParser.hs b/MtlParser.hs
index b57a7f0..ed952d0 100644
--- a/MtlParser.hs
+++ b/MtlParser.hs
@@ -3,6 +3,7 @@ module MtlParser
   , MtlLib
   , parseMtl
   , readMtl
+  , readMtlWithFallback
   ) where
 
 import Data.Map (Map)
@@ -11,6 +12,7 @@ import Data.Maybe
 import Control.Monad.State.Strict
 import Control.Monad.Writer
 import Data.Text (pack,Text)
+import System.IO.Error
 
 type Vec3 = (Float,Float,Float)
 
@@ -72,3 +74,8 @@ parseMtl src = Map.fromList [(mtl_Name m,m) | m <- evalState (execWriterT (mapM_
 
 readMtl :: String -> IO MtlLib
 readMtl fname = parseMtl <$> readFile fname
+
+readMtlWithFallback :: String -> IO MtlLib
+readMtlWithFallback fname = do
+    catchIOError (readMtl fname)
+                 (\_ -> return $ let n = pack fname in Map.singleton mempty (newMaterial n))