vec3 red(float f)
{
   return vec3(clamp(f,0.,1.),0.,0.);
}