How to create new 2D Pixel Shader in Delphi Firemokey?

  

I have the following code in HLSL for color temperature adjustment, but I can not turn it into a form accepted by Delphi Tokyo 10.2 Firemokey.

I already followed some tutorials, but I do not know what I’m doing wrong. The filter is never applied, I think the byte-code is wrong.

Anyone have a tutorial?

Code:

sampler2D Input;

float BlueShift;

float4 main (float2 uv: TEXCOORD): COLOR0
{
   float4 Output = tex2D (Input, uv);
   float4 factor = float4 (Output.rgba) * float4 (0.8f, 0.97f, 1.27f, 1.0f);
   Output.rgb = lerp (Output.rgb, factor, BlueShift);
   return Output;
}

Links:

How to Create Your Own FireMonkey Image Effect

How to Create Your Own FireMonkey Image Effect

We find a Pixel Shader (AMD RenderMonkey on Win10) https://www.youtube.com/watch?v=lEJg6sQrwWs

Thank you in advance.

Comments are closed.