/*************************************************************

  incoming.sl - shader to produce an angle dependent colour.
 
  Author: Mike Andrews (m.c.andrews@reading.ac.uk)
  
  Date  : 17th July 2001                            
  
*****************************************************/

surface incoming ( float falloff = 1.0; color col1 = (1,0,0), col2 = (0,1,0);)
{ 
  Ci = mix(col1, col2, pow (abs(normalize(N).normalize(I)), falloff));
}

// end - incoming.sl