mmsyn7ukr 0.7.3.1 → 0.7.4.0
raw patch · 3 files changed
+23/−10 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- ChangeLog.md +4/−0
- Processing_mmsyn7ukr.hs +18/−9
- mmsyn7ukr.cabal +1/−1
ChangeLog.md view
@@ -107,3 +107,7 @@ ## 0.7.3.1 -- 2020-01-22 * Seventh version revised D. Some documentation improvements.++## 0.7.4.0 -- 2020-01-22++* Seventh version revised E. Changed the behaviour and the realization of the noise reduction function tempeRa.
Processing_mmsyn7ukr.hs view
@@ -271,24 +271,33 @@ tempeRa = do { putStrLn "Now, please, be in a silence for 5 seconds so that the program can create a noise profile to remove the noise from the recording. " ; putStrLn "Otherwise, the program can remove from the recorded sound data some important parts as a noise."- ; recA "nx.wav" 0.07- ; threadDelay 200000+ ; recA "nx1.wav" 0.07+ ; threadDelay 100000 ; recA "nx2.wav" 0.07- ; threadDelay 300000+ ; threadDelay 150000 ; recA "nx3.wav" 0.07- ; upperB1 <- upperBnd "nx.wav"+ ; threadDelay 100000+ ; recA "nx4.wav" 0.07+ ; threadDelay 100000+ ; recA "nx5.wav" 0.07+ ; threadDelay 150000+ ; upperB1 <- upperBnd "nx1.wav" ; upperB2 <- upperBnd "nx2.wav" ; upperB3 <- upperBnd "nx3.wav"- ; (ampl1,_) <- selMaxAbs "nx.wav" (0,upperB1)+ ; upperB4 <- upperBnd "nx4.wav"+ ; upperB5 <- upperBnd "nx5.wav" + ; (ampl1,_) <- selMaxAbs "nx1.wav" (0,upperB1) ; (ampl2,_) <- selMaxAbs "nx2.wav" (0,upperB2) ; (ampl3,_) <- selMaxAbs "nx3.wav" (0,upperB3)+ ; (ampl4,_) <- selMaxAbs "nx4.wav" (0,upperB4)+ ; (ampl5,_) <- selMaxAbs "nx5.wav" (0,upperB5) ; let b1 = abs (read ampl1::Double) b2 = abs (read ampl2::Double) b3 = abs (read ampl3::Double)- ; case minimum [b1,b2,b3] of- b1 -> renameFile "nx.wav" "nx0.wav"- b2 -> renameFile "nx2.wav" "nx0.wav"- _ -> renameFile "nx3.wav" "nx0.wav"+ b4 = abs (read ampl4::Double)+ b5 = abs (read ampl5::Double)+ ; getBFst' (return (), V.fromList . zip [b1,b2,b3,b4,b5] $ map (\xs -> renameFile ("nx" ++ show xs ++ ".wav") "nx0.wav")+ [1..5]) $ minimum [b1,b2,b3,b4,b5] ; noiseProfB "nx0.wav" ; putStrLn "" ; threadDelay 400000
mmsyn7ukr.cabal view
@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/ name: mmsyn7ukr-version: 0.7.3.1+version: 0.7.4.0 synopsis: A simple basic interface to some SoX functionality or to produce a voice that can be used by mmsyn7h description: A program and a library that can be used as a simple basic interface to some SoX functionality or to produce your voice in Ukrainian (if you pronounce the sounds properly) represented by the separate sounds or something special like soft sign. homepage: https://hackage.haskell.org/package/mmsyn7ukr