Various cleanups

2021-10-29 18:40:28 +01:00
parent 4480d0f7c7
commit d5d4c93007
8 changed files with 25 additions and 116 deletions
@@ -1,15 +1,26 @@
 module ShapePicture
-    ( module ShapePicture
-    , module ShapePicture.Data
+    ( emptyBlank
+    , translateSPf
+    , translateSPz
+    , rotateSP
+    , SPic
+    , _spShape
+    , _spPicture
    )
    where
 import Shape
-import ShapePicture.Data
 import Picture
 import Geometry

 import Data.Bifunctor

+type SPic =  (Shape, Picture)
+
+_spShape :: SPic -> Shape
+_spShape = fst
+_spPicture :: SPic -> Picture
+_spPicture = snd
+
 emptyBlank :: SPic
 emptyBlank = (emptySH,blank)