displacement dented
param	float	Km		1
local	string	$_str_0 	"shader"
local	float	size	0
local	float	magnitude	0
local	float	i	0
local	point	P2	0 0 0
initcode 0
	return
code
	pushif	1 
	popf	size 
	pushif	0 
	popf	magnitude 
	pushv	P 
	pushs	$_str_0 
	transforms
	popv	P2 
	pushif	0 
	popf	i 
label 0
	pushif	6 
	pushf	i 
	lt
	ifz	2
	pushf	size 
	pushf	size 
	pushv	P2 
	mulvf
	noisev
	pushif	0.5 
	subff
	abs
	divff
	addF	magnitude 
	popf	magnitude 
	pushif	2 
	mulF	size 
	popf	size 
label 1
	pushif	1 
	addF	i 
	popf	i 
	jump	0
label 2
	pushf	Km 
	pushf	magnitude 
	pushf	magnitude 
	mulF	magnitude 
	mulff
	pushv	N 
	normalize
	mulvf
	mulvf
	subV	P 
	popv	P 
	pushv	P 
	calculatenormal
	popv	N 
	return_area
	return