synthesizer-alsa 0.0.2.1 → 0.0.3

raw patch · 3 files changed

+6/−13 lines, 3 filesdep ~storablevector

Dependency ranges changed: storablevector

Files

• src/RealTimeSynthesizer.hs +1/−0
• src/Synthesizer/Storable/ALSA/MIDI.hs +3/−11
• synthesizer-alsa.cabal +2/−2

@@ -251,6 +251,7 @@ --   print testKeyboard3 --   playMono defaultSampleRate testKeyboard3 --   examplePitchBend+--   exampleKeyboard    exampleKeyboardFilter  

@@ -470,8 +470,8 @@           instrument              dur              (fromIntegral (vel-64)/63)-             (880 * 2 ** (fromIntegral (pitch + 3 - 6*12) / 12)))---             (440 * 2 ** (fromIntegral (pitch + 3 - 6*12) / 12)))+--             (880 * 2 ** (fromIntegral (pitch + 3 - 6*12) / 12)))+             (440 * 2 ** (fromIntegral (pitch + 3 - 6*12) / 12)))   {- |@@ -589,13 +589,5 @@     in  ALSASig.withSoundSink sink $ \to ->        flip mapM_ (SVL.chunks (SigSt.append (SigSt.replicate defaultChunkSize latency 0) ys)) $ \c ->-       withVector c $ \ptr size ->+       SV.withStartPtr c $ \ptr size ->        ALSASig.soundSinkWrite sink to (Foreign.castPtr ptr) size--withVector ::-   (Storable a) =>-   SV.Vector a -> (Foreign.Ptr a -> Int -> IO b) -> IO b-withVector v f =-   let (fptr, start, size) = SV.toForeignPtr v-   in  Foreign.withForeignPtr fptr $ \ptr ->-          f (Foreign.advancePtr ptr start) size

@@ -1,5 +1,5 @@ Name:           synthesizer-alsa-Version:        0.0.2.1+Version:        0.0.3 License:        GPL License-File:   LICENSE Author:         Henning Thielemann <haskell@henning-thielemann.de>@@ -42,7 +42,7 @@     sox >=0.0.1 && <0.1,     alsa >= 0.2 && <0.3,     -- midi >=0.1.1 && <0.1,-    storablevector >=0.2.2 && <0.3,+    storablevector >=0.2.4 && <0.3,     numeric-prelude >=0.0.3 && <0.2,     non-negative >=0.0.3 && <0.1,     event-list >=0.0.8 && <0.1,