/*
*
* Author: Dan Lynch
*
*/

#pragma hint lightcolor color
#pragma hint pmap image

light
dp_light
        (
        vector lightcolor = 1;
        float atten = 1;
        string pmap="Mandril.pic";
        )
{
        float ldist = length(L);
        Cl = lightcolor;

        vector LL = L / ldist;

        Cl *= atten / (ldist + atten);

        if (pmap != "")
        {
            vector pos = wo_space(Ps);
            pos = toNDC(pos);
            Cl *= texture(pmap, pos.x, pos.y, "mode", "decal", "border", {0,0,0});
        }
}