Cleanup. Start tweaking flares, glares and flashes

2021-10-29 21:47:03 +01:00
parent 78f91e522b
commit 502be6f64f
18 changed files with 59 additions and 153 deletions
@@ -8,10 +8,7 @@ module Shape.Data
 import Geometry.Data

 import Control.Lens
--import qualified Data.DList as DL
-
 type Shape = [ShapeObj]
-
 _shVertices :: Shape -> [ShapeV]
 {-# INLINE _shVertices #-}
 _shVertices = concatMap _shVs
@@ -43,5 +40,4 @@ data ShapeV = ShapeV
 pairToSV :: (Point3,Point4) -> ShapeV
 {-# INLINE pairToSV #-}
 pairToSV = uncurry ShapeV
-
 makeLenses ''ShapeV