~alcinnz/Mondrian: Fix coordinatespace for texture-pixel lookup.

5b6139fdea49c56fce282042b58c955fa9dca6e8 — Adrian Cochrane 1 year, 6 months ago 6a5ce33

Fix coordinatespace for texture-pixel lookup.

patch browse

1 files changed, 1 insertions(+), 1 deletions(-)

M lib/Graphics/Rendering/Rect/Backgrounds.hs

M lib/Graphics/Rendering/Rect/Backgrounds.hs => lib/Graphics/Rendering/Rect/Backgrounds.hs +1 -1

@@ 22,7 22,7 @@ imageFragmentShader = B8.pack $ unlines [
     "in vec2 coord;",
     "out vec4 fcolour;",
     "uniform sampler2D image;",
-    "void main() { fcolour = texture(image, coord); }"
+    "void main() { fcolour = texture(image, coord/textureSize(image, 0)); }"
   ]
 
 renderBackgrounds :: (MonadIO m, MonadIO n) =>