displacement
AQSIS_V 1.2.0


segment Data

USES 63768

param uniform  float Km
param uniform  string texturename
varying  float amp


segment Init
	pushif 1
	pop Km
	pushis ""
	pop texturename


segment Code
	pushv t
	pushv s
	pushif 0
	pushv texturename
	pushif 0
	ftexture2
	pushv Km
	mulff
	pop amp
	pushv N
	normalize
	pushv amp
	mulfp
	pushv P
	addpp
	pop P
	pushv P
	calculatenormal
	pop N
