Add visuals for wrist equipment

src/ShapePicture.hs

@@ -9,6 +9,8 @@ module ShapePicture
     , noShape
     , _spShape
     , _spPicture
+    , mirrorSPyz
+    , mirrorSPxz
     ) where
 import Shape
 import Picture
@@ -41,3 +43,13 @@ translateSPz z  = bimap (translateSH (V3 0 0 z)) (translate3 (V3 0 0 z))
 
 rotateSP :: Float -> SPic -> SPic
 rotateSP a = bimap (rotateSH a) (rotate a)
+
+mirrorSPxz :: SPic -> SPic
+mirrorSPxz = bimap (reverse . overPosSH flipy) (mirrorxz)
+  where
+    flipy (V3 x y z) = V3 x (negate y) z
+
+mirrorSPyz :: SPic -> SPic
+mirrorSPyz = bimap (reverse . overPosSH flipx) (mirroryz)
+  where
+    flipx (V3 x y z) = V3 (negate x) y z