From 35fad29cec4ccaa338e03f9b0879757a9c4c860e Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Sat, 16 Jul 2022 17:16:42 -0500
Subject: [refactor] blit to use glTexSubImage2D

---
 src/interactive/canvas.lisp | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

(limited to 'src')

diff --git a/src/interactive/canvas.lisp b/src/interactive/canvas.lisp
index ce7829b..256348e 100644
--- a/src/interactive/canvas.lisp
+++ b/src/interactive/canvas.lisp
@@ -207,15 +207,7 @@ e.g., drawing a line in a particular color."
   (with-slots (fbo texture data pixel-width pixel-height) canvas
     (gl:bind-framebuffer :framebuffer fbo)
     (gl:bind-texture :texture-2d (texture-id texture))
-    (gl:tex-image-2d :texture-2d
-                     0
-                     :rgba
-                     pixel-width
-                     pixel-height
-                     0
-                     :rgba
-                     :unsigned-byte
-                     data)
+    (gl:tex-sub-image-2d :texture-2d 0 0 0 pixel-width pixel-height :rgba :unsigned-byte data)
     (gl:bind-texture :texture-2d 0)
     (gl:bind-framebuffer :framebuffer 0)))
 
-- 
cgit v1.2.3