surface
AQSIS_V 1.6.0


segment Data

USES 460807

param uniform  float Ka
param uniform  float Kd
varying  point Nf


segment Init
	pushif 1
	pop Ka
	pushif 1
	pop Kd


segment Code
	pushv I
	pushv N
	normalize
	faceforward
	pop Nf
	pushv Os
	pop Oi
	pushv Nf
	diffuse
	pushv Kd
	mulfc
	ambient
	pushv Ka
	mulfc
	addcc
	pushv Cs
	pushv Os
	mulcc
	mulcc
	pop Ci
