1 files changed, 0 insertions, 22 deletions

diff --git a/MeshSketch.hs b/MeshSketch.hs
index 87d9763..d9290fd 100644
--- a/MeshSketch.hs
+++ b/MeshSketch.hs
@@ -141,28 +141,6 @@ realToFracVector :: ( Real a
                     ) => Vector a -> Vector b
 realToFracVector v = Math.fromList $ map realToFrac $ Math.toList v
 
-data MaskableObject = MaskableObject
-    { maskableObject :: LC.Object
-    , groupMasks :: Map Text Mask
-    }
-
-objSpan :: LC.Object -> Mask
-objSpan obj = case Map.elems (objAttributes obj) of
-        Stream { streamLength = x }:_ -> Mask [(0,fromIntegral x)]
-        _                             -> Mask [(0,1)]
-
-addOBJToObjectArray :: GLStorage -> String -> [(GPUMesh, Maybe Text)] -> Map Text (ObjMaterial,TextureData)
-                                 -> IO [MaskableObject]
-addOBJToObjectArray storage slotName objMesh mtlLib = forM objMesh $ \(mesh,mat) -> do
-  obj <- LC.addMeshToObjectArray storage slotName ["diffuseTexture","diffuseColor"] mesh
-         -- diffuseTexture and diffuseColor values can change on each model
-  case mat >>= flip Map.lookup mtlLib of
-    Nothing -> return ()
-    Just (ObjMaterial{..},t) -> LC.updateObjectUniforms obj $ do
-      "diffuseTexture" @= return t -- set model's diffuse texture
-      "diffuseColor" @= let (r,g,b) = mtl_Kd in return (V4 r g b mtl_Tr)
-  return $ MaskableObject obj $ maybe Map.empty (`Map.singleton` objSpan obj) mat
-
 mkFullscreenToggle :: IsWindow a => a -> IO (IO ())
 mkFullscreenToggle w = do
     full <- newIORef False