mmsyn7ukr 0.12.0.3 → 0.12.0.4
raw patch · 5 files changed
+120/−45 lines, 5 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- ChangeLog.md +4/−0
- Main.hs +1/−1
- Processing_mmsyn7ukr.hs +78/−22
- README.markdown +36/−21
- mmsyn7ukr.cabal +1/−1
ChangeLog.md view
@@ -188,3 +188,7 @@ ## 0.12.0.3 -- 2020-01-30 * Twelfth version revised C. Fixed issues with inexact documentation and informational messages. Improved stylistics. Some documentation improvements.++## 0.12.0.4 -- 2020-01-30++* Twelfth version revised D. Fixed issues with inexact documentation and informational messages. Improved stylistics. Some documentation improvements.
Main.hs view
@@ -36,5 +36,5 @@ putStr "list-of-produced-sound-representations (if any) -- a list of sound representations, which the program will try to produce while being executed. " putStrLn "The default one (if not specified) is a full range of needed sound representations. " "-v" -> do- putStrLn "mmsyn7ukr version: 0.12.0.2"+ putStrLn "mmsyn7ukr version: 0.12.0.4" _ -> main7ukr args
Processing_mmsyn7ukr.hs view
@@ -178,18 +178,46 @@ ; putStrLn "2 -> after the noise reduction the program additionally to the 1-processing applies a double band-reject filter to the audio (SoX \"sinc\" effect); " ; putStrLn "_ -> after the noise reduction the program additionally to the 2-processing applies fade-in and fade-out effects to the audio; " ; putStrLn ""- ; putStrLn "If you specified as a second command line argument one of the numbers below the program behaves as follows: "- ; putStr "0 -> the amplitude of the audio signal in the recorded sound to be included in the resulting file (starting from which the file will "- ; putStrLn "not be trimmed for the first command line argument greater than 1) is 0.01;"- ; putStr "1 -> the amplitude of the audio signal in the recorded sound to be included in the resulting file (starting from which the file will "- ; putStrLn "not be trimmed for the first command line argument greater than 1) is 0.02;" - ; putStr "2 -> the amplitude of the audio signal in the recorded sound to be included in the resulting file (starting from which the file will "- ; putStrLn "not be trimmed for the first command line argument greater than 1) is 0.04;" - ; putStr "3 -> the amplitude of the audio signal in the recorded sound to be included in the resulting file (starting from which the file will "- ; putStrLn "not be trimmed for the first command line argument greater than 1) is 0.08;" - ; putStr "_ -> the amplitude of the audio signal in the recorded sound to be included in the resulting file (starting from which the file will "- ; putStrLn "not be trimmed for the first command line argument greater than 1) is 0.04." + ; putStr "0 -> if the first character in the first command line argument is greater or equal to 1, "+ ; putStr "then the program trims the sound at the beginning and at the end of it. "+ ; putStr "It firstly normalizes the sound (so its maximum aplitude is equal to 1) "+ ; putStr "and then applies trimming. The parts of the audio at the beginning "+ ; putStr "and at the end of the sound, which amplitudes in such a case are "+ ; putStr "less than 0.01 are trimmed and the resulting sound data are processed "+ ; putStrLn "further. " ; putStrLn ""+ ; putStr "1 -> if the first character in the first command line argument is greater or equal to 1, "+ ; putStr "then the program trims the sound at the beginning and at the end of it. "+ ; putStr "It firstly normalizes the sound (so its maximum aplitude is equal to 1) "+ ; putStr "and then applies trimming. The parts of the audio at the beginning "+ ; putStr "and at the end of the sound, which amplitudes in such a case are "+ ; putStr "less than 0.02 are trimmed and the resulting sound data are processed "+ ; putStrLn "further. "+ ; putStrLn ""+ ; putStr "2 -> if the first character in the first command line argument is greater or equal to 1, "+ ; putStr "then the program trims the sound at the beginning and at the end of it. "+ ; putStr "It firstly normalizes the sound (so its maximum aplitude is equal to 1) "+ ; putStr "and then applies trimming. The parts of the audio at the beginning "+ ; putStr "and at the end of the sound, which amplitudes in such a case are "+ ; putStr "less than 0.04 are trimmed and the resulting sound data are processed "+ ; putStrLn "further. "+ ; putStrLn ""+ ; putStr "3 -> if the first character in the first command line argument is greater or equal to 1, "+ ; putStr "then the program trims the sound at the beginning and at the end of it. "+ ; putStr "It firstly normalizes the sound (so its maximum aplitude is equal to 1) "+ ; putStr "and then applies trimming. The parts of the audio at the beginning "+ ; putStr "and at the end of the sound, which amplitudes in such a case are "+ ; putStr "less than 0.08 are trimmed and the resulting sound data are processed "+ ; putStrLn "further. "+ ; putStrLn ""+ ; putStr "_ -> if the first character in the first command line argument is greater or equal to 1, "+ ; putStr "then the program trims the sound at the beginning and at the end of it. "+ ; putStr "It firstly normalizes the sound (so its maximum aplitude is equal to 1) "+ ; putStr "and then applies trimming. The parts of the audio at the beginning "+ ; putStr "and at the end of the sound, which amplitudes in such a case are "+ ; putStr "less than 0.04 are trimmed and the resulting sound data are processed "+ ; putStrLn "further. So effectively it is the same as 2 (the default value). "+ ; putStrLn "" ; let noiseMax = getBFst' (2::Int, V.fromList [("0", 0::Int), ("1", 1::Int), ("2", 2::Int), ("3", 3::Int)]) noiseLim ; produceSound3 (actsctrl, noiseLim) (file, file1) soundUkr (noiseMax, duration0) lim0 ; cleanTemp }@@ -255,17 +283,45 @@ ; putStrLn "3 -> after the noise reduction the program additionally to the 2-processing applies fade-in and fade-out effects to the audio; " ; putStrLn "_ -> is the same as 3. " ; putStrLn ""-; putStrLn "If you specified as a second command line argument one of the numbers below the program behaves as follows: "-; putStr "0 -> the amplitude of the audio signal in the recorded sound to be included in the resulting file (starting from which the file will "-; putStrLn "not be trimmed for the first command line argument greater than 1) is 0.01;"-; putStr "1 -> the amplitude of the audio signal in the recorded sound to be included in the resulting file (starting from which the file will "-; putStrLn "not be trimmed for the first command line argument greater than 1) is 0.02;" -; putStr "2 -> the amplitude of the audio signal in the recorded sound to be included in the resulting file (starting from which the file will "-; putStrLn "not be trimmed for the first command line argument greater than 1) is 0.04;" -; putStr "3 -> the amplitude of the audio signal in the recorded sound to be included in the resulting file (starting from which the file will "-; putStrLn "not be trimmed for the first command line argument greater than 1) is 0.08;" -; putStr "_ -> the amplitude of the audio signal in the recorded sound to be included in the resulting file (starting from which the file will "-; putStrLn "not be trimmed for the first command line argument greater than 1) is 0.04." +; putStr "0 -> if the first character in the first command line argument is greater or equal to 1, "+; putStr "then the program trims the sound at the beginning and at the end of it. "+; putStr "It firstly normalizes the sound (so its maximum aplitude is equal to 1) "+; putStr "and then applies trimming. The parts of the audio at the beginning "+; putStr "and at the end of the sound, which amplitudes in such a case are "+; putStr "less than 0.01 are trimmed and the resulting sound data are processed "+; putStrLn "further. "+; putStrLn ""+; putStr "1 -> if the first character in the first command line argument is greater or equal to 1, "+; putStr "then the program trims the sound at the beginning and at the end of it. "+; putStr "It firstly normalizes the sound (so its maximum aplitude is equal to 1) "+; putStr "and then applies trimming. The parts of the audio at the beginning "+; putStr "and at the end of the sound, which amplitudes in such a case are "+; putStr "less than 0.02 are trimmed and the resulting sound data are processed "+; putStrLn "further. "+; putStrLn ""+; putStr "2 -> if the first character in the first command line argument is greater or equal to 1, "+; putStr "then the program trims the sound at the beginning and at the end of it. "+; putStr "It firstly normalizes the sound (so its maximum aplitude is equal to 1) "+; putStr "and then applies trimming. The parts of the audio at the beginning "+; putStr "and at the end of the sound, which amplitudes in such a case are "+; putStr "less than 0.04 are trimmed and the resulting sound data are processed "+; putStrLn "further. "+; putStrLn ""+; putStr "3 -> if the first character in the first command line argument is greater or equal to 1, "+; putStr "then the program trims the sound at the beginning and at the end of it. "+; putStr "It firstly normalizes the sound (so its maximum aplitude is equal to 1) "+; putStr "and then applies trimming. The parts of the audio at the beginning "+; putStr "and at the end of the sound, which amplitudes in such a case are "+; putStr "less than 0.08 are trimmed and the resulting sound data are processed "+; putStrLn "further. "+; putStrLn ""+; putStr "_ -> if the first character in the first command line argument is greater or equal to 1, "+; putStr "then the program trims the sound at the beginning and at the end of it. "+; putStr "It firstly normalizes the sound (so its maximum aplitude is equal to 1) "+; putStr "and then applies trimming. The parts of the audio at the beginning "+; putStr "and at the end of the sound, which amplitudes in such a case are "+; putStr "less than 0.04 are trimmed and the resulting sound data are processed "+; putStrLn "further. So effectively it is the same as 2 (the default value). " ; putStrLn "" ; let noiseMax = getBFst' (2::Int, V.fromList [("0", 0::Int), ("1", 1::Int), ("2", 2::Int), ("3", 3::Int)]) noiseLim ; produceSound3 (actsctrl, noiseLim) (file, file1) soundUkr (noiseMax, duration0) lim0
README.markdown view
@@ -131,31 +131,46 @@ If you specify as a second command line argument one of the numbers below the program behaves as follows: - 0 -> the amplitude of the audio signal in the recorded sound- to be included in the resulting file (starting from which the file will - not be trimmed for the first command line argument greater - than 1) is 0.01;+ 0 -> if the first character in the first command line argument is greater or equal to 1,+ then the program trims the sound at the beginning and at the end of it.+ It firstly normalizes the sound (so its maximum aplitude is equal to 1)+ and then applies trimming. The parts of the audio at the beginning+ and at the end of the sound, which amplitudes in such a case are+ less than 0.01 are trimmed and the resulting sound data are processed+ further. - 1 -> the amplitude of the audio signal in the recorded sound- to be included in the resulting file (starting from which the file will - not be trimmed for the first command line argument greater - than 1) is 0.02;+ 1 -> if the first character in the first command line argument is greater or equal to 1,+ then the program trims the sound at the beginning and at the end of it.+ It firstly normalizes the sound (so its maximum aplitude is equal to 1)+ and then applies trimming. The parts of the audio at the beginning+ and at the end of the sound, which amplitudes in such a case are+ less than 0.02 are trimmed and the resulting sound data are processed+ further. - 2 -> the amplitude of the audio signal in the recorded sound- to be included in the resulting file (starting from which the file will - not be trimmed for the first command line argument greater - than 1) is 0.04;+ 2 -> if the first character in the first command line argument is greater or equal to 1,+ then the program trims the sound at the beginning and at the end of it.+ It firstly normalizes the sound (so its maximum aplitude is equal to 1)+ and then applies trimming. The parts of the audio at the beginning+ and at the end of the sound, which amplitudes in such a case are+ less than 0.04 are trimmed and the resulting sound data are processed+ further. - 3 -> the amplitude of the audio signal in the recorded sound- to be included in the resulting file (starting from which the file will - not be trimmed for the first command line argument greater - than 1) is 0.08;+ 3 -> if the first character in the first command line argument is greater or equal to 1,+ then the program trims the sound at the beginning and at the end of it.+ It firstly normalizes the sound (so its maximum aplitude is equal to 1)+ and then applies trimming. The parts of the audio at the beginning+ and at the end of the sound, which amplitudes in such a case are+ less than 0.08 are trimmed and the resulting sound data are processed+ further. - _ -> the amplitude of the audio signal in the recorded sound- to be included in the resulting file (starting from which the file will - not be trimmed for the first command line argument greater - than 1) is 0.04; -+ _ -> if the first character in the first command line argument is greater or equal to 1,+ then the program trims the sound at the beginning and at the end of it.+ It firstly normalizes the sound (so its maximum aplitude is equal to 1)+ and then applies trimming. The parts of the audio at the beginning+ and at the end of the sound, which amplitudes in such a case are+ less than 0.04 are trimmed and the resulting sound data are processed+ further. So effectively it is the same as 2 (the default value).+ If you specify the third command line argument, it must be a list of Strings that can be obtained by executing the [mmsyn7s program](https://hackage.haskell.org/package/mmsyn7s).
mmsyn7ukr.cabal view
@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/ name: mmsyn7ukr-version: 0.12.0.3+version: 0.12.0.4 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