52 lines
1.3 KiB
Haskell
52 lines
1.3 KiB
Haskell
{-# LANGUAGE StrictData #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
module Picture.Data
|
|
where
|
|
import Geometry.Data
|
|
|
|
--import qualified Data.Vector.Fusion.Stream.Monadic as VS
|
|
import Control.Lens
|
|
data Verx = Verx
|
|
{ _vxPos :: !Point3
|
|
, _vxCol :: !Point4
|
|
, _vxExt :: [Float]
|
|
, _vxLayer :: !LayNum
|
|
, _vxShadNum :: !ShadNum
|
|
}
|
|
newtype LayNum = LayNum { _unLayNum :: Int }
|
|
--TODO use synonyms for layer numbers
|
|
newtype ShadNum = ShadNum { _unShadNum :: Int }
|
|
polyNum, polyzNum, bezNum, textNum, arcNum, ellNum :: ShadNum
|
|
{-# INLINE polyNum #-}
|
|
{-# INLINE polyzNum #-}
|
|
{-# INLINE bezNum #-}
|
|
{-# INLINE textNum #-}
|
|
{-# INLINE arcNum #-}
|
|
{-# INLINE ellNum #-}
|
|
polyNum = ShadNum 0
|
|
polyzNum = ShadNum 1
|
|
bezNum = ShadNum 2
|
|
textNum = ShadNum 3
|
|
arcNum = ShadNum 4
|
|
ellNum = ShadNum 5
|
|
type Picture = [Verx]
|
|
flat2 :: V2 a -> [a]
|
|
flat2 (V2 x y) = [x,y]
|
|
flat3 :: V3 a -> [a]
|
|
flat3 (V3 x y z) = [x,y,z]
|
|
flat4 :: V4 a -> [a]
|
|
flat4 (V4 x y z w) = [x,y,z,w]
|
|
{-# INLINE flat2 #-}
|
|
{-# INLINE flat3 #-}
|
|
{-# INLINE flat4 #-}
|
|
tflat2 :: (a,a) -> [a]
|
|
tflat2 (x,y) = [x,y]
|
|
tflat3 :: (a,a,a) -> [a]
|
|
tflat3 (x,y,z) = [x,y,z]
|
|
tflat4 :: (a,a,a,a) -> [a]
|
|
tflat4 (x,y,z,w) = [x,y,z,w]
|
|
{-# INLINE tflat2 #-}
|
|
{-# INLINE tflat3 #-}
|
|
{-# INLINE tflat4 #-}
|
|
makeLenses ''Verx
|