Working (but slow) shadow shapes

src/ShapePicture.hs

@@ -0,0 +1,17 @@
+module ShapePicture
+    ( module ShapePicture
+    , module ShapePicture.Data
+    )
+    where
+import Shape
+import ShapePicture.Data
+import Picture
+import Geometry
+
+emptyBlank :: SPic
+emptyBlank = SPic empty blank
+
+translateSP :: Float -> Float -> SPic -> SPic
+translateSP x y (SPic sh pic) = SPic
+    (translateSH (V3 x y 0) sh)
+    (translate x y pic)