Start to generalise text input to "terminal signal" input

2023-03-26 13:57:26 +01:00
parent cfb0a49059
commit 082ce9c9a1
39 changed files with 171 additions and 165 deletions
@@ -73,4 +73,4 @@ makeFlamerSmokeAt p w = makeCloudAt (CloudColor 4 300 (greyN x)) 6 200 40 p w
 spawnSmokeAtCursor :: World -> World
 spawnSmokeAtCursor w = shellTrailCloud 400 100 (V3 x y 20) w
  where
-    V2 x y = mouseWorldPos (w ^. input) (w ^. cWorld . cwCamPos)
+    V2 x y = mouseWorldPos (w ^. input) (w ^. cWorld . cwCam)