function printf(fmt,...)
	log(string.format(fmt,unpack(arg)))
end

t_point_att 	= "internal\\internal_light_attpoint"
t_rt 		= "$user$rendertarget"
t_distort	= "$user$distort"
t_noise		= "fx\\fx_noise2"

function r1_lspot	(shader, t_base, vs, aref)
	shader:begin	(vs,"add_spot")
	  		: fog		(false)
			: zb 		(true,false)
			: blend		(true,blend.one,blend.one)
			: aref 		(true,aref or 0)
	shader:sampler	("s_base")    	:texture	(t_base)
	shader:sampler	("s_lmap")    	:texture	("internal\\internal_light_att")
			: clamp		()
			: f_linear 	()
			: project   	(true)
	shader:sampler	("s_att")    	:texture	("internal\\internal_light_attclip")
			: clamp		()
			: f_linear	()
end

function r1_lpoint	(shader, t_base, vs, aref)
	shader:begin	(vs,"add_point")
	  		: fog		(false)
			: zb 		(true,false)
			: blend		(true,blend.one,blend.one)
			: aref 		(true,aref or 0)
	shader:sampler	("s_base")    	:texture	(t_base)
	shader:sampler	("s_lmap")    	:texture	(t_point_att)
			: clamp		()
			: f_linear 	()
	shader:sampler	("s_att")    	:texture	(t_point_att)
			: clamp		()
			: f_linear	()
end