dobutokO2 0.15.0.0 → 0.15.1.0

raw patch · 4 files changed

+34/−14 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

CHANGELOG.md +5/−0
DobutokO/Sound/Executable.hs +13/−3
README.markdown +15/−10
dobutokO2.cabal +1/−1

CHANGELOG.md view

@@ -147,3 +147,8 @@  * Fifteenth version. Added an opportunity to work not only with octaves but also with n-th elements sets of consequential notes with the variants of 2, 3, 4, 6, or 9 notes. Octave from such a perspective is a set of 12 notes. Some documentation improvements for the README.markdown file.++## 0.15.1.0 -- 2020-03-20++* Fifteenth version revised A. Fixed issue with the wrong mapping between the first command line arguments and the executable behaviour. Added the needed+behaviour for the "61" first command line option. Some improvement for the README.markdown file.

DobutokO/Sound/Executable.hs view

@@ -43,9 +43,9 @@       file = concat . drop 1 . take 2 $ arggs       args = unwords . drop 2 $ arggs   exist2 <- doesFileExist file-  getBFst' (dobutokO2H exist2 args file, V.fromList . fmap (\(xs, f) -> (xs,f exist2 args file)) $ [("0",o2help),("1",dobutokO2H1),("2",dobutokO2H2),-    ("3",dobutokO2H3),("4",dobutokO2H4),("5",dobutokO2H5),("7",dobutokO2H7),("8",dobutokO2H8),("11",dobutokO2H11),("21",dobutokO2H21),("31",dobutokO2H31),-       ("41",dobutokO2H41),("51",dobutokO2H51),("8",dobutokO2H8),("80",dobutokO2H80)]) arg1+  getBFst' (dobutokO2H exist2 args file, V.fromList . fmap (\(xs, f) -> (xs,f exist2 args file)) $ [("0",o2help),("1",dobutokO2H1),("11",dobutokO2H11),+    ("2",dobutokO2H2),("21",dobutokO2H21),("3",dobutokO2H3),("31",dobutokO2H31),("4",dobutokO2H4),("41",dobutokO2H41),("5",dobutokO2H5),+      ("51",dobutokO2H51),("61",dobutokO2H61),("7",dobutokO2H7),("8",dobutokO2H8),("80",dobutokO2H80)]) arg1  dobutokO2H1 :: Bool -> String -> FilePath -> IO () dobutokO2H1 exist2 args file = do@@ -102,6 +102,16 @@       dAmpl = read dAmpl0::Double   uniqOberSoXSynthNGen4 file octave1 ampL time3 dAmpl args wws tts vs {-# INLINE dobutokO2H #-}++dobutokO2H61 :: Bool -> String -> FilePath -> IO ()+dobutokO2H61 exist2 args file = do+  [_,_,complexNky,ampLS,time2,wws,tts,dAmpl0,vs] <- mapM (recAndProcess file) (if exist2 then [0,2,11,4,5,6,7,8,9] else [1,2,11,4,5,6,7,8,9])+  let [enkA,nTh] = map (\z -> read z::Int) . words $ complexNky+      ampL = read ampLS::Double+      time3 = read time2::Double+      dAmpl = read dAmpl0::Double+  uniqOberSoXSynthNGen4E file nTh enkA ampL time3 dAmpl args wws tts vs+{-# INLINE dobutokO2H61 #-}  dobutokO2H8 :: Bool -> String -> FilePath -> IO () dobutokO2H8 _ _ _ = do

README.markdown view

@@ -31,13 +31,14 @@   "3", or "4", or "5", or "6" -> the program uses additional String to define     signs for the harmonics coefficients for obertones. -  "11", or "21", or "31", or "41", or "51" -> the program works as for the respective-     inputs with only the first character in the option (e. g. for "51", this is "5"),-       but uses not octaves, but n-th elements sets of consequential notes consisting-         of 2, 3, 4, 6, or 9 elements (called 'enky'). The usual octave is from such-           point of view a 12th elements set of consequential notes. This allows-             to create more 'condensed' and 'narrower' compositions that being-               more defined can be at the same time more precise.+  "11", or "21", or "31", or "41", or "51", or "61" -> the program works as for+     the respective inputs with only the first character in the option+       (e. g. for "51", this is "5"), but uses not octaves, but n-th elements sets+         of consequential notes consisting of 2, 3, 4, 6, or 9 elements (called+           'enky'). The usual octave is from such point of view a 12th elements set+             of consequential notes. This allows to create more 'condensed' and+               'narrower' compositions that being more defined can be at the+                 same time more precise.      In more details: @@ -57,12 +58,12 @@      to specify the signs for the harmonics coefficients for obertones        by additional String. -  "31" -> the same as "3", but works with enky. See general information above.     +  "31" -> the same as "3", but works with enky. See general information above.    "4" -> similarly to "2" gives an opportunity to specify the signs      for the harmonics coefficients for obertones by additional String. -  "41" -> the same as "4", but works with enky. See general information above.   +  "41" -> the same as "4", but works with enky. See general information above.    "5" -> additionally to that one functionality provided by "3" gives      an opportunity to specify in how many times the amplitude for@@ -70,7 +71,11 @@          for the main note and specify the intervals to be used            for every note. -  "51" -> the same as "5", but works with enky. See general information above.         +  "51" -> the same as "5", but works with enky. See general information above.++  "6" -> the same as "5", but you can define also obertones by an additional String.++  "61" -> the same as "6", but works with enky. See general information above.    "7" -> the program behaves like for the "5" option, but generates      obertones using additional String and allows maximum control over

dobutokO2.cabal view

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                dobutokO2-version:             0.15.0.0+version:             0.15.1.0 synopsis:            A program and a library to create experimental music from a mono audio and a Ukrainian text description:         It can also create a timbre for the notes homepage:            https://hackage.haskell.org/package/dobutokO2