surface
AQSIS_V 1.6.0


segment Data

USES 460806

param varying  color myvcolor
varying  normal Nf


segment Init
	pushif 0
	setfc
	pop myvcolor


segment Code
	pushv I
	pushv N
	normalize
	faceforward
	pop Nf
	pushv Os
	pop Oi
	pushv Nf
	diffuse
	pushv myvcolor
	pushv Os
	mulcc
	mulcc
	pop Ci
