From a3d98d979bca7f55c3fdbeda62f482374f140c73 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Wed, 22 Jun 2022 07:22:42 -0500
Subject: [fix] render in bitmap to include projection

---
 wheelwork.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'wheelwork.lisp')

diff --git a/wheelwork.lisp b/wheelwork.lisp
index 6ad9107..42dd830 100644
--- a/wheelwork.lisp
+++ b/wheelwork.lisp
@@ -333,7 +333,7 @@ order). Makes sure to remove the unit from its current container if necessary."
     (gl:program-uniform-matrix-4fv
      shader
      (gl:get-uniform-location shader "TRANSFORM")
-     (mat:marr (model-matrix bitmap)))
+     (mat:marr (mat:m* (application-projection *application*) (model-matrix bitmap))))
     (gl:bind-vertex-array vao)    
     (gl:draw-arrays :triangles 0 6)
     (gl:bind-vertex-array 0)))
-- 
cgit v1.2.3