mmsyn7ukr 0.7.4.0 → 0.7.5.0
raw patch · 4 files changed
+15/−6 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- ChangeLog.md +5/−0
- Processing_mmsyn7ukr.hs +7/−3
- SoXBasics.hs +2/−2
- mmsyn7ukr.cabal +1/−1
ChangeLog.md view
@@ -111,3 +111,8 @@ ## 0.7.4.0 -- 2020-01-22 * Seventh version revised E. Changed the behaviour and the realization of the noise reduction function tempeRa.++## 0.7.5.0 -- 2020-01-23++* Seventh version revised F. Fixed an issue with using not a minimum of the noise level for the noise reduction function tempeRa.+Some minor documentation improvements.
Processing_mmsyn7ukr.hs view
@@ -265,7 +265,7 @@ filenames <- getDirectoryContents =<< getCurrentDirectory let rems = filter (\x -> head x == 'n') filenames in mapM_ removeFile rems --- | Function 'tempeRa' is used to create a noise profile for all the recorded sounds. If you provide a 3 seconds silence as needed, the program will+-- | Function 'tempeRa' is used to create a noise profile for all the recorded sounds. If you provide a 5 seconds silence as needed, the program will -- reduce the noise in your recordings. This will create a cleaner sound. tempeRa :: IO () tempeRa = do {@@ -296,8 +296,12 @@ b3 = abs (read ampl3::Double) 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] + ; case minimum [b1,b2,b3,b4,b5] of+ b1 -> renameFile "nx1.wav" "nx0.wav"+ b2 -> renameFile "nx2.wav" "nx0.wav"+ b3 -> renameFile "nx3.wav" "nx0.wav"+ b4 -> renameFile "nx4.wav" "nx0.wav"+ _ -> renameFile "nx5.wav" "nx0.wav" ; noiseProfB "nx0.wav" ; putStrLn "" ; threadDelay 400000
SoXBasics.hs view
@@ -279,7 +279,7 @@ then readProcessWithExitCode (fromJust (showE "sox")) [file, "3" ++ file, "rate", "-s", "-I", show frequency] "" >> return () else error "SoX is not properly installed in your system. Please, install it properly and then call the function again." --- | Function 'durationA' returns a duration of the audio file in seconds+-- | Function 'durationA' returns a duration of the audio file in seconds. durationA :: FilePath -> IO Double durationA file = if isJust (showE "soxi") then do@@ -298,7 +298,7 @@ then readProcessWithExitCode (fromJust (showE "play")) [file] "" >> return () else error "SoX is not properly installed in your system. Please, install it properly and then call the function again." --- | Function 'noiseProfB' creates with SoX a file containing a noise profile for the first 0.05 s of the audio file given+-- | Function 'noiseProfB' creates with SoX a file containing a noise profile for the first 0.05 s of the audio file given. noiseProfB :: FilePath -> IO () noiseProfB file = if isJust (showE "sox") then readProcessWithExitCode (fromJust (showE "sox")) [file, "-n", "trim", "0", "0.05", "noiseprof",file ++ ".b.prof"] "" >> return ()
mmsyn7ukr.cabal view
@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/ name: mmsyn7ukr-version: 0.7.4.0+version: 0.7.5.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