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
@@ -1,4 +1,17 @@
-module Dodge.Zoning.Base where
+module Dodge.Zoning.Base 
+    ( zoneExtract
+    , zoneOfPoint
+    , zonesExtract
+    , zoneOfSeg
+    , zoneOfRect
+    , zoneMonoid
+    , deZoneIX
+    , zoneOfPoint''
+    , zoneOfCirc
+    , zonesAroundPoint
+    , xIntercepts
+    , yIntercepts'
+    ) where

 import Control.Lens
 import qualified Data.IntSet as IS
@@ -21,9 +34,9 @@ makeIntInterval x y
    | x < y = [x .. y]
    | otherwise = [y .. x]

-makeInt2Interval :: Int2 -> Int2 -> [Int2]
-makeInt2Interval (V2 x1 y1) (V2 x2 y2) =
-    [V2 x y | x <- makeIntInterval x1 x2, y <- makeIntInterval y1 y2]
+--makeInt2Interval :: Int2 -> Int2 -> [Int2]
+--makeInt2Interval (V2 x1 y1) (V2 x2 y2) =
+--    [V2 x y | x <- makeIntInterval x1 x2, y <- makeIntInterval y1 y2]

 zoneOfPoint :: Float -> Point2 -> Int2
 zoneOfPoint = fmap . divTo