DobutokO.Sound

Maintainer : [e-mail]

A program and a library to create experimental music from a mono audio and a Ukrainian text.

Library and executable functions

For the fixed timbre

oberTones :: Double -> Vector (Double, Double)

For the given frequency of the note it generates a Vector of the tuples, each one of which contains the harmonics' frequency and amplitude.

oberSoXSynth :: Double -> IO ()

For the given frequency it generates a musical sound with a timbre. The main component of the sound includes the lower pure quint, which can be in the same octave or in the one with the number lower by one. Please, check before executing whether there is no "x.wav", "test*", "result*" and "end.wav" files in the current directory, because they can be overwritten.

oberSoXSynthN :: Int -> Double -> Double -> String -> Vector Double -> IO ()

Function to create a melody for the given arguments. String is used to provide a rhythm. The main component of the sound includes the lower pure quint, which can be in the same octave or in the one with the number lower by one. The first Double argument from the range [0.01..1.0] is used as a maximum amplitude for obertones. If it is set to 1.0 the obertones amplitudes are just the maximum ones, otherwise they are multiplied by the parameter and this results in their becoming more silent ones. The second Double argument is a basic sound duration. The default one is 0.5 (second). Please, check before executing whether there is no "x.wav", "test*", "result*" files in the current directory, because they can be overwritten.

For the fixed timbre with different signs for harmonics coefficients

oberTones2 :: Double -> String -> Vector (Double, Double)

For the given frequency of the note and a Ukrainian text it generates a Vector of the tuples, each one of which contains the harmonics' frequency and amplitude. The String is used to produce the signs for harmonics coefficients.

oberSoXSynth2 :: Double -> String -> IO ()

For the given frequency it generates a musical sound with a timbre. The main component of the sound includes the lower pure quint, which can be in the same octave or in the one with the number lower by one. Please, check before executing whether there is no "x.wav", "test*", "result*" files in the current directory, because they can be overwritten. The String argument is used to define signs of the harmonics coefficients for obertones.

oberSoXSynthN2 :: Int -> Double -> Double -> String -> String -> Vector Double -> IO ()

Function to create a melody for the given arguments. String is used to provide a rhythm. The main component of the sound includes the lower pure quint, which can be in the same octave or in the one with the number lower by one. The first Double argument from the range [0.01..1.0] is used as a maximum amplitude for obertones. If it is set to 1.0 the obertones amplitudes are just the maximum ones, otherwise they are multiplied by the parameter and this results in their becoming more silent ones. The second Double argument is a basic sound duration. The default one is 0.5 (second). Please, check before executing whether there is no "x.wav", "test*", "result*" files in the current directory, because they can be overwritten.

oberSoXSynthN3 :: Int -> Double -> Double -> Double -> String -> String -> String -> Vector Double -> IO ()

Function to create a melody for the given arguments. String is used to provide a rhythm. The main component of the sound includes the lower pure quint, which can be in the same octave or in the one with the number lower by one. The first Double argument from the range [0.01..1.0] is used as a maximum amplitude for obertones. If it is set to 1.0 the obertones amplitudes are just the maximum ones, otherwise they are multiplied by the parameter and this results in their becoming more silent ones. The second Double argument is a basic sound duration. The default one is 0.5 (second). Please, check before executing whether there is no "x.wav", "test*", "result*" files in the current directory, because they can be overwritten. The third String argument is used to define the intervals for the notes if any. The third Double parameter basically is used to define in how many times the volume for the second lower note is less than the volume of the main note. If it is rather great, it can signal that the volume for the second note obertones are greater than for the main note obetones. The last one is experimental feature.

Use additional parameters

oberSoXSynthDN :: Double -> String -> IO ()

Similar to oberSoXSynth except that takes not necessarily pure lower quint note as the second one, but the one specified by the String parameter as an argument to dNote. If you begin the String with space characters, or "сь", or "ць", or dash, or apostrophe, or soft sign, than there will be no interval and the sound will be solely one with its obertones.

oberSoXSynth2DN :: Double -> Double -> String -> IO ()

Similar to oberSoXSynthDN except that the resulting duration is specified by the second Double parameter in seconds. For oberSoXSynthDN it is equal to 0.5.

Use a file for information

oberSoXSynthNGen :: FilePath -> Int -> Double -> Double -> String -> IO ()

Similar to oberSoXSynthN, but uses a sound file to obtain the information analogous to Vector in the latter one. Besides, the function lifts the frequencies to the octave with the given by Int parameter number (better to use from the range [1..8]). The first Double argument from the range [0.01..1.0] is used as a maximum amplitude for obertones. If it is set to 1.0 the obertones amplitudes are just maximum ones, otherwise they are multiplied by the parameter and this results in their becoming more silent ones. The second Double argument is a basic sound duration. The default one is 0.5 (second). Please, check before executing whether there is no "x.wav", "test*", "result*" and "end.wav" files in the current directory, because they can be overwritten.

For better usage the FilePath should be a filepath for the .wav file.

oberSoXSynthNGen2 :: FilePath -> Int -> Double -> Double -> String -> String -> IO ()

Similar to oberSoXSynthN2, but uses a sound file to obtain the information analogous to Vector in the latter one. Besides, the function lifts the frequencies to the octave with the given by Int parameter number (better to use from the range [1..8]). The first Double argument from the range [0.01..1.0] is used as a maximum amplitude for obertones. If it is set to 1.0 the obertones amplitudes are just maximum ones, otherwise they are multiplied by the parameter and this results in their becoming more silent ones. The second Double argument is a basic sound duration. The default one is 0.5 (second). Please, check before executing whether there is no "x.wav", "test*", "result*" and "end.wav" files in the current directory, because they can be overwritten.

For better usage the FilePath should be a filepath for the .wav file. The second String argument is used to define signs of the harmonics coefficients in the generated sounds.

oberSoXSynthNGen3 :: FilePath -> Int -> Double -> Double -> Double -> String -> String -> String -> IO ()

Similar to oberSoXSynthN2, but uses a sound file to obtain the information analogous to Vector in the latter one. Besides, the function lifts the frequencies to the octave with the given by Int parameter number (better to use from the range [1..8]). The first Double argument from the range [0.01..1.0] is used as a maximum amplitude for obertones. If it is set to 1.0 the obertones amplitudes are just maximum ones, otherwise they are multiplied by the parameter and this results in their becoming more silent ones. The second Double argument is a basic sound duration. The default one is 0.5 (second). Please, check before executing whether there is no "x.wav", "test*", "result*" and "end.wav" files in the current directory, because they can be overwritten.

For better usage the FilePath should be a filepath for the .wav file. The second String argument is used to define signs of the harmonics coefficients in the generated sounds. The third String argument is used to define the intervals for the notes if any. The third Double parameter basically is used to define in how many times the volume for the second lower note is less than the volume of the main note. If it is rather great, it can signal that the volume for the second note obertones are greater than for the main note obetones. The last one is experimental feature.

For the unique for the String structure timbre

uniqOberTonesV :: Double -> String -> Vector (Double, Double)

For the given frequency of the note it generates a Vector of the tuples, each one of which contains the harmonics' frequency and amplitude. For every given String structure of the uniqueness (see the documentation for mmsyn7s package and its Syllable module) it produces the unique timbre.

uniqOberSoXSynth :: Double -> String -> IO ()

For the given frequency and a Ukrainian text it generates a musical sound with the timbre obtained from the Ukrainian text (see the documentation for mmsyn7s package). The timbre for another given text usually differs, but can be the same. The last one is only if the uniqueness structure and length are the same for both String. Otherwise, they differs. This gives an opportunity to practically and quickly synthesize differently sounding intervals. The main component of the sound includes the lower pure quint, which can be in the same octave or in the one with the number lower by one. Please, check before executing whether there is no "x.wav", "test*", "result*" files in the current directory, because they can be overwritten.

uniqOberSoXSynthN :: Int -> Double -> Double -> String -> String -> Vector Double -> IO ()

Function to create a melody for the given arguments. The first String is used to provide a rhythm. The second one -- to provide a timbre. The timbre for another given text usually differs, but can be the same. This gives an opportunity to practically and quickly synthesize differently sounding intervals. The first Double argument from the range [0.01..1.0] is used as a maximum amplitude for obertones. If it is set to 1.0 the obertones amplitudes are just maximum ones, otherwise they are multiplied by the parameter and this results in their becoming more silent ones. The main component of the sound is in the given octave with a number given by Int parameter. Besides, another main component of the sound includes the lower pure quint, which can be in the same octave or in the one with the number lower by one. The second Double argument is a basic sound duration. The default one is 0.5 (second). Please, check before executing whether there is no "x.wav", "test*", "result*" files in the current directory, because they can be overwritten.

For the unique for the String structure timbre with different signs for harmonics coefficients

uniqOberTonesV2 :: Double -> String -> String -> Vector (Double, Double)

For the given frequency of the note it generates a Vector of the tuples, each one of which contains the harmonics' frequency and amplitude. For every given first String argument structure of the uniqueness (see the documentation for mmsyn7s package and its Syllable module) it produces the unique timbre. The second String is used to produce the signs for harmonics coefficients.

uniqOberSoXSynth2 :: Double -> String -> String -> IO ()

For the given frequency and a Ukrainian text it generates a musical sound with the timbre obtained from the Ukrainian text (see the documentation for mmsyn7s package). The timbre for another given text usually differs, but can be the same. The last one is only if the uniqueness structure and length are the same for both String. Otherwise, they differs. This gives an opportunity to practically and quickly synthesize differently sounding intervals. The main component of the sound includes the lower pure quint, which can be in the same octave or in the one with the number lower by one. Please, check before executing whether there is no "x.wav", "test*", "result*" files in the current directory, because they can be overwritten. The second String argument is used to define signs for the harmonics coefficients for obertones.

uniqOberSoXSynthN3 :: Int -> Double -> Double -> String -> String -> String -> Vector Double -> IO ()

Function to create a melody for the given arguments. The first String is used to provide a rhythm. The second one -- to provide a timbre. The timbre for another given text usually differs, but can be the same. This gives an opportunity to practically and quickly synthesize differently sounding intervals. The first Double argument from the range [0.01..1.0] is used as a maximum amplitude for obertones. If it is set to 1.0 the obertones amplitudes are just maximum ones, otherwise they are multiplied by the parameter and this results in their becoming more silent ones. The main component of the sound is in the given octave with a number given by Int parameter. Besides, another main component of the sound includes the lower pure quint, which can be in the same octave or in the one with the number lower by one. The second Double argument is a basic sound duration. The default one is 0.5 (second). Please, check before executing whether there is no "x.wav", "test*", "result*" files in the current directory, because they can be overwritten. The third String argument is used to define signs of the harmonics coefficients in the generated sounds.

uniqOberSoXSynthN4 :: Int -> Double -> Double -> Double -> String -> String -> String -> String -> Vector Double -> IO ()

Function to create a melody for the given arguments. The first String is used to provide a rhythm. The second one -- to provide a timbre. The timbre for another given text usually differs, but can be the same. This gives an opportunity to practically and quickly synthesize differently sounding intervals. The first Double argument from the range [0.01..1.0] is used as a maximum amplitude for obertones. If it is set to 1.0 the obertones amplitudes are just maximum ones, otherwise they are multiplied by the parameter and this results in their becoming more silent ones. The main component of the sound is in the given octave with a number given by Int parameter. Besides, another main component of the sound includes the lower pure quint, which can be in the same octave or in the one with the number lower by one. The second Double argument is a basic sound duration. The default one is 0.5 (second). Please, check before executing whether there is no "x.wav", "test*", "result*" files in the current directory, because they can be overwritten. The third String argument is used to define signs of the harmonics coefficients in the generated sounds. The fourth String argument is used to define the intervals for the notes if any. The third Double parameter basically is used to define in how many times the volume for the second lower note is less than the volume of the main note. If it is rather great, it can signal that the volume for the second note obertones are greater than for the main note obetones. The last one is experimental feature.

Use a file for information

uniqOberSoXSynthNGen :: FilePath -> Int -> Double -> Double -> String -> String -> IO ()

Similar to uniqOberSoXSynthN, but uses a sound file to obtain the information analogous to Vector in the latter one. Besides, the function lifts the frequencies to the octave with the given by Int parameter number (better to use from the range [1..8]). The first Double argument from the range [0.01..1.0] is used as a maximum amplitude for obertones. If it is set to 1.0 the obertones amplitudes are just the maximum ones, otherwise they are multiplied by the parameter and this results in their becoming more silent ones. The second Double argument is a basic sound duration. The default one is 0.5 (second). Please, check before executing whether there is no "x.wav", "test*", "result*" and "end.wav" files in the current directory, because they can be overwritten.

For better usage the FilePath should be a filepath for the .wav file.

uniqOberSoXSynthNGen3 :: FilePath -> Int -> Double -> Double -> String -> String -> String -> IO ()

Similar to uniqOberSoXSynthN, but uses a sound file to obtain the information analogous to Vector in the latter one. Besides, the function lifts the frequencies to the octave with the given by Int parameter number (better to use from the range [1..8]). The first Double argument from the range [0.01..1.0] is used as a maximum amplitude for obertones. If it is set to 1.0 the obertones amplitudes are just the maximum ones, otherwise they are multiplied by the parameter and this results in their becoming more silent ones. The second Double argument is a basic sound duration. The default one is 0.5 (second). Please, check before executing whether there is no "x.wav", "test*", "result*" and "end.wav" files in the current directory, because they can be overwritten.

For better usage the FilePath should be a filepath for the .wav file. The third String argument is used to define signs of the harmonics coefficients in the generated sounds.

uniqOberSoXSynthNGen4 :: FilePath -> Int -> Double -> Double -> Double -> String -> String -> String -> String -> IO ()

Similar to uniqOberSoXSynthN, but uses a sound file to obtain the information analogous to Vector in the latter one. Besides, the function lifts the frequencies to the octave with the given by Int parameter number (better to use from the range [1..8]). The first Double argument from the range [0.01..1.0] is used as a maximum amplitude for obertones. If it is set to 1.0 the obertones amplitudes are just the maximum ones, otherwise they are multiplied by the parameter and this results in their becoming more silent ones. The second Double argument is a basic sound duration. The default one is 0.5 (second). Please, check before executing whether there is no "x.wav", "test*", "result*" and "end.wav" files in the current directory, because they can be overwritten.

For better usage the FilePath should be a filepath for the .wav file. The third String argument is used to define signs of the harmonics coefficients in the generated sounds. The fourth String argument is used to define the intervals for the notes if any. The third Double parameter basically is used to define in how many times the volume for the second lower note is less than the volume of the main note. If it is rather great, it can signal that the volume for the second note obertones are greater than for the main note obetones. The last one is an experimental feature.

Work with octaves

octavesT :: Vector (Double, Double)

Returns a Vector of tuples with the lowest and highest frequencies for the notes in the octaves.

octaveUp :: Double -> Double

Returns an analogous note in the higher octave (its frequency in Hz).

octaveDown :: Double -> Double

Returns an analogous note in the lower octave (its frequency in Hz).

whichOctave :: Double -> Maybe Int

Function can be used to determine to which octave (in the American notation for the notes, this is a number in the note written form, e. g. for C4 this is 4) the frequency belongs (to be more exact, the closest note for the given frequency -- see closestNote taking into account its lower pure quint, which can lay in the lower by 1 octave). If it is not practical to determine the number, then the function returns Nothing.

putInOctave :: Int -> Double -> Maybe Double

Function lifts the given frequency to the given number of the octave (in American notation, from 0 to 8). This number is an Int parameter. The function also takes into account the lower pure quint for the closest note. If it is not practical to determine the number, then the function returns Nothing.

putInOctaveV :: Int -> Vector Double -> Vector Double

Function lifts the Vector of Double representing frequencies to the given octave with the Int number. Better to use numbers in the range [1..8]. The function also takes into account the lower pure quint for the obtained note behaviour. If it is not practical to determine the octave, the resulting frequency is omitted from the resulting Vector.

Work with enky (extension to octaves functionality)

nkyT :: Int -> Vector (Double, Double)

Returns a Vector of tuples with the lowest and highest frequencies for the notes in the sets consisting of n consequential notes (including semi-tones). An Int parameter defines this n. It can be 2, 3, 4, 6, 9, or 12 (the last one is for default octaves, see octavesT). So for different valid n you obtain doubles, triples and so on. The function being applied returns a Vector of such sets with their respective lowest and highest frequencies.

enkuUp :: Int -> Double -> Double

Returns an analogous note in the higher n-th elements set (its frequency in Hz) (see nkyT). An Int parameter defines this n.

enkuDown :: Int -> Double -> Double

Returns an analogous note in the lower n-th elements set (its frequency in Hz) (see nkyT). An Int parameter defines this n.

whichEnka :: Int -> Double -> Maybe Int

Similarly to whichOctave returns a Maybe number (actually frequency) for the n-th elements set of notes (see nkyT). An Int parameter defines that n.

putInEnku :: Int -> Int -> Double -> Maybe Double

Similarly to putInOctave returns a Maybe number (actually frequency) for the n-th elements set of notes (see nkyT). A second Int parameter defines that n.

putInEnkuV :: Int -> Int -> Vector Double -> Vector Double

Similarly to putInOctaveV returns a Vector Double (actually frequencies) for the n-th elements set of notes (see nkyT) instead of octaves. A second Int parameter defines that n.

Even more extended

dviykyTA :: Vector (Double, Double)

triykyTA :: Vector (Double, Double)

chetvirkyTA :: Vector (Double, Double)

p'yatirkyTA :: Vector (Double, Double)

shistkyTA :: Vector (Double, Double)

simkyTA :: Vector (Double, Double)

visimkyTA :: Vector (Double, Double)

dev'yatkyTA :: Vector (Double, Double)

desyatkyTA :: Vector (Double, Double)

odynadtsyatkyTA :: Vector (Double, Double)

octavesTA :: Vector (Double, Double)

Extended generation using enky functionality

With somewhat fixed timbre

oberSoXSynthNGenE :: FilePath -> Int -> Int -> Double -> Double -> String -> IO ()

Similar to oberSoXSynthNGen, but uses additional second Int parameter. It defines, to which n-th elements set (see nkyT) belongs the obtained higher notes in the intervals. If that parameter equals to 12, then the function is practically equivalent to oberSoXSynthNGen. To obtain its modifications, please, use 2, 3, 4, 6, or 9.

oberSoXSynthNGen2E :: FilePath -> Int -> Int -> Double -> Double -> String -> String -> IO ()

Similar to oberSoXSynthNGen2, but uses additional second Int parameter. It defines, to which n-th elements set (see nkyT) belongs the obtained higher notes in the intervals. If that parameter equals to 12, then the function is practically equivalent to oberSoXSynthNGen2. To obtain its modifications, please, use 2, 3, 4, 6, or 9.

oberSoXSynthNGen3E :: FilePath -> Int -> Int -> Double -> Double -> Double -> String -> String -> String -> IO ()

Similar to oberSoXSynthNGen3, but uses additional second Int parameter. It defines, to which n-th elements set (see nkyT) belongs the obtained higher notes in the intervals. If that parameter equals to 12, then the function is practically equivalent to oberSoXSynthNGen3. To obtain its modifications, please, use 2, 3, 4, 6, or 9.

With usage of additional information in the Ukrainian text

uniqOberSoXSynthNGenE :: FilePath -> Int -> Int -> Double -> Double -> String -> String -> IO ()

Similar to uniqOberSoXSynthNGen, but uses additional second Int parameter. It defines, to which n-th elements set (see nkyT) belongs the obtained higher notes in the intervals. If that parameter equals to 12, then the function is practically equivalent to uniqOberSoXSynthNGen. To obtain its modifications, please, use 2, 3, 4, 6, or 9.

uniqOberSoXSynthNGen3E :: FilePath -> Int -> Int -> Double -> Double -> String -> String -> String -> IO ()

Similar to uniqOberSoXSynthNGen3, but uses additional second Int parameter. It defines, to which n-th elements set (see nkyT) belongs the obtained higher notes in the intervals. If that parameter equals to 12, then the function is practically equivalent to uniqOberSoXSynthNGen3. To obtain its modifications, please, use 2, 3, 4, 6, or 9.

uniqOberSoXSynthNGen4E :: FilePath -> Int -> Int -> Double -> Double -> Double -> String -> String -> String -> String -> IO ()

Similar to uniqOberSoXSynthNGen4, but uses additional second Int parameter. It defines, to which n-th elements set (see nkyT) belongs the obtained higher notes in the intervals. If that parameter equals to 12, then the function is practically equivalent to uniqOberSoXSynthNGen4. To obtain its modifications, please, use 2, 3, 4, 6, or 9.

Auxiliary functions

notes :: Vector Double

Vector of musical notes in Hz.

neighbourNotes :: Double -> Vector Double -> (Double, Double)

Function returns either the nearest two musical notes if frequency is higher than one for C0 and lower than one for B8 or the nearest note duplicated in a tuple.

closestNote :: Double -> Double

Returns the closest note to the given frequency in Hz.

pureQuintNote :: Double -> Double

Returns a pure quint lower than the given note.

syllableStr :: Int -> String -> [Int]

Function is used to generate a rhythm of the resulting file 'end.wav' from the Ukrainian text and a number of sounds either in the syllables or in the words without vowels.

signsFromString :: Int -> String -> Vector Int

Additional function to produce signs from the given String of the Ukrainian text. Ukrainian vowels and voiced consonants gives "+" sign (+1), voiceless and sonorous consonants gives "-" sign (-1). Voiceless2 gives "0". Other symbols are not taken into account.

prependZeroes :: Int -> String -> String

Additional function to prepend zeroes to the given String. The number of them are just that one to fulfill the length to the given Int parameter.

intervalsFromString :: String -> Vector Int

Function is used to get numbers of intervals from a Ukrainian String. It is used internally in the uniqOberSoXSynthN4 function.

dNote :: Int -> Double -> Maybe Double

Function to get from the number of semi-tones and a note a Maybe note for the second lower note in the interval if any. If there is no need to obtain such a note, then the result is Nothing.

numVZeroesPre :: Vector a -> Int

Is a minimal number of decimal places that are just enough to represent a length of the Vector given. For an empty returns 0.