Modify analyser sounds

This commit is contained in:
2022-03-22 18:42:48 +00:00
parent 7b842bca4f
commit 72a1399da0
10 changed files with 176 additions and 160 deletions
+146 -136
View File
@@ -1,4 +1,4 @@
-- generated at 2022-03-22 10:04:11.692663796 UTC
-- generated at 2022-03-22 15:35:37.255279739 UTC
module Dodge.SoundLogic.ExternallyGeneratedSounds where
import Sound.Data
soundToVol :: SoundID -> Float
@@ -26,51 +26,53 @@ soundToVol v = case _getSoundID v of
20 -> 4000
21 -> 5000
22 -> 5000
23 -> 20000
24 -> 4000
25 -> 10000
26 -> 8000
27 -> 4000
28 -> 2000
29 -> 6000
30 -> 500
31 -> 5000
32 -> 8000
23 -> 5000
24 -> 20000
25 -> 4000
26 -> 10000
27 -> 8000
28 -> 4000
29 -> 2000
30 -> 6000
31 -> 500
32 -> 5000
33 -> 8000
34 -> 8000
35 -> 5000
36 -> 8000
37 -> 4000
38 -> 3000
39 -> 8000
40 -> 2000
41 -> 10000
42 -> 5000
43 -> 2000
44 -> 3000
45 -> 5000
46 -> 10000
47 -> 12000
48 -> 5000
49 -> 10000
50 -> 12000
51 -> 2000
52 -> 3000
53 -> 8000
54 -> 5000
55 -> 2000
56 -> 3000
57 -> 10000
58 -> 500
59 -> 10000
60 -> 3000
61 -> 15000
62 -> 10000
63 -> 3000
64 -> 1000
65 -> 15000
66 -> 10000
67 -> 8000
35 -> 8000
36 -> 5000
37 -> 8000
38 -> 4000
39 -> 3000
40 -> 8000
41 -> 2000
42 -> 10000
43 -> 5000
44 -> 2000
45 -> 3000
46 -> 5000
47 -> 10000
48 -> 12000
49 -> 5000
50 -> 10000
51 -> 12000
52 -> 2000
53 -> 3000
54 -> 8000
55 -> 5000
56 -> 2000
57 -> 3000
58 -> 10000
59 -> 500
60 -> 10000
61 -> 3000
62 -> 15000
63 -> 10000
64 -> 3000
65 -> 1000
66 -> 15000
67 -> 10000
68 -> 5000
69 -> 8000
_ -> 50
soundToOnomato :: SoundID -> String
soundToOnomato v = case _getSoundID v of
@@ -96,52 +98,54 @@ soundToOnomato v = case _getSoundID v of
19 -> "TNKTNKTNK"
20 -> "TIPTAP"
21 -> "WRR"
22 -> "HSS"
23 -> "BOOM"
24 -> "CLNK"
25 -> "BRAP"
26 -> "CRSNK"
27 -> "TAPP"
28 -> "BLIH"
29 -> "TAPTIP"
30 -> "CLICK"
31 -> "FWUMP"
32 -> "RINGGG"
33 -> "BRAP"
34 -> "CRUMPLE"
35 -> "TRINKL"
36 -> "TAK"
37 -> "SMACK"
38 -> "DRR"
39 -> "CRASH"
40 -> "SWSH"
41 -> "CRAKLE"
42 -> "CRTINK"
43 -> "FHP"
44 -> "CHPCHPCHP"
45 -> "BIPBIPBIP"
46 -> "CHUGUGUG"
47 -> "BRPBRPBRP"
48 -> "CHNKCHNKCHUNK"
49 -> "WRRR"
50 -> "BRDBRDBRD"
51 -> "PHF"
52 -> "BWAAH"
53 -> "BEP"
54 -> "HSSS"
55 -> "SHUHP"
56 -> "THUD"
57 -> "WHSSH"
58 -> "HMM"
59 -> "BRAHCHCH"
60 -> "TIP"
61 -> "BANGG"
62 -> "ZHM"
63 -> "TAP"
64 -> "BLPCHCH"
65 -> "BANG"
66 -> "CHUGUGUG"
67 -> "CRISH"
22 -> "DEDUM"
23 -> "HSS"
24 -> "BOOM"
25 -> "CLNK"
26 -> "BRAP"
27 -> "CRSNK"
28 -> "TAPP"
29 -> "BLIH"
30 -> "TAPTIP"
31 -> "CLICK"
32 -> "FWUMP"
33 -> "RINGGG"
34 -> "BRAP"
35 -> "CRUMPLE"
36 -> "TRINKL"
37 -> "TAK"
38 -> "SMACK"
39 -> "DRR"
40 -> "CRASH"
41 -> "SWSH"
42 -> "CRAKLE"
43 -> "CRTINK"
44 -> "FHP"
45 -> "CHPCHPCHP"
46 -> "BIPBIPBIP"
47 -> "CHUGUGUG"
48 -> "BRPBRPBRP"
49 -> "CHNKCHNKCHUNK"
50 -> "WRRR"
51 -> "BRDBRDBRD"
52 -> "PHF"
53 -> "BWAAH"
54 -> "BEP"
55 -> "HSSS"
56 -> "SHUHP"
57 -> "THUD"
58 -> "WHSSH"
59 -> "HMM"
60 -> "BRAHCHCH"
61 -> "TIP"
62 -> "BANGG"
63 -> "ZHM"
64 -> "TAP"
65 -> "BLPCHCH"
66 -> "BANG"
67 -> "CHUGUGUG"
68 -> "DEDA"
69 -> "CRISH"
_ -> error "unitialised sound"
soundPathList :: [String]
soundPathList =
@@ -167,6 +171,7 @@ soundPathList =
, "reload.TNKTNKTNK.3000.wav"
, "twoStep.TIPTAP.4000.wav"
, "fire.WRR.5000.wav"
, "dedum.DEDUM.5000.wav"
, "foamSprayFadeOut.HSS.5000.wav"
, "explosion.BOOM.20000.wav"
, "tapQuiet.CLNK.4000.wav"
@@ -212,6 +217,7 @@ soundPathList =
, "oldMachineBoot.BLPCHCH.1000.wav"
, "bang.BANG.15000.wav"
, "seagullChatter.CHUGUGUG.10000.wav"
, "deda.DEDA.5000.wav"
, "impact4.CRISH.8000.wav"
]
tone440sawtoothquietS :: SoundID
@@ -258,95 +264,99 @@ twoStepS :: SoundID
twoStepS = SoundID 20
fireS :: SoundID
fireS = SoundID 21
dedumS :: SoundID
dedumS = SoundID 22
foamSprayFadeOutS :: SoundID
foamSprayFadeOutS = SoundID 22
foamSprayFadeOutS = SoundID 23
explosionS :: SoundID
explosionS = SoundID 23
explosionS = SoundID 24
tapQuietS :: SoundID
tapQuietS = SoundID 24
tapQuietS = SoundID 25
autoGunS :: SoundID
autoGunS = SoundID 25
autoGunS = SoundID 26
glassShat1S :: SoundID
glassShat1S = SoundID 26
glassShat1S = SoundID 27
foot3S :: SoundID
foot3S = SoundID 27
foot3S = SoundID 28
healS :: SoundID
healS = SoundID 28
healS = SoundID 29
twoStep1S :: SoundID
twoStep1S = SoundID 29
twoStep1S = SoundID 30
click1S :: SoundID
click1S = SoundID 30
click1S = SoundID 31
tap4S :: SoundID
tap4S = SoundID 31
tap4S = SoundID 32
tinitusS :: SoundID
tinitusS = SoundID 32
tinitusS = SoundID 33
tap3S :: SoundID
tap3S = SoundID 33
tap3S = SoundID 34
impact3S :: SoundID
impact3S = SoundID 34
impact3S = SoundID 35
smallGlass1S :: SoundID
smallGlass1S = SoundID 35
smallGlass1S = SoundID 36
tap1S :: SoundID
tap1S = SoundID 36
tap1S = SoundID 37
hit1S :: SoundID
hit1S = SoundID 37
hit1S = SoundID 38
slideDoorS :: SoundID
slideDoorS = SoundID 38
slideDoorS = SoundID 39
impact1S :: SoundID
impact1S = SoundID 39
impact1S = SoundID 40
knifeS :: SoundID
knifeS = SoundID 40
knifeS = SoundID 41
elecCrackleS :: SoundID
elecCrackleS = SoundID 41
elecCrackleS = SoundID 42
smallGlass3S :: SoundID
smallGlass3S = SoundID 42
smallGlass3S = SoundID 43
whiteNoiseFadeInS :: SoundID
whiteNoiseFadeInS = SoundID 43
whiteNoiseFadeInS = SoundID 44
reload1S :: SoundID
reload1S = SoundID 44
reload1S = SoundID 45
computerBeepingS :: SoundID
computerBeepingS = SoundID 45
computerBeepingS = SoundID 46
seagullChatter1S :: SoundID
seagullChatter1S = SoundID 46
seagullChatter1S = SoundID 47
miniS :: SoundID
miniS = SoundID 47
miniS = SoundID 48
crankSlowS :: SoundID
crankSlowS = SoundID 48
crankSlowS = SoundID 49
fireLoudS :: SoundID
fireLoudS = SoundID 49
fireLoudS = SoundID 50
mini1S :: SoundID
mini1S = SoundID 50
mini1S = SoundID 51
whiteNoiseFadeOutS :: SoundID
whiteNoiseFadeOutS = SoundID 51
whiteNoiseFadeOutS = SoundID 52
sineRaisePitchTwoSecS :: SoundID
sineRaisePitchTwoSecS = SoundID 52
sineRaisePitchTwoSecS = SoundID 53
tone440S :: SoundID
tone440S = SoundID 53
tone440S = SoundID 54
foamSprayLoopS :: SoundID
foamSprayLoopS = SoundID 54
foamSprayLoopS = SoundID 55
pickUpS :: SoundID
pickUpS = SoundID 55
pickUpS = SoundID 56
hitS :: SoundID
hitS = SoundID 56
hitS = SoundID 57
missileLaunchS :: SoundID
missileLaunchS = SoundID 57
missileLaunchS = SoundID 58
fridgeHumS :: SoundID
fridgeHumS = SoundID 58
fridgeHumS = SoundID 59
shotgunS :: SoundID
shotgunS = SoundID 59
shotgunS = SoundID 60
foot1S :: SoundID
foot1S = SoundID 60
foot1S = SoundID 61
bangEchoS :: SoundID
bangEchoS = SoundID 61
bangEchoS = SoundID 62
teleS :: SoundID
teleS = SoundID 62
teleS = SoundID 63
foot2S :: SoundID
foot2S = SoundID 63
foot2S = SoundID 64
oldMachineBootS :: SoundID
oldMachineBootS = SoundID 64
oldMachineBootS = SoundID 65
bangS :: SoundID
bangS = SoundID 65
bangS = SoundID 66
seagullChatterS :: SoundID
seagullChatterS = SoundID 66
seagullChatterS = SoundID 67
dedaS :: SoundID
dedaS = SoundID 68
impact4S :: SoundID
impact4S = SoundID 67
impact4S = SoundID 69