light
shadowdistantlight(
    float  intensity=1,
    color  lightcolor=1,
    point from = point ("shader",0,0,0),
    point to   = point ("shader",0,0,1),
    string shadowname="",
    float samples=16,
    float width=0
)
{
    emit(to - from, 0) {
	Cl = intensity * lightcolor;
	if (shadowname != "") {
		Cl *= transmission(Ps, L, "traceset", shadowname, "samples", (int)samples,
			"blur", width);
	}
    }
}
