From 8746330a4368203e4e4da8fbf447537105bbd09d Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@member.fsf.org>
Date: Sun, 18 Aug 2013 21:22:20 -0400
Subject: Use GL_NEAREST method for texture scaling.

---
 2d/texture.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to '2d/texture.scm')

diff --git a/2d/texture.scm b/2d/texture.scm
index 6d04770..b7808b3 100644
--- a/2d/texture.scm
+++ b/2d/texture.scm
@@ -108,12 +108,14 @@
   (let ((texture-id (gl-generate-texture))
         (pixels (freeimage-get-bits bitmap)))
     (with-gl-bind-texture (texture-target texture-2d) texture-id
+      ;; Use "nearest" scaling method so that pixel art doesn't become
+      ;; blurry when scaled.
       (gl-texture-parameter (texture-target texture-2d)
                             (texture-parameter-name texture-min-filter)
-                            (texture-min-filter linear))
+                            (texture-min-filter nearest))
       (gl-texture-parameter (texture-target texture-2d)
                             (texture-parameter-name texture-mag-filter)
-                            (texture-mag-filter linear))
+                            (texture-mag-filter nearest))
       (gl-texture-image-2d (texture-target texture-2d)
                            0
                            (pixel-format rgba)
-- 
cgit v1.2.3