Redo shape vertices as a list, should allow for mirroring

2022-07-04 23:17:53 +01:00
parent 914c452afb
commit 22ac8feb37
6 changed files with 35 additions and 43 deletions
@@ -28,8 +28,8 @@ shVfromList = id
 shEfromList = id

 data ShapeObj = ShapeObj 
-    { _shType :: ShapeType 
-    , _shVs :: Stream (Of ShapeV) IO ()
+    { _shType   :: ShapeType 
+    , _shVs     :: [ShapeV]
    }
  deriving ()

@@ -46,3 +46,4 @@ pairToSV :: (Point3,Point4) -> ShapeV
 {-# INLINE pairToSV #-}
 pairToSV = uncurry ShapeV
 makeLenses ''ShapeV
+makeLenses ''ShapeObj