/*
*
* Author: Dan Lynch
*
*/

#pragma hint clr1 color
#pragma hint clr2 color
#pragma hint clr3 color
#pragma hint clr4 color

#pragma disable clr1 switchcolor 0
#pragma disable clr2 switchcolor 0
#pragma disable clr3 switchcolor 0
#pragma disable clr4 switchcolor 0

#pragma disable p1 switchpscale 0
#pragma disable p2 switchpscale 0
#pragma disable p3 switchpscale 0
#pragma disable p4 switchpscale 0

#pragma disable a1 switchalpha 0
#pragma disable a2 switchalpha 0
#pragma disable a3 switchalpha 0
#pragma disable a4 switchalpha 0

#pragma group Color clr1 clr2 clr3 clr4
#pragma group Pscale p1 p2 p3 p4
#pragma group Alpha a1 a2 a3 a4

#pragma hint switchpscale toggle
#pragma hint switchcolor toggle
#pragma hint switchalpha toggle

pop
d_agelife
        (
        int switchcolor=0, switchpscale=0, switchalpha=0;

        vector clr1={0,0.8,1}, clr2={1,0.65,0.03}, clr3={0.9,0.15,0.025},clr4={0.7,0.1,0};
        float a1=1, a2=.75, a3=.5, a4=0;
        float p1=0, p2=.5, p3=1, p4=0;
        )
{
        float plive = clamp(age/life,0,1);

        if (switchalpha) {
                float alphaattrib = lspline(plive, a1, a2, a3, a4);
                addattribute("Alpha", alphaattrib);
        }

        if (switchpscale) {
                float pscaleattrib = lspline(plive, p1, p2, p3, p4);
                addattribute("pscale",pscaleattrib);
        }

        if (switchcolor) {
                vector newattrib = lspline(plive, clr1, clr2, clr3, clr4);
                Cd = newattrib;
        }
}