dobutokO2 0.27.0.0 → 0.27.1.0

raw patch · 4 files changed

+22/−8 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +5/−0
• DobutokO/Sound/Functional.hs +13/−4
• README.markdown +3/−3
• dobutokO2.cabal +1/−1

@@ -261,3 +261,8 @@ * Twenty-seventh version. Added more possibilities to edit intermediate sound files with silence and fading to avoid clipping while concatenating them with SoX by default. Extended also the possibilities of the dobutokO2 executable with fading for "00" first command line option. Some documentation and code improvements.++## 0.27.1.0 -- 2020-04-11++* Twenty-seventh version revised A. Fixed issue with functions 'freqsOverlapOvers' and 'elemsOverlapOvers' with wrongly defined for multiple situations.+Now they works properly. 

@@ -1137,14 +1137,23 @@ -- this means that 'OvertonesO' are at least partially overlaped by the first elements in the tuples (meaning frequencies).  freqsOverlapOvers :: OvertonesO -> OvertonesO -> Bool freqsOverlapOvers v1 v2 =-  let [v11,v21] = map (V.uniq . V.map fst) [v1,v2]-      [l1,l2]  = map V.length [v11,v21] in compare (V.length . V.uniq . V.concat $ [v11,v21]) (l1 + l2) == LT+  let [v11,v21] = map (V.map fst) [v1,v2]+      min2 = V.minimum v21+      max1 = V.maximum v11+      (v22,_) = V.unstablePartition (<= max1) v21+      (v12,_) = V.unstablePartition (>= min2) v11+      [v13,v23] = map (V.uniq . V.fromList . sort . V.toList) [v12,v22]+      [l1,l2]  = map V.length [v13,v23] in compare (V.length . V.uniq . V.fromList . sort . V.toList . V.concat $ [v13,v23]) (l1 + l2) == LT  -- | Similar to 'freqsOverlapOvers', but checks whether the whole tuples are the same instead of the first elements in the tuples are the same. elemsOverlapOvers :: OvertonesO -> OvertonesO -> Bool elemsOverlapOvers v1 v2 =-  let [v11,v21] = map V.uniq [v1,v2]-      [l1,l2]  = map V.length [v11,v21] in compare (V.length . V.uniq . V.concat $ [v11,v21]) (l1 + l2) == LT+  let min2 = V.minimumBy (\(x,y) (t,u) -> compare x t) v2+      max1 = V.maximumBy (\(x,y) (t,u) -> compare x t) v1+      (v22,_) = V.unstablePartition (\(x,y) -> x <= fst max1) v2+      (v12,_) = V.unstablePartition (\(x,y) -> x >= fst min2) v1+      [v13,v23] = map (V.uniq . V.fromList . sort . V.toList) [v12,v22]+      [l1,l2]  = map V.length [v13,v23] in compare (V.length . V.uniq . V.fromList . sort . V.toList . V.concat $ [v13,v23]) (l1 + l2) == LT  -- | Example of the function @gAdds@ for the 'fAddFElems'.  gAdds01 :: OvertonesO -> Double -> (Double -> OvertonesO) -> OvertonesO

@@ -81,11 +81,11 @@   "0" -> the program just converts multiline Ukrainian text from stdin      into a String and prints it to stdout. No other arguments are used. -  "00" -> the program applies "fade q 0.01 -0.0" SoX effect to every "result*.wav"-     (or instead of them to every "result*.flac") file in the current directory.+  "00" -> the program applies "fade q 0.01 -0.0" SoX effect to every "result\*.wav"+     (or instead of them to every "result\*.flac") file in the current directory.         This allows to avoid clipping while just simply concatenating the files into           one with SoX. The mentioned clipping can be desirable in some circumstances-            but generally is not neccessary or is redundant. For more information,+            but generally is not necessary or is redundant. For more information,               please, refer to the SoX documentation and to that one for 'fadeAllE'                 function in the DobutokO.Sound.IntermediateF module. 

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                dobutokO2-version:             0.27.0.0+version:             0.27.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. Uses SoX inside. homepage:            https://hackage.haskell.org/package/dobutokO2