transformedQuad :: Float -> PrimitiveStream Triangle (Vec4 (Vertex Float), Vec2 (Vertex Float))
transformedQuad d = fmap homonize $ screenQuad d
  where 
    homonize :: (Vec3 (Vertex Float), Vec2 (Vertex Float)) -> (Vec4 (Vertex Float), Vec2 (Vertex Float))
    homonize (v,uv) = (homPoint v :: Vec4 (Vertex Float), uv)  

-- | Quad that covers all window        
transformedQuad :: Float -> PrimitiveStream Triangle (Vec4 (Vertex Float), Vec2 (Vertex Float))
transformedQuad d = fmap homonize $ screenQuad d
  where 
    homonize :: (Vec3 (Vertex Float), Vec2 (Vertex Float)) -> (Vec4 (Vertex Float), Vec2 (Vertex Float))
    homonize (v,uv) = (homPoint v :: Vec4 (Vertex Float), uv)  

-- | Quad that covers all window        
transformedQuad d = fmap homonize $ screenQuad d
  where 
    homonize :: (Vec3 (Vertex Float), Vec2 (Vertex Float)) -> (Vec4 (Vertex Float), Vec2 (Vertex Float))
    homonize (v,uv) = (homPoint v :: Vec4 (Vertex Float), uv)  

-- | Quad that covers all window        