mmsyn7ukr 0.7.0.0 → 0.7.1.0

raw patch · 3 files changed

+18/−15 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−1
• Processing_mmsyn7ukr.hs +13/−13
• mmsyn7ukr.cabal +1/−1

@@ -87,6 +87,9 @@  ## 0.7.0.0 -- 2020-01-20 -* Sevenh version. Added the possibility to omit the securing and regularizative usual limitation for the initial sound data recording duration.+* Sevenh version. Added the possibility to omit the securing and usual limitation (for regularization) for the initial sound data recording duration. It is so called 'sharp' mode. Fixed an issue with the wrong duration. Some minor code improvements. +## 0.7.1.0 -- 2020-01-20++* Seventh version revised A. Removed the special parameter in the code, which influenced the duration of the initial sound data recording.

@@ -124,10 +124,10 @@     ; putStrLn $ showCoef (showFFloat (Just 6) duration0 $ show 0)     ; putStrLn ""     ; putStrLn "It means that to produce more than 3 seconds of recording, you must specify at least "-    ; putStrLn $ "       " ++ show (3.0/(7*duration0)) ++ " as a next step ratio being prompt "+    ; putStrLn $ "       " ++ show (3.0/duration0) ++ " as a next step ratio being prompt "     ; putStrLn "       OR "-    ; putStrLn $ "       " ++ show (1.0/(7*duration0)) ++ " per one second but not less than the previous number."-    ; putStrLn $ "For example for 10 seconds record, please, specify " ++ show (10.0/(7*duration0)) ++ " as a next step ratio."+    ; 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."     ; (longerK0,sharp) <- tempS soundUkr     ; let longerK = (read x3::Double)*longerK0     ; putStrLn "Please, wait for 0.5 second and pronounce the sound representation for the "@@ -136,9 +136,9 @@     ; putStrLn ""     ; putStrLn " sound or whatever you would like to be substituted instead (be sensible, please)! "     ; if sharp-        then recA "x.wav" (7*longerK)-        else if (compare (7*longerK) 3.0 == GT)-               then recA "x.wav" (7*longerK)+        then recA "x.wav" longerK+        else if (compare longerK 3.0 == GT)+               then recA "x.wav" longerK                else recA "x.wav" 3.0     ; putStrLn "The file is recorded and now will be automatically processed. You will be notificated with the text message in the terminal about the creation of the needed file. Please, wait a little. "     ; norm "x.wav"@@ -186,10 +186,10 @@ ; putStrLn $ showCoef (showFFloat (Just 6) duration0 $ show 0) ; putStrLn "" ; putStrLn "It means that to produce more than 3 seconds of recording, you must specify at least "-; putStrLn $ "   " ++ show (3.0/(7*duration0)) ++ " as a next step ratio being prompt "+; putStrLn $ "   " ++ show (3.0/duration0) ++ " as a next step ratio being prompt " ; putStrLn "   OR "-; putStrLn $ "   " ++ show (1.0/(7*duration0)) ++ " per one second but not less than the previous number."-; putStrLn $ "For example for 10 seconds record, please, specify " ++ show (10.0/(7*duration0)) ++ " as a next step ratio."+; 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." ; (_, Just hout, _, _) <- createProcess (proc (fromJust . showE $ "soxi") ["-D", file]) { std_out = CreatePipe } ; x3 <- hGetContents hout ; (longerK0,sharp) <- tempS soundUkr@@ -200,10 +200,10 @@ ; putStrLn "" ; putStrLn "sound or whatever you would like to be substituted instead (be sensible, please)! " ; if sharp-        then recA "x.wav" (7*longerK)-        else if (compare (7*longerK) 3.0 == GT)-               then recA "x.wav" (7*longerK)-               else recA "x.wav" 3.0+    then recA "x.wav" longerK+    else if (compare longerK 3.0 == GT)+           then recA "x.wav" longerK+           else recA "x.wav" 3.0 ; putStrLn "The file is recorded and now will be automatically processed. You will be notificated with the text message in the terminal about the creation of the needed file. Please, wait a little. " ; norm "x.wav" ; noiseProfB "8x.wav"

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                mmsyn7ukr-version:             0.7.0.0+version:             0.7.1.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