struct FragIn
{
  float2 tc0 : TEXCOORD0;
};

struct FragOut
{
  float4 col : COLOR;
};

FragOut main
(
  FragIn  fin,
  uniform sampler2D tex0 : TEXUNIT0,
  uniform float heat
)
{
  FragOut fout;
  float4 red=float4(1.0,0.25,0.1,1);   
  float4 cColor=tex2D(tex0,fin.tc0); 

  cColor=(1-heat)*cColor+heat*3.0*red;

  fout.col=cColor;

  return fout;
} 
