Move towards allowing partial destruction of doors

src/Picture/Data.hs

@@ -13,6 +13,7 @@ data Verx = Verx
     , _vxLayer  :: !Layer
     , _vxShadNum  :: !ShadNum
     }
+  deriving (Eq,Ord,Show)
 --newtype LayNum  = LayNum  { _unLayNum :: Int }
 
 data Layer
@@ -22,7 +23,7 @@ data Layer
     | BloomNoZWrite
     | DebugLayer
     | FixedCoordLayer
-  deriving (Eq,Ord,Enum,Bounded)
+  deriving (Eq,Ord,Enum,Bounded,Show)
 
 layerNum :: Layer -> Int
 layerNum = fromEnum
@@ -30,6 +31,7 @@ numLayers :: Int
 numLayers = length [minBound::Layer .. maxBound]
 --TODO use synonyms for layer numbers
 newtype ShadNum = ShadNum { _unShadNum :: Int }
+  deriving (Eq,Ord,Show)
 polyNum, polyzNum, bezNum, textNum, arcNum, ellNum :: ShadNum
 {-# INLINE polyNum #-}
 {-# INLINE polyzNum #-}