justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Refactor, try to limit dependencies

Browse Source
This commit is contained in:
justin
2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/WorldEvent/Sound.hs
+12 -11
View File
@@ -1,20 +1,21 @@
module Dodge.WorldEvent.Sound
( originIDsAt
, originsIDsAt
) where
import Dodge.Data
import Dodge.SoundLogic
import Sound.Data
import Geometry.Data
import RandomHelp
module Dodge.WorldEvent.Sound (
originIDsAt,
originsIDsAt,
) where
import Control.Lens
import Dodge.Data.World
import Dodge.SoundLogic
import Geometry.Data
import RandomHelp
import Sound.Data
originsIDsAt :: [SoundOrigin] -> [SoundID] -> Point2 -> World -> World
originsIDsAt sos sids p w = soundMultiFrom sos p sid Nothing $ set randGen g w
where
(sid,g) = _randGen w & runState (takeOne sids)
(sid, g) = _randGen w & runState (takeOne sids)
originIDsAt :: SoundOrigin -> [SoundID] -> Point2 -> World -> World
originIDsAt so sids p w = soundStart so p sid Nothing $ set randGen g w
where
(sid,g) = _randGen w & runState (takeOne sids)
(sid, g) = _randGen w & runState (takeOne sids)