Materials and textures are relative to object file.

1 files changed, 2 insertions, 1 deletions

diff --git a/MeshSketch.hs b/MeshSketch.hs
index f31c7cf..167a5fd 100644
--- a/MeshSketch.hs
+++ b/MeshSketch.hs
@@ -179,7 +179,8 @@ uploadState obj mm storage = do
     let glarea = mmWidget mm
     -- load OBJ geometry and material descriptions
     let workarea = BoundingBox (-1.5) (1.5) (-1.5) 1.5 (-1.5) (1.5)
-    ((objMesh,mtlLib),objscale) <- uploadOBJToGPU (Just workarea) obj
+        mtlLib = snd obj
+    (objMesh,objscale) <- uploadOBJToGPU (Just workarea) obj
     -- load materials textures
     gpuMtlLib <- uploadMtlLib mtlLib
     -- add OBJ to pipeline input