Fadno.Midi

Documentation

type MidiData = T

Serializable midi data.

type IPitch = Int

type IDur = Int

class MidiNotes a where

Convert some note value to midi-ready values.

Methods

toMidiNotes :: a -> [([IPitch], IDur)]

Instances

MidiNotes [([IPitch], IDur)]

Defined in Fadno.Midi

Methods

toMidiNotes :: [([IPitch], IDur)] -> [([IPitch], IDur)]

(Integral p, Integral d, Traversable t) => MidiNotes (t (Note p d))

Defined in Fadno.Midi

Methods

toMidiNotes :: t (Note p d) -> [([IPitch], IDur)]

(Integral p, Traversable c, Integral d, Traversable t) => MidiNotes (t (Note (c p) d))

Defined in Fadno.Midi

Methods

toMidiNotes :: t (Note (c p) d) -> [([IPitch], IDur)]

newtype MidiTempo

Tempo in microseconds per quarter. See fromBPM.

Constructors

MidiTempo Int

Instances

Bounded MidiTempo

Defined in Fadno.Midi

Methods

minBound :: MidiTempo

maxBound :: MidiTempo

Enum MidiTempo

Defined in Fadno.Midi

Methods

succ :: MidiTempo -> MidiTempo

pred :: MidiTempo -> MidiTempo

toEnum :: Int -> MidiTempo

fromEnum :: MidiTempo -> Int

enumFrom :: MidiTempo -> [MidiTempo]

enumFromThen :: MidiTempo -> MidiTempo -> [MidiTempo]

enumFromTo :: MidiTempo -> MidiTempo -> [MidiTempo]

enumFromThenTo :: MidiTempo -> MidiTempo -> MidiTempo -> [MidiTempo]

Eq MidiTempo

Defined in Fadno.Midi

Methods

(==) :: MidiTempo -> MidiTempo -> Bool

(/=) :: MidiTempo -> MidiTempo -> Bool

Integral MidiTempo

Defined in Fadno.Midi

Methods

quot :: MidiTempo -> MidiTempo -> MidiTempo

rem :: MidiTempo -> MidiTempo -> MidiTempo

div :: MidiTempo -> MidiTempo -> MidiTempo

mod :: MidiTempo -> MidiTempo -> MidiTempo

quotRem :: MidiTempo -> MidiTempo -> (MidiTempo, MidiTempo)

divMod :: MidiTempo -> MidiTempo -> (MidiTempo, MidiTempo)

toInteger :: MidiTempo -> Integer

Num MidiTempo

Defined in Fadno.Midi

Methods

(+) :: MidiTempo -> MidiTempo -> MidiTempo

(-) :: MidiTempo -> MidiTempo -> MidiTempo

(*) :: MidiTempo -> MidiTempo -> MidiTempo

negate :: MidiTempo -> MidiTempo

abs :: MidiTempo -> MidiTempo

signum :: MidiTempo -> MidiTempo

fromInteger :: Integer -> MidiTempo

Ord MidiTempo

Defined in Fadno.Midi

Methods

compare :: MidiTempo -> MidiTempo -> Ordering

(<) :: MidiTempo -> MidiTempo -> Bool

(<=) :: MidiTempo -> MidiTempo -> Bool

(>) :: MidiTempo -> MidiTempo -> Bool

(>=) :: MidiTempo -> MidiTempo -> Bool

max :: MidiTempo -> MidiTempo -> MidiTempo

min :: MidiTempo -> MidiTempo -> MidiTempo

Real MidiTempo

Defined in Fadno.Midi

Methods

toRational :: MidiTempo -> Rational

Show MidiTempo

Defined in Fadno.Midi

Methods

showsPrec :: Int -> MidiTempo -> ShowS

show :: MidiTempo -> String

showList :: [MidiTempo] -> ShowS

newtype MidiChan

Midi channel, 1-16 presumably.

Constructors

MidiChan Int

Instances

Bounded MidiChan

Defined in Fadno.Midi

Methods

minBound :: MidiChan

maxBound :: MidiChan

Enum MidiChan

Defined in Fadno.Midi

Methods

succ :: MidiChan -> MidiChan

pred :: MidiChan -> MidiChan

toEnum :: Int -> MidiChan

fromEnum :: MidiChan -> Int

enumFrom :: MidiChan -> [MidiChan]

enumFromThen :: MidiChan -> MidiChan -> [MidiChan]

enumFromTo :: MidiChan -> MidiChan -> [MidiChan]

enumFromThenTo :: MidiChan -> MidiChan -> MidiChan -> [MidiChan]

Eq MidiChan

Defined in Fadno.Midi

Methods

(==) :: MidiChan -> MidiChan -> Bool

(/=) :: MidiChan -> MidiChan -> Bool

Integral MidiChan

Defined in Fadno.Midi

Methods

quot :: MidiChan -> MidiChan -> MidiChan

rem :: MidiChan -> MidiChan -> MidiChan

div :: MidiChan -> MidiChan -> MidiChan

mod :: MidiChan -> MidiChan -> MidiChan

quotRem :: MidiChan -> MidiChan -> (MidiChan, MidiChan)

divMod :: MidiChan -> MidiChan -> (MidiChan, MidiChan)

toInteger :: MidiChan -> Integer

Num MidiChan

Defined in Fadno.Midi

Methods

(+) :: MidiChan -> MidiChan -> MidiChan

(-) :: MidiChan -> MidiChan -> MidiChan

(*) :: MidiChan -> MidiChan -> MidiChan

negate :: MidiChan -> MidiChan

abs :: MidiChan -> MidiChan

signum :: MidiChan -> MidiChan

fromInteger :: Integer -> MidiChan

Ord MidiChan

Defined in Fadno.Midi

Methods

compare :: MidiChan -> MidiChan -> Ordering

(<) :: MidiChan -> MidiChan -> Bool

(<=) :: MidiChan -> MidiChan -> Bool

(>) :: MidiChan -> MidiChan -> Bool

(>=) :: MidiChan -> MidiChan -> Bool

max :: MidiChan -> MidiChan -> MidiChan

min :: MidiChan -> MidiChan -> MidiChan

Real MidiChan

Defined in Fadno.Midi

Methods

toRational :: MidiChan -> Rational

Show MidiChan

Defined in Fadno.Midi

Methods

showsPrec :: Int -> MidiChan -> ShowS

show :: MidiChan -> String

showList :: [MidiChan] -> ShowS

newtype MidiVelocity

note velocity, 0-127

Constructors

MidiVelocity Int

Instances

Bounded MidiVelocity

Defined in Fadno.Midi

Methods

minBound :: MidiVelocity

maxBound :: MidiVelocity

Enum MidiVelocity

Defined in Fadno.Midi

Methods

succ :: MidiVelocity -> MidiVelocity

pred :: MidiVelocity -> MidiVelocity

toEnum :: Int -> MidiVelocity

fromEnum :: MidiVelocity -> Int

enumFrom :: MidiVelocity -> [MidiVelocity]

enumFromThen :: MidiVelocity -> MidiVelocity -> [MidiVelocity]

enumFromTo :: MidiVelocity -> MidiVelocity -> [MidiVelocity]

enumFromThenTo :: MidiVelocity -> MidiVelocity -> MidiVelocity -> [MidiVelocity]

Eq MidiVelocity

Defined in Fadno.Midi

Methods

(==) :: MidiVelocity -> MidiVelocity -> Bool

(/=) :: MidiVelocity -> MidiVelocity -> Bool

Integral MidiVelocity

Defined in Fadno.Midi

Methods

quot :: MidiVelocity -> MidiVelocity -> MidiVelocity

rem :: MidiVelocity -> MidiVelocity -> MidiVelocity

div :: MidiVelocity -> MidiVelocity -> MidiVelocity

mod :: MidiVelocity -> MidiVelocity -> MidiVelocity

quotRem :: MidiVelocity -> MidiVelocity -> (MidiVelocity, MidiVelocity)

divMod :: MidiVelocity -> MidiVelocity -> (MidiVelocity, MidiVelocity)

toInteger :: MidiVelocity -> Integer

Num MidiVelocity

Defined in Fadno.Midi

Methods

(+) :: MidiVelocity -> MidiVelocity -> MidiVelocity

(-) :: MidiVelocity -> MidiVelocity -> MidiVelocity

(*) :: MidiVelocity -> MidiVelocity -> MidiVelocity

negate :: MidiVelocity -> MidiVelocity

abs :: MidiVelocity -> MidiVelocity

signum :: MidiVelocity -> MidiVelocity

fromInteger :: Integer -> MidiVelocity

Ord MidiVelocity

Defined in Fadno.Midi

Methods

compare :: MidiVelocity -> MidiVelocity -> Ordering

(<) :: MidiVelocity -> MidiVelocity -> Bool

(<=) :: MidiVelocity -> MidiVelocity -> Bool

(>) :: MidiVelocity -> MidiVelocity -> Bool

(>=) :: MidiVelocity -> MidiVelocity -> Bool

max :: MidiVelocity -> MidiVelocity -> MidiVelocity

min :: MidiVelocity -> MidiVelocity -> MidiVelocity

Real MidiVelocity

Defined in Fadno.Midi

Methods

toRational :: MidiVelocity -> Rational

Show MidiVelocity

Defined in Fadno.Midi

Methods

showsPrec :: Int -> MidiVelocity -> ShowS

show :: MidiVelocity -> String

showList :: [MidiVelocity] -> ShowS

newtype MidiProgram

Midi program. See fromInstrument.

Constructors

MidiProgram Int

Instances

Bounded MidiProgram

Defined in Fadno.Midi

Methods

minBound :: MidiProgram

maxBound :: MidiProgram

Enum MidiProgram

Defined in Fadno.Midi

Methods

succ :: MidiProgram -> MidiProgram

pred :: MidiProgram -> MidiProgram

toEnum :: Int -> MidiProgram

fromEnum :: MidiProgram -> Int

enumFrom :: MidiProgram -> [MidiProgram]

enumFromThen :: MidiProgram -> MidiProgram -> [MidiProgram]

enumFromTo :: MidiProgram -> MidiProgram -> [MidiProgram]

enumFromThenTo :: MidiProgram -> MidiProgram -> MidiProgram -> [MidiProgram]

Eq MidiProgram

Defined in Fadno.Midi

Methods

(==) :: MidiProgram -> MidiProgram -> Bool

(/=) :: MidiProgram -> MidiProgram -> Bool

Integral MidiProgram

Defined in Fadno.Midi

Methods

quot :: MidiProgram -> MidiProgram -> MidiProgram

rem :: MidiProgram -> MidiProgram -> MidiProgram

div :: MidiProgram -> MidiProgram -> MidiProgram

mod :: MidiProgram -> MidiProgram -> MidiProgram

quotRem :: MidiProgram -> MidiProgram -> (MidiProgram, MidiProgram)

divMod :: MidiProgram -> MidiProgram -> (MidiProgram, MidiProgram)

toInteger :: MidiProgram -> Integer

Num MidiProgram

Defined in Fadno.Midi

Methods

(+) :: MidiProgram -> MidiProgram -> MidiProgram

(-) :: MidiProgram -> MidiProgram -> MidiProgram

(*) :: MidiProgram -> MidiProgram -> MidiProgram

negate :: MidiProgram -> MidiProgram

abs :: MidiProgram -> MidiProgram

signum :: MidiProgram -> MidiProgram

fromInteger :: Integer -> MidiProgram

Ord MidiProgram

Defined in Fadno.Midi

Methods

compare :: MidiProgram -> MidiProgram -> Ordering

(<) :: MidiProgram -> MidiProgram -> Bool

(<=) :: MidiProgram -> MidiProgram -> Bool

(>) :: MidiProgram -> MidiProgram -> Bool

(>=) :: MidiProgram -> MidiProgram -> Bool

max :: MidiProgram -> MidiProgram -> MidiProgram

min :: MidiProgram -> MidiProgram -> MidiProgram

Real MidiProgram

Defined in Fadno.Midi

Methods

toRational :: MidiProgram -> Rational

Show MidiProgram

Defined in Fadno.Midi

Methods

showsPrec :: Int -> MidiProgram -> ShowS

show :: MidiProgram -> String

showList :: [MidiProgram] -> ShowS

newtype MidiTicks

Midi ticks per quarter.

Constructors

MidiTicks Int

Instances

Bounded MidiTicks

Defined in Fadno.Midi

Methods

minBound :: MidiTicks

maxBound :: MidiTicks

Enum MidiTicks

Defined in Fadno.Midi

Methods

succ :: MidiTicks -> MidiTicks

pred :: MidiTicks -> MidiTicks

toEnum :: Int -> MidiTicks

fromEnum :: MidiTicks -> Int

enumFrom :: MidiTicks -> [MidiTicks]

enumFromThen :: MidiTicks -> MidiTicks -> [MidiTicks]

enumFromTo :: MidiTicks -> MidiTicks -> [MidiTicks]

enumFromThenTo :: MidiTicks -> MidiTicks -> MidiTicks -> [MidiTicks]

Eq MidiTicks

Defined in Fadno.Midi

Methods

(==) :: MidiTicks -> MidiTicks -> Bool

(/=) :: MidiTicks -> MidiTicks -> Bool

Integral MidiTicks

Defined in Fadno.Midi

Methods

quot :: MidiTicks -> MidiTicks -> MidiTicks

rem :: MidiTicks -> MidiTicks -> MidiTicks

div :: MidiTicks -> MidiTicks -> MidiTicks

mod :: MidiTicks -> MidiTicks -> MidiTicks

quotRem :: MidiTicks -> MidiTicks -> (MidiTicks, MidiTicks)

divMod :: MidiTicks -> MidiTicks -> (MidiTicks, MidiTicks)

toInteger :: MidiTicks -> Integer

Num MidiTicks

Defined in Fadno.Midi

Methods

(+) :: MidiTicks -> MidiTicks -> MidiTicks

(-) :: MidiTicks -> MidiTicks -> MidiTicks

(*) :: MidiTicks -> MidiTicks -> MidiTicks

negate :: MidiTicks -> MidiTicks

abs :: MidiTicks -> MidiTicks

signum :: MidiTicks -> MidiTicks

fromInteger :: Integer -> MidiTicks

Ord MidiTicks

Defined in Fadno.Midi

Methods

compare :: MidiTicks -> MidiTicks -> Ordering

(<) :: MidiTicks -> MidiTicks -> Bool

(<=) :: MidiTicks -> MidiTicks -> Bool

(>) :: MidiTicks -> MidiTicks -> Bool

(>=) :: MidiTicks -> MidiTicks -> Bool

max :: MidiTicks -> MidiTicks -> MidiTicks

min :: MidiTicks -> MidiTicks -> MidiTicks

Real MidiTicks

Defined in Fadno.Midi

Methods

toRational :: MidiTicks -> Rational

Show MidiTicks

Defined in Fadno.Midi

Methods

showsPrec :: Int -> MidiTicks -> ShowS

show :: MidiTicks -> String

showList :: [MidiTicks] -> ShowS

toTicks :: MidiTicks -> Iso' Rational IDur

Rational to ticks

data MidiEvent

Internal type for midi event or pad.

Constructors

Pad IDur

Event T

type MidiTrack = Track

cover our tracks

writeMidiFile :: FilePath -> MidiData -> IO ()

write to disk.

showMidiFile :: FilePath -> IO ()

debug midi file.

midi :: MidiTicks -> [MidiTrack] -> MidiData

Make midi file data

makeTrackFull :: MidiNotes notes => MidiTempo -> MidiChan -> MidiProgram -> MidiVelocity -> notes -> MidiTrack

make a standard track which specifies tempo and program. | see makeTrack for more control.

fromBPM :: (Real a, Show a) => a -> MidiTempo

BPM to microseconds per quarter note.

fromInstrument :: Instrument -> MidiProgram

convert a General MIDI Instrument.

makeTrack :: [MidiEvent] -> MidiTrack

make a track from track events.

toNoteEvents :: MidiNotes notes => MidiChan -> MidiVelocity -> notes -> [MidiEvent]

turn notes into track events.

voiceEvent :: MidiChan -> T -> MidiEvent

create a Voice MIDI event

setTempo :: MidiTempo -> MidiEvent

tempo meta event.

metaEvent :: T -> MidiEvent

create a Meta MIDI event

midiEvent :: MidiChan -> Body -> MidiEvent

create a Voice or Mode MIDI event.

programChange :: MidiChan -> MidiProgram -> MidiEvent

program change MIDI Voice event.

noteEvents :: MidiChan -> MidiVelocity -> ([IPitch], IDur) -> [MidiEvent]

note on + note off events, using Pad to carve out space.

noteEvent :: (Pitch -> Velocity -> T) -> MidiChan -> MidiVelocity -> IPitch -> MidiEvent

note on or note off event.

noteOn :: MidiChan -> MidiVelocity -> IPitch -> MidiEvent

noteOff :: MidiChan -> MidiVelocity -> IPitch -> MidiEvent

test1 :: IO ()

playMidi :: MidiNotes n => FilePath -> Int -> [(Instrument, n)] -> IO ()