-- | Constants names for notes.  /eses/ indicates double
-- flat, /eseh/ three quarter tone flat, /es/ flat, /eh/ quarter tone
-- flat, /ih/ quarter tone sharp, /is/ sharp, /isih/ three quarter
-- tone sharp and /isis/ double sharp.
module Music.Theory.Pitch.Note.Name where

import Music.Theory.Pitch.Note

ceses,deses,eeses,feses,geses,aeses,beses :: (Note,Alteration)
ceses :: (Note, Alteration)
ceses = (Note
C,Alteration
DoubleFlat)
deses :: (Note, Alteration)
deses = (Note
D,Alteration
DoubleFlat)
eeses :: (Note, Alteration)
eeses = (Note
E,Alteration
DoubleFlat)
feses :: (Note, Alteration)
feses = (Note
F,Alteration
DoubleFlat)
geses :: (Note, Alteration)
geses = (Note
G,Alteration
DoubleFlat)
aeses :: (Note, Alteration)
aeses = (Note
A,Alteration
DoubleFlat)
beses :: (Note, Alteration)
beses = (Note
B,Alteration
DoubleFlat)

ceseh,deseh,eeseh,feseh,geseh,aeseh,beseh :: (Note,Alteration)
ceseh :: (Note, Alteration)
ceseh = (Note
C,Alteration
ThreeQuarterToneFlat)
deseh :: (Note, Alteration)
deseh = (Note
D,Alteration
ThreeQuarterToneFlat)
eeseh :: (Note, Alteration)
eeseh = (Note
E,Alteration
ThreeQuarterToneFlat)
feseh :: (Note, Alteration)
feseh = (Note
F,Alteration
ThreeQuarterToneFlat)
geseh :: (Note, Alteration)
geseh = (Note
G,Alteration
ThreeQuarterToneFlat)
aeseh :: (Note, Alteration)
aeseh = (Note
A,Alteration
ThreeQuarterToneFlat)
beseh :: (Note, Alteration)
beseh = (Note
B,Alteration
ThreeQuarterToneFlat)

ces,des,ees,fes,ges,aes,bes :: (Note,Alteration)
ces :: (Note, Alteration)
ces = (Note
C,Alteration
Flat)
des :: (Note, Alteration)
des = (Note
D,Alteration
Flat)
ees :: (Note, Alteration)
ees = (Note
E,Alteration
Flat)
fes :: (Note, Alteration)
fes = (Note
F,Alteration
Flat)
ges :: (Note, Alteration)
ges = (Note
G,Alteration
Flat)
aes :: (Note, Alteration)
aes = (Note
A,Alteration
Flat)
bes :: (Note, Alteration)
bes = (Note
B,Alteration
Flat)

ceh,deh,eeh,feh,geh,aeh,beh :: (Note,Alteration)
ceh :: (Note, Alteration)
ceh = (Note
C,Alteration
QuarterToneFlat)
deh :: (Note, Alteration)
deh = (Note
D,Alteration
QuarterToneFlat)
eeh :: (Note, Alteration)
eeh = (Note
E,Alteration
QuarterToneFlat)
feh :: (Note, Alteration)
feh = (Note
F,Alteration
QuarterToneFlat)
geh :: (Note, Alteration)
geh = (Note
G,Alteration
QuarterToneFlat)
aeh :: (Note, Alteration)
aeh = (Note
A,Alteration
QuarterToneFlat)
beh :: (Note, Alteration)
beh = (Note
B,Alteration
QuarterToneFlat)

c,d,e,f,g,a,b :: (Note,Alteration)
c :: (Note, Alteration)
c = (Note
C,Alteration
Natural)
d :: (Note, Alteration)
d = (Note
D,Alteration
Natural)
e :: (Note, Alteration)
e = (Note
E,Alteration
Natural)
f :: (Note, Alteration)
f = (Note
F,Alteration
Natural)
g :: (Note, Alteration)
g = (Note
G,Alteration
Natural)
a :: (Note, Alteration)
a = (Note
A,Alteration
Natural)
b :: (Note, Alteration)
b = (Note
B,Alteration
Natural)

cih,dih,eih,fih,gih,aih,bih :: (Note,Alteration)
cih :: (Note, Alteration)
cih = (Note
C,Alteration
QuarterToneSharp)
dih :: (Note, Alteration)
dih = (Note
D,Alteration
QuarterToneSharp)
eih :: (Note, Alteration)
eih = (Note
E,Alteration
QuarterToneSharp)
fih :: (Note, Alteration)
fih = (Note
F,Alteration
QuarterToneSharp)
gih :: (Note, Alteration)
gih = (Note
G,Alteration
QuarterToneSharp)
aih :: (Note, Alteration)
aih = (Note
A,Alteration
QuarterToneSharp)
bih :: (Note, Alteration)
bih = (Note
B,Alteration
QuarterToneSharp)

cis,dis,eis,fis,gis,ais,bis :: (Note,Alteration)
cis :: (Note, Alteration)
cis = (Note
C,Alteration
Sharp)
dis :: (Note, Alteration)
dis = (Note
D,Alteration
Sharp)
eis :: (Note, Alteration)
eis = (Note
E,Alteration
Sharp)
fis :: (Note, Alteration)
fis = (Note
F,Alteration
Sharp)
gis :: (Note, Alteration)
gis = (Note
G,Alteration
Sharp)
ais :: (Note, Alteration)
ais = (Note
A,Alteration
Sharp)
bis :: (Note, Alteration)
bis = (Note
B,Alteration
Sharp)

cisih,disih,eisih,fisih,gisih,aisih,bisih :: (Note,Alteration)
cisih :: (Note, Alteration)
cisih = (Note
C,Alteration
ThreeQuarterToneSharp)
disih :: (Note, Alteration)
disih = (Note
D,Alteration
ThreeQuarterToneSharp)
eisih :: (Note, Alteration)
eisih = (Note
E,Alteration
ThreeQuarterToneSharp)
fisih :: (Note, Alteration)
fisih = (Note
F,Alteration
ThreeQuarterToneSharp)
gisih :: (Note, Alteration)
gisih = (Note
G,Alteration
ThreeQuarterToneSharp)
aisih :: (Note, Alteration)
aisih = (Note
A,Alteration
ThreeQuarterToneSharp)
bisih :: (Note, Alteration)
bisih = (Note
B,Alteration
ThreeQuarterToneSharp)

cisis,disis,eisis,fisis,gisis,aisis,bisis :: (Note,Alteration)
cisis :: (Note, Alteration)
cisis = (Note
C,Alteration
DoubleSharp)
disis :: (Note, Alteration)
disis = (Note
D,Alteration
DoubleSharp)
eisis :: (Note, Alteration)
eisis = (Note
E,Alteration
DoubleSharp)
fisis :: (Note, Alteration)
fisis = (Note
F,Alteration
DoubleSharp)
gisis :: (Note, Alteration)
gisis = (Note
G,Alteration
DoubleSharp)
aisis :: (Note, Alteration)
aisis = (Note
A,Alteration
DoubleSharp)
bisis :: (Note, Alteration)
bisis = (Note
B,Alteration
DoubleSharp)