Music.Theory.Unicode

http://www.unicode.org/charts/PDF/U1D100.pdf

These symbols are in http://www.gnu.org/software/freefont/, debian=ttf-freefont.

Non-music

non_breaking_hypen :: Char

Unicode non breaking hypen character.

non_breaking_hypen == '‑'

non_breaking_space :: Char

Unicode non breaking space character.

non_breaking_space == ' '

Music

type Unicode_Index = Int

type Unicode_Range = (Unicode_Index, Unicode_Index)

type Unicode_Point = (Unicode_Index, String)

type Unicode_Table = [Unicode_Point]

unicode :: [Unicode_Table]

accidentals_rng_set :: [Unicode_Range]

accidentals :: Unicode_Table

UNICODE accidental symbols.

let r = "♭♮♯𝄪𝄫𝄬𝄭𝄮𝄯𝄰𝄱𝄲𝄳" in map (toEnum . fst) accidentals == r

notes_rng :: Unicode_Range

notes :: Unicode_Table

UNICODE note duration symbols.

let r = "𝅜𝅝𝅗𝅥𝅘𝅥𝅘𝅥𝅮𝅘𝅥𝅯𝅘𝅥𝅰𝅘𝅥𝅱𝅘𝅥𝅲" in map (toEnum . fst) notes == r

rests_rng :: Unicode_Range

rests :: Unicode_Table

UNICODE rest symbols.

let r = "𝄻𝄼𝄽𝄾𝄿𝅀𝅁𝅂" in map (toEnum . fst) rests == r

augmentation_dot :: Unicode_Point

clefs_rng :: Unicode_Range

clefs :: Unicode_Table

UNICODE clef symbols.

let r = "𝄞𝄟𝄠𝄡𝄢𝄣𝄤𝄥𝄦" in map (toEnum . fst) clefs == r

notehead_rng :: Unicode_Range

noteheads :: Unicode_Table

UNICODE notehead symbols.

let r = "𝅃𝅄𝅅𝅆𝅇𝅈𝅉𝅊𝅋𝅌𝅍𝅎𝅏𝅐𝅑𝅒𝅓𝅔𝅕𝅖𝅗𝅘𝅙𝅚𝅛" in map (toEnum . fst) noteheads == r

stem :: Unicode_Point

dynamics_rng :: Unicode_Range

dynamics :: Unicode_Table

articulations_rng :: Unicode_Range

articulations :: Unicode_Table

Blocks

type Unicode_Block = (Unicode_Range, String)

unicode_blocks :: [Unicode_Block]

Table

unicode_data_table_read :: FilePath -> IO Unicode_Table

http://unicode.org/Public/8.0.0/ucd/UnicodeData.txt

let fn = "/home/rohan/data/unicode.org/Public/8.0.0/ucd/UnicodeData.txt"
tbl <- unicode_data_table_read fn
length tbl == 29215

unicode_table_block :: (Int, Int) -> Unicode_Table -> Unicode_Table

unicode_point_hs :: Unicode_Point -> String

unicode_table_hs :: Unicode_Table -> String