module Music.Theory.Instrument.Names where

import Data.List.Split {- split -}

-- | (family,abbreviations,names,transpositions)
instrument_db' :: [(String,String,String,String)]
instrument_db' :: [(String, String, String, String)]
instrument_db' =
    [(String
"br",String
"b.tbn",String
"bass trombone",String
"")
    ,(String
"br",String
"b.tuba",String
"bass tuba",String
"")
    ,(String
"br",String
"euph",String
"euphonium",String
"")
    ,(String
"br",String
"hn",String
"french horn",String
"F")
    ,(String
"br",String
"tbn;trm",String
"trombone",String
"")
    ,(String
"br",String
"tb;tba",String
"tuba",String
"")
    ,(String
"br",String
"tpt",String
"trumpet",String
"B♭")
    ,(String
"br",String
"t.tbn",String
"tenor trombone",String
"")
    ,(String
"br",String
"crt",String
"cornet",String
"")
    ,(String
"br",String
"fgh;flhn",String
"flugel horn",String
"")
    ,(String
"br",String
"p.tpt",String
"piccolo trumpet",String
"")
    ,(String
"el",String
"cd",String
"compact disc",String
"")
    ,(String
"el",String
"el;elec",String
"electronics",String
"")
    ,(String
"el",String
"tp",String
"tape",String
"")
    ,(String
"el",String
"om",String
"ondes martenot",String
"")
    ,(String
"kb",String
"h;hrm",String
"harmonium",String
"")
    ,(String
"kb",String
"e.pf",String
"electric piano",String
"")
    ,(String
"kb",String
"p;pf;pno",String
"piano;pianoforte",String
"")
    ,(String
"kb",String
"o;or;org",String
"organ",String
"")
    ,(String
"kb",String
"kb;kbd",String
"keyboard",String
"")
    ,(String
"kb",String
"cel",String
"celeste",String
"")
    ,(String
"kb",String
"clvd",String
"clavichord",String
"")
    ,(String
"kb",String
"hpd;hpcd",String
"harpsichord",String
"")
    ,(String
"kb",String
"syn",String
"synthesiser",String
"")
    ,(String
"pc",String
"bd",String
"bass drum",String
"")
    ,(String
"pc",String
"btl",String
"bottle",String
"")
    ,(String
"pc",String
"cast",String
"castanets",String
"")
    ,(String
"pc",String
"cbell",String
"cow-bell",String
"")
    ,(String
"pc",String
"bell",String
"bell",String
"chimes")
    ,(String
"pc",String
"clv",String
"clave",String
"")
    ,(String
"pc",String
"crot",String
"crotales",String
"")
    ,(String
"pc",String
"cym",String
"cymbals",String
"")
    ,(String
"pc",String
"dm",String
"drum",String
"")
    ,(String
"pc",String
"gl;glsp",String
"glockenspiel",String
"")
    ,(String
"pc",String
"mcas",String
"maracas",String
"")
    ,(String
"pc",String
"met.bl",String
"metal block",String
"")
    ,(String
"pc",String
"mr;mar",String
"marimba",String
"")
    ,(String
"pc",String
"sd",String
"side drum",String
"")
    ,(String
"pc",String
"sn.dm",String
"snare drum",String
"")
    ,(String
"pc",String
"sus.cym",String
"suspended cymbal",String
"")
    ,(String
"pc",String
"tamb",String
"tambourine",String
"")
    ,(String
"pc",String
"tam",String
"tam tam",String
"")
    ,(String
"pc",String
"t.bells",String
"tubular bells",String
"")
    ,(String
"pc",String
"td",String
"tenor drum",String
"")
    ,(String
"pc",String
"tri;tgl",String
"triangle",String
"")
    ,(String
"pc",String
"tm;timp",String
"timpani",String
"")
    ,(String
"pc",String
"tpl.bl",String
"temple blocks",String
"")
    ,(String
"pc",String
"vb;vib",String
"vibraphone",String
"")
    ,(String
"pc",String
"wdbl",String
"wood block",String
"")
    ,(String
"pc",String
"xyl",String
"xylophone",String
"")
    ,(String
"str",String
"va;vla",String
"viola",String
"")
    ,(String
"str",String
"vc;vlc",String
"cello;violoncello",String
"")
    ,(String
"str",String
"vn;vln",String
"violin",String
"")
    ,(String
"str",String
"cb",String
"contrabass",String
"")
    ,(String
"str",String
"db",String
"double bass",String
"")
    ,(String
"str",String
"vda",String
"viola d'amore",String
"")
    ,(String
"str",String
"b.gtr",String
"bass guitar",String
"")
    ,(String
"str",String
"e.gtr",String
"electric guitar",String
"")
    ,(String
"str",String
"gtr",String
"guitar",String
"")
    ,(String
"str",String
"",String
"lute",String
"")
    ,(String
"str",String
"zith",String
"zither",String
"")
    ,(String
"str",String
"hp",String
"harp",String
"")
    ,(String
"str",String
"dulc",String
"dulcimer",String
"")
    ,(String
"str",String
"mand",String
"mandolin",String
"")
    ,(String
"vc",String
"a;alt",String
"alto",String
"")
    ,(String
"vc",String
"b;bass",String
"bass",String
"")
    ,(String
"vc",String
"mz;mez",String
"mezzo-soprano",String
"")
    ,(String
"vc",String
"n;nar",String
"narrator",String
"")
    ,(String
"vc",String
"s;sop",String
"soprano",String
"")
    ,(String
"vc",String
"t;tn",String
"tenor",String
"")
    ,(String
"vc",String
"v;vc;voc",String
"voice",String
"")
    ,(String
"vc",String
"ch",String
"chorus",String
"")
    ,(String
"vc",String
"ctral",String
"contralto",String
"")
    ,(String
"vc",String
"ctrbs",String
"contrabass",String
"")
    ,(String
"vc",String
"bar",String
"baritone",String
"")
    ,(String
"vc",String
"b.bar",String
"bass baritone",String
"")
    ,(String
"ww",String
"b.cl",String
"bass clarinet",String
"")
    ,(String
"ww",String
"cb.cl",String
"contrabass clarinet",String
"")
    ,(String
"ww",String
"c;cl",String
"clarinet",String
"B♭")
    ,(String
"ww",String
"a.fl",String
"alto flute",String
"G")
    ,(String
"ww",String
"b.fl",String
"bass flute",String
"C")
    ,(String
"ww",String
"bn;bsn",String
"bassoon",String
"")
    ,(String
"ww",String
"f;fl",String
"flute",String
"")
    ,(String
"ww",String
"hb;htb",String
"hautbois",String
"")
    ,(String
"ww",String
"o;ob",String
"oboe",String
"")
    ,(String
"ww",String
"p;picc",String
"piccolo",String
"")
    ,(String
"ww",String
"ca",String
"cor anglais",String
"")
    ,(String
"ww",String
"c.bn",String
"contrabassoon",String
"")
    ,(String
"ww",String
"a.sax",String
"alto saxophone",String
"E♭")
    ,(String
"ww",String
"b.sax",String
"baritone saxophone",String
"E♭")
    ,(String
"ww",String
"b.ob",String
"bass oboe",String
"")
    ,(String
"ww",String
"cfg",String
"contrafagotto",String
"")
    ,(String
"ww",String
"eh;en.hn",String
"english horn",String
"")
    ,(String
"ww",String
"fg",String
"fagotto",String
"")
    ,(String
"ww",String
"rec",String
"recorder",String
"")
    ,(String
"ww",String
"sax",String
"saxophone",String
"")
    ,(String
"ww",String
"s.sax",String
"soprano saxophone",String
"B♭")
    ,(String
"ww",String
"t.sax",String
"tenor saxophone",String
"B♭")
    ,(String
"ww",String
"oca",String
"ocarina",String
"")
    ]

-- | (family,[abbreviations],[names],[transpositions])
instrument_db :: [(String,[String],[String],[String])]
instrument_db :: [(String, [String], [String], [String])]
instrument_db =
    let sep :: String -> [String]
sep = forall a. Eq a => [a] -> [a] -> [[a]]
splitOn String
";"
        f :: (a, String, String, String) -> (a, [String], [String], [String])
f (a
fm,String
ab,String
nm,String
tr) = (a
fm,String -> [String]
sep String
ab,String -> [String]
sep String
nm,String -> [String]
sep String
tr)
    in forall a b. (a -> b) -> [a] -> [b]
map forall {a}.
(a, String, String, String) -> (a, [String], [String], [String])
f [(String, String, String, String)]
instrument_db'