mmsyn6ukr 0.4.1.0 → 0.4.2.0

raw patch · 3 files changed

+9/−9 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• Main.hs +4/−8
• mmsyn6ukr.cabal +1/−1

@@ -70,3 +70,7 @@ ## 0.4.1.0 -- 2019-12-06  * Fourth version revised G. Improved the documentation for the Main.main function. Added the possibility to automatically delete the unneeded .raw file.++## 0.4.2.0 -- 2019-12-06++* Fourth version revised H. The program if there is SoX installed in the system converts the .raw file to .wav file and deletes the first one to save space.

@@ -40,8 +40,8 @@ -- the size of used space in the storage for the resulting files because it adds a header to the .raw file and writes down additionally  -- the raw data to form a .wav file. Also notice that the size of the largest data file representing a symbol or their combination is 6792 bytes (with 44-byte  -- header included). So, if you expect to create sounding for @n@ symbols of the Ukrainian text, provide at least @2 * (6792 - 44) * n + 44 = 13496 * n + 44@ (bytes) --- of the additional space in the storage (in reality it can occupy much less because other data files are less in size). Afterwards, you can delete --- the .raw file (this will approximately halve the occupied space by the resulting file) and manually compress the .wav file +-- of the additional space in the storage (in reality it can occupy much less because other data files are less in size). Afterwards, the program deletes +-- the .raw file (this will approximately halve the occupied space by the resulting file) and you can manually compress the .wav file  -- (e. g. FLAC compression with the best ratio gives approxumately halving the size). Therefore, the resulting file  -- for the @mmsyn6ukr@ executable run prior to such operations without command line arguments is expected to be less than about @10^7@ bytes that is about 100 MB  -- (for 31416 symbols Ukrainian text).@@ -57,12 +57,8 @@              withBinaryFile (nameSF ++ ".raw") AppendMode (appendS16LEFile (convertToProperUkrainian ys))          let ts = showE "sox" in if isJust ts                       then do -                             callProcess (fromJust . unsafePerformIO . findExecutable . fromJust $ ts) [" -r22050 -c1 -L -e signed-integer -b16 ", nameSF ++ ".raw ", nameSF ++ ".wav"]-                             putStrLn "Would you like to remove a .raw file? (Enter \'y\' to remove. Otherwise, it will not be removed by the program)."-                             removeF <- getChar-                             if removeF == 'y' -                               then removeFile $ nameSF ++ ".raw"-                               else return ()+                             callProcess (fromJust . unsafePerformIO . findExecutable . fromJust $ ts) ["-r22050","-c1","-L","-esigned-integer","-b16", nameSF ++ ".raw", nameSF ++ ".wav"]+                             removeFile $ nameSF ++ ".raw"                       else do                           putStr "You have a resulting file in a raw PCM format with bitrate 22050 Hz and 1 channel (mono) in the .raw format. "                          putStr "You can further process it by yourself manually, otherwise, please, install FFMpeg or LibAV executables in the directory mentioned in the variable PATH"

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                mmsyn6ukr-version:             0.4.1.0+version:             0.4.2.0 synopsis:            A musical instrument synthesizer or a tool for Ukrainian language listening description:         A program can be used as a musical instrument synthesizer or for Ukrainian speech synthesis especially for poets and writers homepage:            https://hackage.haskell.org/package/mmsyn6ukr