/*
*
* Author: Dan Lynch
*
*/

#pragma hint Ka color
#pragma hint Kd color
#pragma hint Ks color
#pragma hint map image
#pragma hint uv hidden

#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
bd_map
        (
        vector Ka=1, Kd=1, Ks=1;
        float roughness = .1;
        export vector uv = 0;
        string map = "Mandril.pic";
        )
{
        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);

        //colormap() is similiar to texture()
        //vector tmap = vector (colormap(map,u,V, "mode", "clamp"));

        vector tmap = vector (texture(map,u,V));

        Cf = ambient(Nn,In)*Ka;
        Cf += diffuse(Nn, In)*Kd;
        Cf += specular(Nn,-In,roughness)*Ks;
        Cf *= tmap;
}