Stop all sound when stopping time

2022-10-28 14:36:16 +01:00
parent d3233c7daa
commit 0150655c6d
16 changed files with 99 additions and 96 deletions
@@ -4,8 +4,8 @@ import Dodge.Data.World
 import Geometry.Data
 import Control.Lens

-zoneOfSight' :: Float -> World -> [Int2]
-zoneOfSight' s w =
+zoneOfSight :: Float -> World -> [Int2]
+zoneOfSight s w =
    [ V2 a b
    | a <- [minimum xs .. maximum xs]
    , b <- [minimum ys .. maximum ys]