#!version 1.6.3
light
#!parameters:
float	intensity	=	1
color	lightcolor	=	1
point	from
point	to
#!variables:
uniform	vector	temporary_0
vector	dir
vector	temporary_1
vector	temporary_2
vector	temporary_3
vector	temporary_4
#!Init:
	vfromf            	temporary_0 0 0 0
	pfrom             	from "shader" temporary_0
	vfromf            	temporary_0 0 0 1
	pfrom             	to "shader" temporary_0
	return            
#!Code:
	subvv             	temporary_0 to from
	vuvector           dir temporary_0
	vfromf            	temporary_0 0
	vuvector           temporary_1 temporary_0
	solar             	 dir  temporary_1  #!Label2
	subvv             	temporary_4 Ps dir
	transmission	("c=pp")  temporary_3  Ps  temporary_4 
	vfromf            	temporary_0 intensity
	vuvector           temporary_4 temporary_0
	mulvv             	temporary_2 temporary_3 temporary_4
	vuvector           temporary_3 lightcolor
	mulvv             	Cl temporary_2 temporary_3
#!Label2:
	endsolar          
	return