/*
*
* Author: Dan Lynch
*
*/

#pragma hint Ka color
#pragma hint Kd color
#pragma hint Ks color
#pragma hint map file

#pragma group Color Ka Kd Ks roughness
#pragma group Texture map

#pragma label map "Texture Map"
#pragma label Ka "Ambient"
#pragma label Kd "Diffuse"
#pragma label Ks "Specular"
#pragma label roughness "Roughness"

surface
d_paraperp
        (
        vector Ka=1, Kd=1, Ks=1;
        float apara=1, aperp=0, aroll=1, roughness = .1;
        string map = "Mandril.pic";
        export vector uv=0;
        )
{

        vector Cd = 1;
        float  Alpha = 1;
        vector rest = 0;

        float u = 0;
        float V = 0;
      
        if (!isbound("uv")) {
                u = s;
                V = t;
        } else {
                u = getcomp(uv,0);
                V = getcomp(uv,1);
        }

        vector Nn = normalize(N);
        vector In = normalize(I);
        vector Nf = frontface(Nn,In);

        if (map != "") {
                vector tmap = vector (texture(map,u,V));
        }

        float alpha=0;
        if (apara < 1 || aperp < 1)
             alpha = lerp(aperp, apara, pow(dot(Nf,-In), 1.0/aroll));
        else alpha = 1;

        alpha  *= Alpha;
        Cf = Cd;
        Cf += ambient(Nn,In)*Ka;
        Cf += diffuse(Nn, In)*Kd;
        Cf += specular(Nn,-In,roughness)*Ks;

        if (map != "") {
                Cf *= tmap;
        }

        if (!isshadowray()) {
                Of = 1;
                Cf += (1 - Af);
                Af += (1 - Af);
        } 

        Of *= alpha;
        Cf *= alpha;
        Af *= alpha;
}