Improve possible manipulation of equipment

src/ShapePicture.hs

@@ -1,6 +1,7 @@
 {-# LANGUAGE TupleSections #-}
 module ShapePicture
     ( emptyBlank
+    , translateSP
     , translateSPf
     , translateSPz
     , rotateSP
@@ -41,6 +42,9 @@ translateSPf x y = bimap (translateSH (V3 x y 0)) (translate x y)
 translateSPz :: Float -> SPic -> SPic
 translateSPz z  = bimap (translateSH (V3 0 0 z)) (translate3 (V3 0 0 z))
 
+translateSP :: Point3 -> SPic -> SPic
+translateSP v = bimap (translateSH v) (translate3 v)
+
 rotateSP :: Float -> SPic -> SPic
 rotateSP a = bimap (rotateSH a) (rotate a)