1!!ARBfp1.0 2# Custom YUV->RGB conversion program for MPlayer's -vo gl. 3# Copyleft (C) Reimar Döffinger, 2005 4# Licensed under the GNU GPL v2 or later 5# Usage: mplayer -vo gl:yuv=4:customprog=edgeenh.fp 6# This is some custom edge-enhancement like effect. 7# Try adjusting the gamma! 8# program.env[0].xy contains the size of one source texel 9PARAM strength = {0.5}; 10TEMP res, yuv, pos, tmp, sizes, center; 11SWZ sizes, program.env[0], x, y, 0, 0; 12TEX center.r, fragment.texcoord[0], texture[0], 2D; 13ADD pos, fragment.texcoord[0].xyxy, sizes.xwwy; # texels to the right and below 14TEX tmp.r, pos.xyxy, texture[0], 2D; 15MAD yuv.r, center.rrrr, {4}, -tmp.rrrr; 16TEX tmp.r, pos.zwzw, texture[0], 2D; 17SUB yuv.r, yuv.rrrr, tmp.rrrr; 18SUB pos, fragment.texcoord[0].xyxy, sizes.xwwy; # texels to the left and above 19TEX tmp.r, pos.xyxy, texture[0], 2D; 20SUB yuv.r, yuv.rrrr, tmp.rrrr; 21TEX tmp.r, pos.zwzw, texture[0], 2D; 22SUB yuv.r, yuv.rrrr, tmp.rrrr; 23MAD yuv.r, yuv.rrrr, strength, center.rrrr; 24TEX yuv.g, fragment.texcoord[1], texture[1], 2D; 25TEX yuv.b, fragment.texcoord[2], texture[2], 2D; 26# now do the normal YUV -> RGB conversion 27MAD res, yuv.rrrr, {1.164, 1.164, 1.164, 0}, {-0.87416, 0.53133, -1.08599, 0.125}; 28MAD res.rgb, yuv.gggg, {0, -0.391, 2.018, 0}, res; 29MAD res.rgb, yuv.bbbb, {1.596, -0.813, 0, 0}, res; 30# do gamma texture lookup 31TEX res.r, res.raaa, texture[3], 2D; 32ADD res.a, res.a, 0.25; 33TEX res.g, res.gaaa, texture[3], 2D; 34ADD res.a, res.a, 0.25; 35TEX res.b, res.baaa, texture[3], 2D; 36# move res into result, this allows easily commenting out some parts. 37MOV result.color, res; 38END 39