surface pianotexmap
param	float	Ka		1
param	float	Kd		1
param	float	Ks		0
param	float	roughness		0.25
param	color	specularcolor		1 1 1
local	string	$_str_0 	"newkey.tif"
local	string	texname	""
local	float	ssize	0
local	float	tsize	0
local	vector	Nf	0 0 0
local	vector	NI	0 0 0
local	point	PP	0 0 0
local	point	O	0 0 0
local	point	X	0 0 0
local	point	Y	0 0 0
local	point	Z	0 0 0
local	point	NN	0 0 0
local	color	ctx	0 0 0
initcode 4
	return
code
	pushs	$_str_0 
	pops	texname 
	pushv	I 
	pushv	N 
	normalize
	faceforward
	popv	Nf 
	pushif	0 
	pushs	texname 
	pushif	0 
	pushif	0 
	ftexture
	cset	ctx 
	return_area
	pushc	ctx 
	pushv	Nf 
	diffuse
	mulFv	Kd 
	ambient
	mulFv	Ka 
	addcc
	mulcc
	popc	Ci 
	pushif	0 
	pushf	Ks 
	fnef
	ifz	0
	pushv	I 
	negv
	normalize
	popv	NI 
	pushf	roughness 
	pushv	NI 
	pushv	Nf 
	specular
	pushc	specularcolor 
	mulFv	Ks 
	mulcc
	addC	Ci 
	popc	Ci 
label 0
label 1
	cpCC	Os Oi 
	pushc	Oi 
	mulC	Ci 
	popc	Ci 
	return