Refactor crPos to be a V3

2025-10-10 13:47:31 +01:00
parent 98ece551c7
commit 49fb982877
58 changed files with 375 additions and 307 deletions
@@ -1,5 +1,6 @@
 module Dodge.SpawnAt (respawn) where

+import Linear
 --import Dodge.SoundLogic.ExternallyGeneratedSounds
 import Dodge.Creature
 import Geometry.Data
@@ -20,4 +21,4 @@ spawnAt p d w = w
 ----        SoundStart BackgroundSound p foamSprayFadeOutS Nothing :
 --        [MakeStartCloudAt (V3 x y 20 & _xy +~ p) | x <- [-5, -4 .. 5], y <- [-5, -4 .. 5]]
  where
-    f = set crPos p . set crDir d . set crMvDir d . set crMvAim d . set crZ 0 . set crZVel 0
+    f = set (crPos . _xy) p . set crDir d . set crMvDir d . set crMvAim d . set (crPos . _z) 0 . set crZVel 0