[refactor] blit to use glTexSubImage2D

1 files changed, 1 insertions, 9 deletions

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)))