dobutokO2 0.36.1.0 → 0.36.2.0
raw patch · 3 files changed
+16/−12 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- CHANGELOG.md +5/−0
- DobutokO/Sound.hs +10/−11
- dobutokO2.cabal +1/−1
CHANGELOG.md view
@@ -326,3 +326,8 @@ * Thirty-sixth version revised A. Fixed issues with being not compiled for GHC 7.8.4 because of inappropriate length usage for vectors in DobutokO.Sound.Functonal module.++## 0.36.2.0 -- 2020-04-25++* Thirty-sixth version revised B. Fixed issues with being not compiled for GHC 7.8.4 because of inappropriate some functions usage in +DobutokO.Sound.Functonal module.
DobutokO/Sound.hs view
@@ -422,7 +422,7 @@ overSoXSynthN34G :: Int -> Double -> Double -> Durations -> String -> String -> V.Vector Double -> IO () overSoXSynthN34G n ampL dAmpl v2 tts vs vec0 | compare (abs ampL) 0.01 /= LT && compare (abs ampL) 1.0 /= GT = - let m = length v2+ let m = V.length v2 zeroN = numVZeroesPre vec0 v3 = intervalsFromString vs l = length vs in V.imapM_ (\j x -> do @@ -462,9 +462,9 @@ overSoXSynthN35G :: Int -> Double -> Double -> Durations -> String -> Intervals -> V.Vector Double -> IO () overSoXSynthN35G n ampL dAmpl v2 tts v3 vec0 | compare (abs ampL) 0.01 /= LT && compare (abs ampL) 1.0 /= GT = - let m = length v2+ let m = V.length v2 zeroN = numVZeroesPre vec0- l = length v3 in V.imapM_ (\j x -> do + l = V.length v3 in V.imapM_ (\j x -> do let note0 = closestNote x -- zs is obtained from the command line arguments note1 = dNote (V.unsafeIndex v3 (j `rem` l)) note0 v0 = overTones2 note0 tts@@ -728,7 +728,7 @@ uniqOverSoXSynthN4G :: Int -> Double -> Durations -> String -> V.Vector Double -> IO () uniqOverSoXSynthN4G n ampL v2 wws vec0 | compare (abs ampL) 0.01 /= LT && compare (abs ampL) 1.0 /= GT =- let m = length v2+ let m = V.length v2 zeroN = numVZeroesPre vec0 in V.imapM_ (\j x -> do let note0 = closestNote x note1 = pureQuintNote note0@@ -743,8 +743,7 @@ "sine", showFFloat (Just 4) noteN "", "vol", if compare (V.unsafeIndex v2 (j `rem` m)) 0.0 == GT then showFFloat (Just 4) (amplN * ampL) "" else "0"] "") soxSynthHelpMain note01 note02 = readProcessWithExitCode (fromJust (showE "sox")) ["-r22050", "-n", "testA" ++- prependZeroes zeroN "1" ++ ".wav", "synth", showFFloat (Just 4) (V.unsafeIndex v2 (j `rem` m)) "","sine", showFFloat (Just 4) note01 $- show 0, "synth", showFFloat (Just 4) (V.unsafeIndex v2 (j `rem` m)) "","sine", "mix", showFFloat (Just 4) note02 "", "vol",+ prependZeroes zeroN "1" ++ ".wav", "synth", showFFloat (Just 4) (V.unsafeIndex v2 (j `rem` m)) "","sine", showFFloat (Just 4) note01 "", "synth", showFFloat (Just 4) (V.unsafeIndex v2 (j `rem` m)) "","sine", "mix", showFFloat (Just 4) note02 "", "vol", if compare (V.unsafeIndex v2 (j `rem` m)) 0.0 == GT then "0.5" else "0"] "" soxSynthHelpMain note0 note1 uniqOverSoXSynthHelpN v0@@ -775,7 +774,7 @@ uniqOverSoXSynthN34G :: Int -> Double -> Durations -> String -> String -> V.Vector Double -> IO () uniqOverSoXSynthN34G n ampL v2 wws tts vec0 | compare (abs ampL) 0.01 /= LT && compare (abs ampL) 1.0 /= GT =- let m = length v2+ let m = V.length v2 zeroN = numVZeroesPre vec0 in V.imapM_ (\j x -> do let note0 = closestNote x -- zs ? vec0 -- are they related to the one object? No, they are obtained from different sources. note1 = pureQuintNote note0@@ -788,8 +787,8 @@ ["-r22050", "-n", "testQ" ++ prependZeroes zeroN (show (i + 2)) ++ ".wav", "synth", showFFloat (Just 4) (V.unsafeIndex v2 (j `rem` m)) "", "sine", showFFloat (Just 4) noteN "", "vol", if compare (V.unsafeIndex v2 (j `rem` m)) 0.0 == GT then showFFloat (Just 4) (amplN * ampL) "" else "0"] "") vec soxSynthHelpMain note01 note02 = readProcessWithExitCode (fromJust (showE "sox")) ["-r22050", "-n", "testA" ++- prependZeroes zeroN "1" ++ ".wav", "synth", showFFloat (Just 4) (V.unsafeIndex v2 (j `rem` m)) "","sine", showFFloat (Just 4) note01 $- show 0,"synth", showFFloat (Just 4) (V.unsafeIndex v2 (j `rem` m)) "","sine", "mix", showFFloat (Just 4) note02 "", "vol",+ prependZeroes zeroN "1" ++ ".wav", "synth", showFFloat (Just 4) (V.unsafeIndex v2 (j `rem` m)) "","sine", showFFloat (Just 4) note01 "",+ "synth", showFFloat (Just 4) (V.unsafeIndex v2 (j `rem` m)) "","sine", "mix", showFFloat (Just 4) note02 "", "vol", if compare (V.unsafeIndex v2 (j `rem` m)) 0.0 == GT then "0.5" else "0"] "" soxSynthHelpMain note0 note1 uniqOverSoXSynthHelpN v0@@ -828,7 +827,7 @@ uniqOverSoXSynthN45G :: Int -> Double -> Double -> Durations -> String -> String -> Intervals -> V.Vector Double -> IO () uniqOverSoXSynthN45G n ampL dAmpl v2 wws tts v3 vec0 | compare (abs ampL) 0.01 /= LT && compare (abs ampL) 1.0 /= GT =- let m = length v2+ let m = V.length v2 zeroN = numVZeroesPre vec0 l = V.length v3 in V.imapM_ (\j x -> do let note0 = closestNote x@@ -866,7 +865,7 @@ uniqOverSoXSynthN46G n ampL dAmpl v2 wws tts v3 vec0 v6 limV | V.null v6 = putStrLn "You did not provide a volume adjustments vector! " | compare (abs ampL) 0.01 /= LT && compare (abs ampL) 1.0 /= GT =- let m = length v2+ let m = V.length v2 zeroN = numVZeroesPre vec0 l = V.length v3 in V.imapM_ (\j x -> do let note0 = closestNote x
dobutokO2.cabal view
@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/ name: dobutokO2-version: 0.36.1.0+version: 0.36.2.0 synopsis: Helps to create experimental music from a file (or its part) and a Ukrainian text. description: It can also generate a timbre for the notes. Uses SoX inside. homepage: https://hackage.haskell.org/package/dobutokO2