Move towards allowing partial destruction of doors

2022-06-23 14:52:25 +01:00
parent 4c8c82b55c
commit 0f01e422f6
11 changed files with 73 additions and 28 deletions
@@ -29,14 +29,17 @@ data ShapeObj = ShapeObj
    { _shType :: ShapeType 
    , _shVs :: [ShapeV]
    }
+  deriving (Eq,Ord,Show)

 newtype ShapeType = TopPrism Int
+  deriving (Eq,Ord,Show)

 -- edges are given by four consecutive points
 data ShapeV = ShapeV
    {_svPos :: Point3
    ,_svCol :: Point4
    }
+  deriving (Eq,Ord,Show)
 pairToSV :: (Point3,Point4) -> ShapeV
 {-# INLINE pairToSV #-}
 pairToSV = uncurry ShapeV