Music.Theory.Array.Csv.Midi.Mnd

Functions for reading midi note data (Mnd) from Csv files.

This is not a generic text midi notation. The required columns are documented at Mnd and Mndd. The defined commands are on and off, but others may be present. Non-integral note number and key velocity data are allowed.

Param ; Sound.SC3.Server.Param

type Param = [(String, Double)]

param_parse :: (Char, Char) -> String -> Param

param_pp :: (Char, Char) -> Int -> Param -> String

Mnd

data_value_pp :: Real t => Int -> t -> String

If r is whole to k places then show as integer, else as float to k places.

type Channel = Int

Channel values are 4-bit (0-15).

csv_mnd_hdr :: [String]

The required header (column names) field.

type Mnd t n = (t, String, n, n, Channel, Param)

Midi note data, the type parameters are to allow for fractional note & velocity values.

The command is a string, on and off are standard, other commands may be present. note and velocity data is (0-127), channel is (0-15), param are ;-separated key:string=value:float.

unwords csv_mnd_hdr == "time on/off note velocity channel param"

all_notes_off = zipWith (\t k -> (t,"off",k,0,0,[])) [0.0,0.01 ..] [0 .. 127]
csv_mnd_write 4 "/home/rohan/sw/hmt/data/csv/mnd/all-notes-off.csv" all_notes_off

csv_mnd_parse_f :: (Read t, Real t, Read n, Real n) => (n -> m) -> Csv_Table String -> [Mnd t m]

csv_mnd_parse :: (Read t, Real t, Read n, Real n) => Csv_Table String -> [Mnd t n]

load_csv :: FilePath -> IO (Csv_Table String)

csv_mnd_read :: (Read t, Real t, Read n, Real n) => FilePath -> IO [Mnd t n]

Midi note data.

let fn = "/home/rohan/cvs/uc/uc-26/daily-practice/2014-08-13.1.csv"
let fn = "/home/rohan/sw/hmt/data/csv/mnd/1080-C01.csv"
m <- csv_mnd_read fn :: IO [Mnd Double Int]
length m -- 1800 17655
csv_mnd_write 4 "/tmp/t.csv" m

csv_mnd_write :: (Real t, Real n) => Int -> FilePath -> [Mnd t n] -> IO ()

Writer.

Mnd Seq forms

type Event n = (n, n, Channel, Param)

(p0=midi-note,p1=velocity,channel,param)

event_mnn :: Event t -> t

mnn = midi-note-number

event_ch :: Event t -> Channel

ch = channel

event_eq_mnn :: Eq t => Event t -> Event t -> Bool

Are events equal at mnn field?

event_eq_ol :: Eq t => Event t -> Event t -> Bool

Are events equal at mnn and ch fields?

event_map :: (t -> u, t -> u, Channel -> Channel, Param -> Param) -> Event t -> Event u

Apply (mnn-f,vel-f,ch-f,param-f) to Event.

event_cast :: (t -> u) -> Event t -> Event u

Apply f at mnn and vel fields.

event_transpose :: Num a => a -> Event a -> Event a

Add x to mnn field.

midi_tseq_to_midi_wseq :: (Num t, Eq n) => Tseq t (Begin_End (Event n)) -> Wseq t (Event n)

Translate from Tseq form to Wseq form.

midi_wseq_to_midi_tseq :: (Num t, Ord t) => Wseq t x -> Tseq t (Begin_End x)

mnd_to_tseq :: Num n => [Mnd t n] -> Tseq t (Begin_End (Event n))

Ignores non on/off messages.

csv_mnd_read_tseq :: (Read t, Real t, Read n, Real n) => FilePath -> IO (Tseq t (Begin_End (Event n)))

Tseq form of csv_mnd_read, channel information is retained, off-velocity is zero.

csv_mnd_write_tseq :: (Real t, Real n) => Int -> FilePath -> Tseq t (Begin_End (Event n)) -> IO ()

Tseq form of csv_mnd_write, data is .

Mndd (simplifies cases where overlaps on the same channel are allowed).

csv_mndd_hdr :: [String]

Message should be note for note data.

type Mndd t n = (t, t, String, n, n, Channel, Param)

Midi note/duration data. The type parameters are to allow for fractional note & velocity values. The command is a string, note is standard, other commands may be present.

unwords csv_mndd_hdr == "time duration message note velocity channel param"

mndd_compare :: (Ord t, Ord n) => Mndd t n -> Mndd t n -> Ordering

Compare sequence is: start-time,channel-number,note-number,velocity,duration,param.

csv_mndd_parse_f :: (Read t, Real t, Read n, Real n) => (n -> m) -> Csv_Table String -> [Mndd t m]

csv_mndd_parse :: (Read t, Real t, Read n, Real n) => Csv_Table String -> [Mndd t n]

Pars midi note/duration data from Csv table.

csv_mndd_read :: (Read t, Real t, Read n, Real n) => FilePath -> IO [Mndd t n]

csv_mndd_parse of load_csv

csv_mndd_write :: (Real t, Real n) => Int -> FilePath -> [Mndd t n] -> IO ()

Writer.

Mndd Seq forms

mndd_to_wseq :: [Mndd t n] -> Wseq t (Event n)

Ignores non note messages.

csv_mndd_read_wseq :: (Read t, Real t, Read n, Real n) => FilePath -> IO (Wseq t (Event n))

Wseq form of csv_mndd_read.

csv_mndd_write_wseq :: (Real t, Real n) => Int -> FilePath -> Wseq t (Event n) -> IO ()

Wseq form of csv_mndd_write.

Composite

csv_midi_parse_wseq_f :: (Read t, Real t, Read n, Real n, Num m, Eq m) => (n -> m) -> Csv_Table String -> Wseq t (Event m)

Parse either Mnd or Mndd data to Wseq, Csv type is decided by header.

csv_midi_parse_wseq :: (Read t, Real t, Read n, Real n) => Csv_Table String -> Wseq t (Event n)

csv_midi_read_wseq :: (Read t, Real t, Read n, Real n) => FilePath -> IO (Wseq t (Event n))