mmsyn7ukr 0.12.0.5 → 0.13.0.0

raw patch · 6 files changed

+45/−9 lines, 6 filesbinary-addedPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• Main.hs +8/−1
• Processing_mmsyn7ukr.hs +7/−0
• README.markdown +23/−6
• mmsyn7ukr.cabal +3/−2
• y.wav binary

@@ -196,3 +196,7 @@ ## 0.12.0.5 -- 2020-02-08  * Twelfth version revised E. Fixed issues with the wrong spelling of the word 'amplitude'. Fixed issues with deprecated documentation for Control.Exception.FinalException module.++## 0.13.0.0 -- 2020-02-09++* Thirteenth version. Added a new module Paths_mmsyn7ukr and a data file "y.wav". Added a new command line argument possibility ("-t" as a first command line argument only plays a special 0.5 second sound file). Impoved formatting for the text displayed on the screen. Revised the documentation and removed the deprecated information from the README.markdown file.

@@ -14,8 +14,10 @@  module Main where +import Paths_mmsyn7ukr import Processing_mmsyn7ukr import System.Environment (getArgs)+import SoXBasics (playA)  -- | Function responds for general @mmsyn7ukr@ program execution.  main :: IO ()@@ -27,6 +29,7 @@        putStrLn "mmsyn7ukr SYNOPSIS:"        putStrLn "mmsyn7ukr -h     OR:"        putStrLn "mmsyn7ukr -v     OR:"+       putStrLn "mmsyn7ukr -t     OR:"        putStrLn "mmsyn7ukr [control-parameter-for-levels-of-processment] [[control-parameter-for-truncating-sounds] [[list-of-produced-sound-representations]]]"        putStrLn ""        putStr "control-parameter-for-levels-of-processment (if any) -- an integer number in range [-1..3] that defines in ascending order the portion of processment "@@ -36,5 +39,9 @@        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.4"+       putStrLn "mmsyn7ukr version: 0.13.0.0"+    "-t" -> do+       putStrLn "The program plays now a service sound for a 0.5 second. It uses just that duration for a pause before you can record a sound representation further."+       path0 <- getDataFileName "y.wav"+       playA path0     _    -> main7ukr args

@@ -64,6 +64,7 @@             "d.wav", "e.wav", "f.wav"] $ ["а", "б", "в", "г", "д", "дж", "дз", "е", "ж", "з", "и", "й", "к", "л", "м", "н", "о", "п", "р",                 "с", "сь", "т", "у", "ф", "х", "ц", "ць", "ч", "ш", "ь", "і", "ґ"]) $ file1 ; playA file+; putStrLn "    *****" ; putStrLn "The sound duration is: " ; produceSound2 (file, file1) (actsctrl, noiseLim) soundUkr ; return () }) (do@@ -146,6 +147,8 @@     ; putStrLn "       OR "     ; putStrLn $ "       " ++ show (1.0/duration0) ++ " per one second but not less than the previous number."     ; putStrLn $ "For example for 10 seconds record, please, specify " ++ show (10.0/duration0) ++ " as a next step ratio."+    ; putStrLn "    *****"+    ; putStrLn ""     ; (longerK0,sharp) <- tempS soundUkr     ; let longerK = (read x3::Double)*longerK0     ; putStrLn "Please, wait for 0.5 second and pronounce the sound representation for the "@@ -239,6 +242,8 @@ ; putStrLn "for the sound. Please, produce a sound during the first 3 seconds (after 0.5 second delay) or specify greater ratio!" ; putStrLn $ "Listen to the \"" ++ soundUkr ++ "\" sound and note first of all its duration. " ; playA file+; putStrLn "    *****"+; putStrLn "" ; putStrLn "The sound duration is: " ; duration0 <- durationA file ; putStrLn $ showCoef (showFFloat (Just 6) duration0 $ show 0)@@ -248,6 +253,8 @@ ; putStrLn "   OR " ; putStrLn $ "   " ++ show (1.0/duration0) ++ " per one second but not less than the previous number." ; putStrLn $ "For example for 10 seconds record, please, specify " ++ show (10.0/duration0) ++ " as a next step ratio."+; putStrLn "    *****"+; putStrLn "" ; (_, Just hout, _, _) <- createProcess (proc (fromJust . showE $ "soxi") ["-D", file]) { std_out = CreatePipe } ; x3 <- hGetContents hout ; (longerK0,sharp) <- tempS soundUkr

@@ -192,14 +192,18 @@ the responsibility for the sound to much broader extent to the user, so for a beginning it is not recommended (though you can give it a try). +           ***** Noise Reduction *****+           ---------------------------+ At the beginning the program also creates a noise profile (once per execution). It is now used to reduce the noise level for the recorded sound representations.-It uses the default SoX noise reducing settings with a hope that for you they can-be sufficient. If you see that the program removes some sensitive and-important sound data from the recorded by it sound representations,-then you can specify as a first command line argument "-1". The program-in such a case will create a noise profile as usual, but will not reduce-the noise at all.+By default, the program uses the default SoX noise reducing settings with+a hope that for you they can be sufficient. You can change the level of reduction+by the first command line argument as it is written above. If you see that+the program removes some sensitive and important sound data from the recorded+by it sound representations, then you can specify as a first command line+argument "-1". The program in such a case will create a noise profile as usual,+but will not reduce the noise at all.             ***** Ukrainian Localization *****            ----------------------------------@@ -217,3 +221,16 @@ creation of the resulting file try to replace by it the initial one and to clean the space from the temporary files. This can be helpful in writing sequentially applied functions but needs somewhat more resources.++           ***** Test Sound Duration *****+           -------------------------------+           +You can now can test the sound duration needed as a 0.5 second pause before+the program can record every non-silent sound. This pause is caused not by the program+itself, but by some sound recording equipment specific time needed to normalize+the behaviour of the recording (it depends on your equipment, but for a wide range of+possible its configuration the pause for 0.5 second is valid).+To test a needed 0.5 second duration of the pause, you can use as a first+command line argument "-t" and the program will only play the test sound with+just that duration. Remember its duration -- it is the duration of the needed+pause before you can start your recording of the every sound representation.

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                mmsyn7ukr-version:             0.12.0.5+version:             0.13.0.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@@ -14,10 +14,11 @@ category:            Language build-type:          Simple extra-source-files:  ChangeLog.md, README.markdown+data-files:          y.wav cabal-version:       >=1.10  library-  exposed-modules:     SoXBasics, SoXBasics1, Processing_mmsyn7ukr, Main, ReplaceP, Control.Exception.FinalException+  exposed-modules:     Paths_mmsyn7ukr, SoXBasics, SoXBasics1, Processing_mmsyn7ukr, Main, ReplaceP, Control.Exception.FinalException   -- other-modules:   -- other-extensions:   build-depends:       base >=4.7 && <4.14, process >=1.4 && <1.8, vector >=0.11 && <0.14, bytestring >=0.10 && < 0.12, mmsyn2 >=0.1.7 && <1, directory >=1.2.5 && <1.4, mmsyn6ukr >=0.6.2 && <1, mmsyn3 >=0.1.4 && <1

binary file changed (absent → 22094 bytes)