midi-0.1.6: Handling of MIDI messages and files



Channel voice messages



get :: C parser => Int -> Int -> Fallible parser TSource

putWithStatus :: C writer => (Int -> T writer) -> T -> T writerSource

isNoteOn :: T -> BoolSource

NoteOn with zero velocity is considered NoteOff according to MIDI specification.

isNoteOff :: T -> BoolSource

NoteOn with zero velocity is considered NoteOff according to MIDI specification.

zeroKey :: PitchSource

A MIDI problem is that one cannot uniquely map a MIDI key to a frequency. The frequency depends on the instrument. I don't know if the deviations are defined for General MIDI. If this applies one could add transposition information to the use patch map. For now I have chosen a value that leads to the right frequency for some piano sound in my setup.

explicitNoteOff :: T -> TSource

Convert all NoteOn p 0 to NoteOff p 64. The latter one is easier to process.

implicitNoteOff :: T -> TSource

Convert all NoteOff p 64 to NoteOn p 0. The latter one can be encoded more efficiently using the running status.

toFloatController :: (Integral a, Fractional b) => a -> bSource

Map integral MIDI controller value to floating point value. Maximum integral MIDI controller value 127 is mapped to 1. Minimum integral MIDI controller value 0 is mapped to 0.

data Controller Source

We do not define Controller as enumeration with many constructors, because some controllers have multiple names and some are undefined. It is also more efficient this way. Thus you cannot use case for processing controller types, but you can use Data.List.lookup instead.

 maybe (putStrLn "unsupported controller") putStrLn $
 lookup ctrl $
    (portamento, "portamento") :
    (modulation, "modulation") :

frequencyFromPitch :: Floating a => Pitch -> aSource

Convert pitch to frequency according to the default tuning given in MIDI 1.0 Detailed Specification.

normalVelocity, maximumVelocity :: Num quant => quantSource

The velocity of an ordinary key stroke and the maximum possible velocity.

ToDo: This should be of type Velocity.

toFloatVelocity :: (Integral a, Fractional b) => a -> bSource

64 is given as default value by the MIDI specification and thus we map it to 1. 0 is mapped to 0. All other values are interpolated linearly.

ToDo: MIDI specification says, if velocity is simply mapped to amplitude, then this should be done by an exponential function. Thus we should be better map normalVelocity to 0, maximumVelocity to 1, and minimumVelocity to -1.