glsl_perlin_test.C

Go to the documentation of this file.

/*****************************************************************
 * glsl_toon.C
 *****************************************************************/
#include "gtex/gl_extensions.H"
#include "glsl_perlin_test.H"

static bool debug = Config::get_var_bool("DEBUG_GLSL_TOON", false);

/**********************************************************************
 * Utilities
 **********************************************************************/
inline str_ptr 
tex_path()
{
   return Config::JOT_ROOT() + "nprdata/toon_textures/"; 
}

inline str_ptr
toon_name(Cstr_ptr& name)
{
   return tex_path() + name;
}

/**********************************************************************
 * GLSLPerlinTest:
 *
 *   Does 1D Toon shading in GLSL.
 **********************************************************************/
GLSLPerlinTest::GLSLPerlinTest(Patch* p) :
   GLSLShader(p, new VertNormStripCB)
{
   set_tex(toon_name(
      Config::get_var_str("GLSL_TOON_FILENAME","clear-black.png")
      ));
}

void 
GLSLPerlinTest::set_tex(Cstr_ptr& filename)
{
   // Set the name of the texture to use
   if (_tex) {
      _tex->set_texture(filename);
   } else {
      _tex = new TEXTUREgl(filename);
      assert(_tex);
   }
}

void
GLSLPerlinTest::init_textures()
{
   // no-op after the first time:
   if (!load_texture(_tex))
      return;

   // set parameters
   // XXX - we're calling this every frame, but it's light-weight
   _tex->set_wrap_s(GL_CLAMP_TO_EDGE);
   _tex->set_wrap_t(GL_CLAMP_TO_EDGE);
}

void
GLSLPerlinTest::activate_textures()
{
   activate_texture(_tex);      // GL_ENABLE_BIT
}

bool 
GLSLPerlinTest::get_variable_locs()
{
   get_uniform_loc("toon_tex", _tex_loc);

   // other variables here as needed...
   //create_perlin_texture2();
   return true;
}

bool
GLSLPerlinTest::set_uniform_variables() const
{
   // send uniform variable values to the program

   glUniform1i(_tex_loc, _tex->get_tex_unit() - GL_TEXTURE0);

   return true;
}

// end of file glsl_toon.C

---