Redo sound travel distances

2022-05-21 10:10:17 +01:00
parent c9dcdd20e4
commit bc0f7ada3c
76 changed files with 379 additions and 372 deletions
@@ -94,7 +94,7 @@ defaultVision = Eyes
        | otherwise = 1
 defaultAudition :: Audition
 defaultAudition = Ears
-    { _auDist = \x -> x * x
+    { _auDist = id
    }
 defaultIntention :: Intention
 defaultIntention = Intention