1 /* DooM2D: Midnight on the Firing Line
2 * coded by Ketmar // Invisible Vector <ketmar@ketmar.no-ip.org>
3 * Understanding is not required. Only obedience.
5 * This program is free software: you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License as published by
7 * the Free Software Foundation, either version 3 of the License, or
8 * (at your option) any later version.
10 * This program is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 * GNU General Public License for more details.
15 * You should have received a copy of the GNU General Public License
16 * along with this program. If not, see <http://www.gnu.org/licenses/>.
24 #define SEARCH_RADIUS (4)
25 #define MIN_ALPHA (0.05)
27 uniform sampler2D texLMap; // light texture of lightTexSize
28 uniform sampler2D texBg; // background
29 uniform sampler2D texOcc; // occluders
30 uniform sampler2D texOccSmall; // occluders, small map
31 uniform vec2 lightTexSize; // x: lightSize; y: size of this texture
32 uniform vec2 mapPixSize;
33 uniform vec4 lightColor;
34 uniform vec2 lightPos;
37 bool hasLight (in vec2 txo, in float pixelStep) {
40 for (int dy = SEARCH_RADIUS*2; dy > 0; --dy) {
41 for (int dx = SEARCH_RADIUS*2; dx > 0; --dx) {
42 if (texture2D(texLMap, txc).a > MIN_ALPHA) return true;
50 float pxs = pixelStep*(SEARCH_RADIUS*2);
52 vec2 txcld = vec2(txo.x-pxs, txo.y+pxs);
53 vec2 txcru = vec2(txo.x+pxs, txo.y-pxs);
55 vec2 txcu = vec2(txo.x, txo.y-pxs);
56 vec2 txcd = vec2(txo.x, txo.y+pxs);
57 vec2 txcl = vec2(txo.x-pxs, txo.y);
58 vec2 txcr = vec2(txo.x+pxs, txo.y);
59 vec2 txcrStep = vec2(pixelStep, -pixelStep);
60 float pst2 = pixelStep*2;
61 for (int d = SEARCH_RADIUS; d > 0; --d) {
62 if (texture2D(texLMap, txclu).a > MIN_ALPHA) return true;
64 if (texture2D(texLMap, txcld).a > MIN_ALPHA) return true;
68 if (texture2D(texLMap, txcru).a > MIN_ALPHA) return true;
71 if (texture2D(texLMap, txcrd).a > MIN_ALPHA) return true;
74 if (texture2D(texLMap, txcu).a > MIN_ALPHA) return true;
76 if (texture2D(texLMap, txcd).a > MIN_ALPHA) return true;
79 if (texture2D(texLMap, txcl).a > MIN_ALPHA) return true;
81 if (texture2D(texLMap, txcr).a > MIN_ALPHA) return true;
88 //gl_FragCoord: in background
91 vec2 vTexCoord0 = gl_TexCoord[0].xy; // in light texture (texLMap)
92 //vec2 btxy = gl_FragCoord.xy/mapPixSize;
94 vec2 btxy = vec2(/*lightPos.x+*/gl_FragCoord.x, /*lightPos.y+gl_TexCoord[0].y*lightTexSize.x*/gl_FragCoord.y);
95 //btxy.y = mapPixSize.y-btxy.y;
97 vec2 ocxy = vec2(btxy.x, 1.0-btxy.y);
101 vec4 bcolor = texture2D(texBg, btxy);
105 //if (texture2D(texOcc, ocxy).a <= 0.75) color.a = 0.1;
107 vec2 ourpos = gl_FragCoord.xy;
108 ourpos.y = mapPixSize.y-ourpos.y;
109 // distance from this point to light origin
110 float lit = clamp(1.0-(distance(ourpos, lightPos)/(lightTexSize.x/2.0)), 0.0, 1.0);
111 lit = smoothstep(0.1, 1.0, lit);
114 //if (texture2D(texOcc, ocxy).a <= 0.75) discard; // empty space
115 //float pixelStep = 1.0/lightTexSize.x;
116 //if (!hasLight(vTexCoord0, pixelStep)) discard;
118 color.r = vTexCoord0.x;
124 if (texture2D(texOcc, ocxy).a <= 0.75) discard; // empty space
126 // occluder hit; look for light in 8px radius
127 float pixelStep = 1.0/lightTexSize.y;
128 if (!hasLight(vTexCoord0, pixelStep)) discard;
130 vec4 bcolor = texture2D(texBg, btxy);
131 // light is y-mirrored
132 vec2 ourpos = gl_FragCoord.xy;
133 ourpos.y = mapPixSize.y-ourpos.y;
134 // distance from this point to light origin
135 float lit = clamp(1.0-(distance(ourpos, lightPos)/(lightTexSize.x/2.0)), 0.0, 1.0);
136 lit = smoothstep(0.1, 1.0, lit);
137 if (lightColor.a == 0.0) {
138 color = bcolor*vec4(vec3(1.0), lit);
140 color = lightColor*lit;
145 gl_FragColor = color;