/usr/share/psychtoolbox-3/PsychOpenGL/PsychGLSLShaders/ClutBlitShader.frag.txt is in psychtoolbox-3-common 3.0.11.20140816.dfsg1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | /* ClutBlitShader.frag -- Brute force CLUT animation.
* Shader for application of a color lookup table to a texture image.
* Reads each texels color index from red/luminance channel of texture
* 'Image', does a index -> color lookup in lookup table texture 'clut'.
* Assigns looked up color RGB to output fragment color RGB. Copies alpha
* channels value unmodified.
* This shader is used by moglClutBlit.m to implement CLUT animation caps.
*
* (w)2006 by Mario Kleiner. Licensed under MIT license.
*/
#extension GL_ARB_texture_rectangle : enable
uniform sampler2DRect Image;
uniform sampler2DRect clut;
void main()
{
vec4 incolor = texture2DRect(Image, gl_TexCoord[0].st);
float index = incolor.r * 255.0 + 0.5;
gl_FragColor.rgb = texture2DRect(clut, vec2(index, 0)).rgb;
gl_FragColor.a = incolor.a;
}
|