Work on textures and lighting

src/ShapePicture.hs

@@ -2,7 +2,7 @@
 module ShapePicture
     ( module ShapePicture.Data
     , translateSP
-    , translateSPf
+    , translateSPxy
     , translateSPz
     , rotateSP
     , noPic
@@ -42,13 +42,13 @@ overPosSP :: (Point3 -> Point3) -> SPic -> SPic
 {-# INLINE overPosSP #-}
 overPosSP f = bimap (overPosSH f) (picMap $ overPos f)
 
-translateSPf :: Float -> Float -> SPic -> SPic
-{-# INLINE translateSPf #-}
-translateSPf x y = bimap (translateSH (V3 x y 0)) (translate x y)
+translateSPxy :: Float -> Float -> SPic -> SPic
+{-# INLINE translateSPxy #-}
+translateSPxy x y = translateSP (V3 x y 0)
 
 translateSPz :: Float -> SPic -> SPic
 {-# INLINE translateSPz #-}
-translateSPz z  = bimap (translateSH (V3 0 0 z)) (translate3 (V3 0 0 z))
+translateSPz z  = translateSP (V3 0 0 z)
 
 translateSP :: Point3 -> SPic -> SPic
 {-# INLINE translateSP #-}