algorithmic-composition-basic 0.2.1.0 → 0.2.2.0

raw patch · 3 files changed

+12/−7 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +5/−0
• Composition/Sound/Functional/Basics.hs +5/−5
• algorithmic-composition-basic.cabal +2/−2

@@ -19,3 +19,8 @@ ## 0.2.1.0 -- 2021-03-02  * Second version revised A. Fixed some issues with functions in the Composition.Sound.Elements module.++## 0.2.2.0 -- 2021-03-02++* Second version revised B. Fixed issue with being not imported iterate' from GHC.List for lower than 8.6 versions+of GHC. 

@@ -10,6 +10,7 @@ -- dobutokO2 and uses its functionality.  {-# LANGUAGE BangPatterns #-}+{-# OPTIONS_HADDOCK show-extensions #-} {-# OPTIONS_GHC -threaded #-}  module Composition.Sound.Functional.Basics (@@ -63,7 +64,6 @@   , adjust_dbVol ) where -import GHC.List (iterate') import CaseBi.Arr (getBFstLSorted') import Data.Char (isDigit) import System.Exit (ExitCode( ExitSuccess ))@@ -321,13 +321,13 @@         LT -> let z  = logBase 2.0 (unsafeAt notes (n * ku) / closestNote x)                   z1 = truncate z in                    if abs (z - fromIntegral z1) > 0.999 || abs (z - fromIntegral z1) < 0.001-                     then Just (last . take  (fromIntegral z1 + 1) . iterate' (enkuUp ku) $ closestNote x)-                     else Just (last . take  (fromIntegral z1 + 2) . iterate' (enkuUp ku) $ closestNote x)+                     then Just (last . take  (fromIntegral z1 + 1) . iterate (enkuUp ku) $ closestNote x)+                     else Just (last . take  (fromIntegral z1 + 2) . iterate (enkuUp ku) $ closestNote x)         _  -> let z  = logBase 2.0 (closestNote x / unsafeAt notes (n * ku))                   z1 = truncate z in                    if abs (z - fromIntegral z1) > 0.999 || abs (z - fromIntegral z1) < 0.001-                     then Just (last . take (fromIntegral z1 + 2) . iterate' (enkuDown ku) $ closestNote x)-                     else Just (last . take (fromIntegral z1 + 1) . iterate' (enkuDown ku) $ closestNote x)+                     then Just (last . take (fromIntegral z1 + 2) . iterate (enkuDown ku) $ closestNote x)+                     else Just (last . take (fromIntegral z1 + 1) . iterate (enkuDown ku) $ closestNote x)   | otherwise = Nothing  -- | Similarly to 'whichOctave' returns a 'Maybe' number for the n-th elements set of notes (see 'nkyT').

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                algorithmic-composition-basic-version:             0.2.1.0+version:             0.2.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/algorithmic-composition-basic@@ -19,7 +19,7 @@ library   exposed-modules:     Composition.Sound.IntermediateF, Composition.Sound.Keyboard, Composition.Sound.Functional.Basics, Composition.Sound.Functional.Params, Composition.Sound.Functional.Elements   -- other-modules:-  -- other-extensions:+  other-extensions:    BangPatterns   build-depends:       base >=4.8 && <4.15, bytestring >= 0.10.6 && <1, process >=1.4 && <1.9, mmsyn3 >=0.1.5 && <1,  directory >=1.2.7 && <1.7, mmsyn7ukr-common >=0.1.1 && <1, mmsyn2-array >=0.1.1 && <1, ukrainian-phonetics-basic-array >=0.1.2 && <1, mmsyn7l >=0.9 && <1, phonetic-languages-simplified-base >=0.2 && <1, foldable-ix >=0.2 && <1   -- hs-source-dirs:   default-language:    Haskell2010