light distantlight
param	float	intensity		1
param	color	lightcolor		1 1 1
param	point	from		0 0 0
local	string	$_str_0 	"current"
local	string	$_str_1 	"shader"
param	point	to		0 0 0
initcode 2
	pushiv	0 0 0 
	pushs	$_str_0 
	pushs	$_str_1 
	transform2s
	popv	from 
initcode 3
	pushiv	0 0 1 
	pushs	$_str_0 
	pushs	$_str_1 
	transform2s
	popv	to 
	return
code
	return_area
	pushif	0 
	pushv	from 
	subV	to 
	solar2	0
	pushc	lightcolor 
	mulFv	intensity 
	popc	Cl 
label 0
	return