44 lines
1.1 KiB
Haskell
44 lines
1.1 KiB
Haskell
{-# 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
|