#!version 1.3.15
surface
#!parameters:
float	refractiveIndex	=	1
float	diffuseCoeff	=	1
color	ambientColor	=	 [ 0 0 0 ]
color	incandescence	=	 [ 0 0 0 ]
float	translucenceCoeff	=	0
float	glowIntensity	=	0
#!variables:
vector	Nf
vector	temporary_0
vector	temporary_1
vector	temporary_2
vector	temporary_3
uniform	vector	temporary_4
vector	temporary_5
#!Init:
	return            
#!Code:
	normalize	("v=v")  temporary_0  N 
	faceforward	("v=vv")  Nf  temporary_0  I 
	vfromf            	temporary_4 diffuseCoeff
	vuvector           temporary_3 temporary_4
	diffuse	("c=n")  temporary_5  Nf 
	mulvv             	temporary_2 temporary_3 temporary_5
	mulvv             	temporary_1 Cs temporary_2
	vuvector           temporary_2 incandescence
	addvv             	temporary_0 temporary_1 temporary_2
	vuvector           temporary_2 ambientColor
	ambient	("c=")  temporary_3 
	mulvv             	temporary_1 temporary_2 temporary_3
	addvv             	Ci temporary_0 temporary_1
	movevv            	Oi Os
	mulvv             	Ci Ci Oi
	return            

