Copyright | (c) OleksandrZhabenko 2019-2020 |
---|---|
License | MIT |
Stability | Experimental |
Safe Haskell | None |
Language | Haskell2010 |
Maintainer : olexandr543@yahoo.com
An additional program that is used with the mmsyn7ukr executable as a sound creator with the voice given by the files in the current directory. It is very similar to the Main.hs of the mmsyn6ukr package.
Documentation
Function that proposes and creates if accepted the sound record with the new "voice". It plays the newly created file once. Then it can delete
the sound files in the current directory while being executed if you specify when prompted the text that starts with "y".
If you enter as a first command line argument "-h",
then the program only prints informational message. If you specify as a first command line argument "-v", then
the program only prints its version number. If you specify something else, the first command line argument is being treated as
a name for the resulting file voiced. If you specify further command line arguments
as a Ukrainian text, that contains only those sounds, which sound representations are in the current directory (you can create them by e. g. mmsyn7ukr
and mmsyn7l
programs in the same name packages), then the program will use only these sounds representations additionally to the default ones "-.wav",
"0.wav" and "1.wav" and produce the sounding for the text.
defineClean :: Int -> IO String Source #
Used internally in the main7h
function for specifying whether clean the current directory from the sound files.
appendS16LEFile :: Vector String -> Handle -> IO () Source #
The function that actually produces a .raw file. The mapping table is given in the Map.txt
file, but the sound duration differs.
appendS16LEFileList :: (Vector String, [String]) -> Handle -> IO () Source #
The function that actually produces a .raw file. The mapping table is that one given in the Map.txt
file but not all sounds and files are present.
The [String]
parameter is a sorted list of Ukrainian sounds to be used (for example, it can be obtained with mmsyn7s
executable from the same name package).
cleanCreatedSoundFs :: IO () Source #
Function that removes all the sounds with ".raw", ".wav", ".ogg", ".flac" extensions in the current directory. It is used for the security reasons.