Refactor crPos to be a V3

src/Dodge/Machine.hs

@@ -1,5 +1,6 @@
 module Dodge.Machine where
 
+import Linear
 import Dodge.Base
 import Dodge.Data.World
 import Dodge.Machine.Damage
@@ -51,5 +52,5 @@ machineAddSound sid f mc w
     | d < 200 = soundContinueVol (1 -0.005 * d) (MachineSound mid) (_mcPos mc) sid (Just 2) $ f mc w
     | otherwise = f mc w
   where
-    d = dist (_crPos $ you w) (_mcPos mc)
+    d = dist (you w ^. crPos . _xy) (_mcPos mc)
     mid = _mcID mc