dobutokO2 0.44.0.0 → 0.44.1.0

raw patch · 4 files changed

+11/−6 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +4/−0
• DobutokO/Sound/Functional/Params.hs +3/−3
• DobutokO/Sound/Uniq.hs +3/−2
• dobutokO2.cabal +1/−1

@@ -401,3 +401,7 @@  * Fourty-fourth version. Added github repository and bug reporting. Updated the dependencies, so that now there is aftovolio included. Some minor code improvements. +## 0.44.1.0 -- 2024-12-20++* Fourty-fourth version revised A. Fixed some issues with ported code.+

@@ -450,8 +450,8 @@ -- | 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. syllableStr :: Int -> String -> [Int] syllableStr n xs =-  let ps = map fromIntegral . take n . cycle . concat . concat . createSyllablesUkrS $ xs-      y  = sum . map fromIntegral $ ps in+  let ps = map fromIntegral . take n . cycle . concatMap (map length) . createSyllablesUkrS $ xs+      y  = sum ps in        case y of          0 -> [0]          _ -> y:ps  @@ -506,7 +506,7 @@ -- | Generatlized version of the 'strToInt' with a possibility to specify your own 'Intervals'. strToIntG :: Intervals -> String -> Int strToIntG v =-  getBFst' (0, listArray (0,28) . zip (["а","б","в","г","д","дж","дз","е","ж","з","и","й","к","л","м","н","о","п","р","с","т","у","ф","х","ц","ч","ш","і","ґ"]) . V.toList $ v)+  getBFstLSorted' 0 (zip (["а","б","в","г","д","дж","дз","е","ж","з","и","й","к","л","м","н","о","п","р","с","т","у","ф","х","ц","ч","ш","і","ґ"]) . V.toList $ v) {-# INLINE strToIntG #-}  -- | Generalized variant of the 'soundGenF31G' with a possibility to specify sound quality using the 'String' argument. For more information,

@@ -90,7 +90,7 @@ -- 'String' structure of the uniqueness (see the documentation for @mmsyn7s@ and @uniqueness-periods@ packages) it produces the unique timbre. uniqOvertonesV :: Float -> String -> OvertonesO uniqOvertonesV note xs =-  let ys = uniquenessPeriodsGI8 [100,101,102] . convertToProperUkrainianI8 $ xs+  let ys = map fromIntegral . uniquenessPeriodsGI8 [100,101,102] . convertToProperUkrainianI8 $ xs :: [Int]       z  = sum ys       v  = V.fromList . fmap (\y -> fromIntegral y / fromIntegral z) $ ys       z2 = V.length v@@ -103,7 +103,7 @@ -- The second 'String' is used to produce the signs for harmonics coefficients. uniqOvertonesV2 :: Float -> String -> String -> OvertonesO uniqOvertonesV2 note xs ts = -  let ys = uniquenessPeriodsGI8 [100,101,102] . convertToProperUkrainianI8 $ xs+  let ys = map fromIntegral . uniquenessPeriodsGI8 [100,101,102] . convertToProperUkrainianI8 $ xs :: [Int]       z  = sum ys       v  = V.fromList . fmap (\y -> fromIntegral y / fromIntegral z) $ ys       z2 = V.length v@@ -690,3 +690,4 @@ uniqOverSoXSynthNGen4E6GSuPar :: FilePath -> Params -> Float -> Float -> Float -> String -> String -> Intervals -> String -> String -> Float -> IO () uniqOverSoXSynthNGen4E6GSuPar file params ampL time3 dAmpl wws tts v5 vs xxs limV =   uniqOverSoXSynthNGen4E6GPar file params ampL dAmpl (str2Durations xxs time3) wws tts (intervalsFromStringG v5 vs) (str2Volume xxs) limV+

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                dobutokO2-version:             0.44.0.0+version:             0.44.1.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