module Graphics.Rendering.Ombra.Shader.Default2D where
import Graphics.Rendering.Ombra.Shader
type Uniforms = '[View2, Image, Depth, Transform2]
type Attributes = '[Position2, UV]
data Image = Image Sampler2D deriving Generic
data Depth = Depth Float deriving Generic
data Transform2 = Transform2 Mat3 deriving Generic
data View2 = View2 Mat3 deriving Generic
data Position2 = Position2 Vec2 deriving Generic
data UV = UV Vec2 deriving Generic
vertexShader :: VertexShader '[Transform2, View2, Depth]
'[Position2, UV] '[UV]
vertexShader (Transform2 trans :- View2 view :- Depth z :- N)
(Position2 (Vec2 x y) :- uv@(UV _) :- N) =
let Vec3 x' y' _ = view * trans * Vec3 x y 1
in Vertex (Vec4 x' y' z 1) :- uv :- N
fragmentShader :: FragmentShader '[Image] '[UV]
fragmentShader (Image sampler :- N) (UV (Vec2 s t) :- N) =
Fragment (texture2D sampler (Vec2 s $ 1 t)) :- N