Add source files, commit before reverting pictures to lists

src/Picture/Data.hs

@@ -0,0 +1,43 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE Strict #-}
+module Picture.Data
+    where
+import Data.Monoid
+import qualified Data.DList as DL
+import Geometry.Data
+
+import Control.Lens
+
+type RGBA = (Float,Float,Float,Float)
+type Color = (Float,Float,Float,Float)
+
+data Picture = Scene
+    { _scPosTri  :: DL.DList Point3
+    , _scColTri  :: DL.DList RGBA
+    , _scPosChar :: DL.DList Point3
+    , _scColChar :: DL.DList RGBA
+    , _scTexChar :: DL.DList Point2
+    }
+
+blank :: Picture
+{-# INLINE blank #-}
+blank = Scene DL.empty DL.empty DL.empty DL.empty DL.empty 
+
+combineScenes :: Picture -> Picture -> Picture
+{-# SCC combineScenes #-}
+--{-# INLINE combineScenes #-}
+combineScenes sa sb = Scene
+    { _scPosTri  = _scPosTri  sa <> _scPosTri sb
+    , _scColTri  = _scColTri  sa <> _scColTri sb
+    , _scPosChar = _scPosChar sa <> _scPosChar sb
+    , _scColChar = _scColChar sa <> _scColChar sb
+    , _scTexChar = _scTexChar sa <> _scTexChar sb
+    }
+
+instance Semigroup Picture where
+    (<>) = combineScenes
+instance Monoid Picture where
+    mempty = blank
+    --mappend = combineScenes
+
+makeLenses ''Picture