module Graphics.Caramia.Blend
(
BlendSpec(..)
, BlendEquation(..)
, BlendFunc(..)
, preMultipliedAlpha
, nopBlend )
where
import Graphics.Caramia.Blend.Internal
import Graphics.Caramia.Color
preMultipliedAlpha :: BlendSpec
preMultipliedAlpha = BlendSpec
{ srcColorFunc = BFOne
, srcAlphaFunc = BFOne
, dstColorFunc = BFOneMinusSrcAlpha
, dstAlphaFunc = BFOneMinusSrcAlpha
, colorEquation = BEAdd
, alphaEquation = BEAdd
, blendColor = rgba 1 1 1 1 }
nopBlend :: BlendSpec
nopBlend = BlendSpec
{ srcColorFunc = BFOne
, srcAlphaFunc = BFOne
, dstColorFunc = BFZero
, dstAlphaFunc = BFZero
, colorEquation = BEAdd
, alphaEquation = BEAdd
, blendColor = rgba 1 1 1 1 }