A.3 A Classless Shader Effect 967
pkPShader->SetTextureQuantity(4);
pkPShader->SetImageName(0,"BTGrass");
pkPShader->SetImageName(1,"BTStone");
pkPShader->SetImageName(2,"BTBlend");
pkPShader->SetImageName(3,"BTCloud");
pkPShader->GetTexture(0)->SetFilterType(Texture::LINEAR_LINEAR);
pkPShader->GetTexture(0)->SetWrapType(0,Texture::REPEAT);
pkPShader->GetTexture(0)->SetWrapType(1,Texture::REPEAT);
pkPShader->GetTexture(1)->SetFilterType(Texture::LINEAR_LINEAR);
pkPShader->GetTexture(1)->SetWrapType(0,Texture::REPEAT);
pkPShader->GetTexture(1)->SetWrapType(1,Texture::REPEAT);
pkPShader->GetTexture(2)->SetFilterType(Texture::LINEAR);
pkPShader->GetTexture(2)->SetWrapType(0,Texture::CLAMP_EDGE);
pkPShader->GetTexture(3)->SetFilterType(Texture::LINEAR_LINEAR); ...