surface plastic
param	float	Ka		1
param	float	Kd		0.5
param	float	Ks		0.5
param	float	roughness		0.1
param	color	specularcolor		1 1 1
local	normal	Nf	0 0 0
initcode 4
	return
code
	return_area
	pushv	I 
	pushv	N 
	normalize
	faceforward
	popv	Nf 
	cpCC	Os Oi 
	pushf	roughness 
	pushv	I 
	normalize
	negv
	pushv	Nf 
	specular
	pushf	Ks 
	pushc	specularcolor 
	mulcf
	mulcc
	pushv	Nf 
	diffuse
	mulFv	Kd 
	ambient
	mulFv	Ka 
	addcc
	mulC	Cs 
	addcc
	mulC	Os 
	popc	Ci 
	return