Add Read/Show instance for Creature

src/ShapePicture.hs

@@ -1,11 +1,10 @@
 {-# LANGUAGE TupleSections #-}
 module ShapePicture
-    ( --emptyBlank
-     translateSP
+    ( module ShapePicture.Data
+    , translateSP
     , translateSPf
     , translateSPz
     , rotateSP
-    , SPic
     , noPic
     , noShape
 --    , _spShape
@@ -14,6 +13,7 @@ module ShapePicture
     , mirrorSPxz
     , overPosSP
     ) where
+import ShapePicture.Data
 import Shape
 import Picture
 import Geometry
@@ -22,7 +22,6 @@ import Data.Bifunctor
 import Control.Lens
 --import qualified Streaming.Prelude as S
 
-type SPic =  (Shape, Picture)
 
 shMap :: (ShapeObj -> ShapeObj) -> Shape -> Shape
 shMap = map