From 602507a60567faded8f9d2e0f9d173a4e3ab481b Mon Sep 17 00:00:00 2001
From: andromeda <andromeda@lenovo>
Date: Sun, 8 Feb 2026 15:08:46 +0100
Subject: better projection, transparency; 4d camera, controls r/f for +/-w

---
 src/Game/Internal/Types.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Game/Internal/Types.hs')

diff --git a/src/Game/Internal/Types.hs b/src/Game/Internal/Types.hs
index 61173db..0a713d7 100644
--- a/src/Game/Internal/Types.hs
+++ b/src/Game/Internal/Types.hs
@@ -83,7 +83,7 @@ mkModel camera objects program wprop =
 -- | camera
 data Camera = Camera
   { -- | position in world space
-    camPos :: V3 Float,
+    camPos :: V4 Float,
     -- | pitch in radians, up positive
     camPitch :: Float,
     -- | yaw in radians, right positive
@@ -107,7 +107,7 @@ data Camera = Camera
 
 -- | smart constructor for Camera
 mkCamera ::
-  V3 Float ->
+  V4 Float ->
   Float ->
   Float ->
   V3 Float ->
-- 
cgit v1.3.1