module Music.LilyPond.Light.Constant.NoteName where import Music.LilyPond.Light.Model import Music.Theory.Pitch -- * Notes mk_note :: Note_T -> Alteration_T -> Octave -> Music mk_note n a o = Note (Pitch n a o) Nothing [] c1,d1,e1,f1,g1,a1,b1 :: Music c1 = mk_note C Natural 1 d1 = mk_note D Natural 1 e1 = mk_note E Natural 1 f1 = mk_note F Natural 1 g1 = mk_note G Natural 1 a1 = mk_note A Natural 1 b1 = mk_note B Natural 1 ces1,des1,ees1,fes1,ges1,aes1,bes1 :: Music ces1 = mk_note C Flat 1 des1 = mk_note D Flat 1 ees1 = mk_note E Flat 1 fes1 = mk_note F Flat 1 ges1 = mk_note G Flat 1 aes1 = mk_note A Flat 1 bes1 = mk_note B Flat 1 cis1,dis1,eis1,fis1,gis1,ais1,bis1 :: Music cis1 = mk_note C Sharp 1 dis1 = mk_note D Sharp 1 eis1 = mk_note E Sharp 1 fis1 = mk_note F Sharp 1 gis1 = mk_note G Sharp 1 ais1 = mk_note A Sharp 1 bis1 = mk_note B Sharp 1 c2,d2,e2,f2,g2,a2,b2 :: Music c2 = mk_note C Natural 2 d2 = mk_note D Natural 2 e2 = mk_note E Natural 2 f2 = mk_note F Natural 2 g2 = mk_note G Natural 2 a2 = mk_note A Natural 2 b2 = mk_note B Natural 2 ces2,des2,ees2,fes2,ges2,aes2,bes2 :: Music ces2 = mk_note C Flat 2 des2 = mk_note D Flat 2 ees2 = mk_note E Flat 2 fes2 = mk_note F Flat 2 ges2 = mk_note G Flat 2 aes2 = mk_note A Flat 2 bes2 = mk_note B Flat 2 cis2,dis2,eis2,fis2,gis2,ais2,bis2 :: Music cis2 = mk_note C Sharp 2 dis2 = mk_note D Sharp 2 eis2 = mk_note E Sharp 2 fis2 = mk_note F Sharp 2 gis2 = mk_note G Sharp 2 ais2 = mk_note A Sharp 2 bis2 = mk_note B Sharp 2 cisis2,disis2,eisis2,fisis2,gisis2,aisis2,bisis2 :: Music cisis2 = mk_note C DoubleSharp 2 disis2 = mk_note D DoubleSharp 2 eisis2 = mk_note E DoubleSharp 2 fisis2 = mk_note F DoubleSharp 2 gisis2 = mk_note G DoubleSharp 2 aisis2 = mk_note A DoubleSharp 2 bisis2 = mk_note B DoubleSharp 2 c3,d3,e3,f3,g3,a3,b3 :: Music c3 = mk_note C Natural 3 d3 = mk_note D Natural 3 e3 = mk_note E Natural 3 f3 = mk_note F Natural 3 g3 = mk_note G Natural 3 a3 = mk_note A Natural 3 b3 = mk_note B Natural 3 ces3,des3,ees3,fes3,ges3,aes3,bes3 :: Music ces3 = mk_note C Flat 3 des3 = mk_note D Flat 3 ees3 = mk_note E Flat 3 fes3 = mk_note F Flat 3 ges3 = mk_note G Flat 3 aes3 = mk_note A Flat 3 bes3 = mk_note B Flat 3 cis3,dis3,eis3,fis3,gis3,ais3,bis3 :: Music cis3 = mk_note C Sharp 3 dis3 = mk_note D Sharp 3 eis3 = mk_note E Sharp 3 fis3 = mk_note F Sharp 3 gis3 = mk_note G Sharp 3 ais3 = mk_note A Sharp 3 bis3 = mk_note B Sharp 3 cisis3,disis3,eisis3,fisis3,gisis3,aisis3,bisis3 :: Music cisis3 = mk_note C DoubleSharp 3 disis3 = mk_note D DoubleSharp 3 eisis3 = mk_note E DoubleSharp 3 fisis3 = mk_note F DoubleSharp 3 gisis3 = mk_note G DoubleSharp 3 aisis3 = mk_note A DoubleSharp 3 bisis3 = mk_note B DoubleSharp 3 ceseh3,deseh3,eeseh3,feseh3,geseh3,aeseh3,beseh3 :: Music ceseh3 = mk_note C ThreeQuarterToneFlat 3 deseh3 = mk_note D ThreeQuarterToneFlat 3 eeseh3 = mk_note E ThreeQuarterToneFlat 3 feseh3 = mk_note F ThreeQuarterToneFlat 3 geseh3 = mk_note G ThreeQuarterToneFlat 3 aeseh3 = mk_note A ThreeQuarterToneFlat 3 beseh3 = mk_note B ThreeQuarterToneFlat 3 ceh3,deh3,eeh3,feh3,geh3,aeh3,beh3 :: Music ceh3 = mk_note C QuarterToneFlat 3 deh3 = mk_note D QuarterToneFlat 3 eeh3 = mk_note E QuarterToneFlat 3 feh3 = mk_note F QuarterToneFlat 3 geh3 = mk_note G QuarterToneFlat 3 aeh3 = mk_note A QuarterToneFlat 3 beh3 = mk_note B QuarterToneFlat 3 cih3,dih3,eih3,fih3,gih3,aih3,bih3 :: Music cih3 = mk_note C QuarterToneSharp 3 dih3 = mk_note D QuarterToneSharp 3 eih3 = mk_note E QuarterToneSharp 3 fih3 = mk_note F QuarterToneSharp 3 gih3 = mk_note G QuarterToneSharp 3 aih3 = mk_note A QuarterToneSharp 3 bih3 = mk_note B QuarterToneSharp 3 cisih3,disih3,eisih3,fisih3,gisih3,aisih3,bisih3 :: Music cisih3 = mk_note C ThreeQuarterToneSharp 3 disih3 = mk_note D ThreeQuarterToneSharp 3 eisih3 = mk_note E ThreeQuarterToneSharp 3 fisih3 = mk_note F ThreeQuarterToneSharp 3 gisih3 = mk_note G ThreeQuarterToneSharp 3 aisih3 = mk_note A ThreeQuarterToneSharp 3 bisih3 = mk_note B ThreeQuarterToneSharp 3 c4,d4,e4,f4,g4,a4,b4 :: Music c4 = mk_note C Natural 4 d4 = mk_note D Natural 4 e4 = mk_note E Natural 4 f4 = mk_note F Natural 4 g4 = mk_note G Natural 4 a4 = mk_note A Natural 4 b4 = mk_note B Natural 4 ces4,des4,ees4,fes4,ges4,aes4,bes4 :: Music ces4 = mk_note C Flat 4 des4 = mk_note D Flat 4 ees4 = mk_note E Flat 4 fes4 = mk_note F Flat 4 ges4 = mk_note G Flat 4 aes4 = mk_note A Flat 4 bes4 = mk_note B Flat 4 cis4,dis4,eis4,fis4,gis4,ais4,bis4 :: Music cis4 = mk_note C Sharp 4 dis4 = mk_note D Sharp 4 eis4 = mk_note E Sharp 4 fis4 = mk_note F Sharp 4 gis4 = mk_note G Sharp 4 ais4 = mk_note A Sharp 4 bis4 = mk_note B Sharp 4 ceses4,deses4,eeses4,feses4,geses4,aeses4,beses4 :: Music ceses4 = mk_note C DoubleFlat 4 deses4 = mk_note D DoubleFlat 4 eeses4 = mk_note E DoubleFlat 4 feses4 = mk_note F DoubleFlat 4 geses4 = mk_note G DoubleFlat 4 aeses4 = mk_note A DoubleFlat 4 beses4 = mk_note B DoubleFlat 4 cisis4,disis4,eisis4,fisis4,gisis4,aisis4,bisis4 :: Music cisis4 = mk_note C DoubleSharp 4 disis4 = mk_note D DoubleSharp 4 eisis4 = mk_note E DoubleSharp 4 fisis4 = mk_note F DoubleSharp 4 gisis4 = mk_note G DoubleSharp 4 aisis4 = mk_note A DoubleSharp 4 bisis4 = mk_note B DoubleSharp 4 ceseh4,deseh4,eeseh4,feseh4,geseh4,aeseh4,beseh4 :: Music ceseh4 = mk_note C ThreeQuarterToneFlat 4 deseh4 = mk_note D ThreeQuarterToneFlat 4 eeseh4 = mk_note E ThreeQuarterToneFlat 4 feseh4 = mk_note F ThreeQuarterToneFlat 4 geseh4 = mk_note G ThreeQuarterToneFlat 4 aeseh4 = mk_note A ThreeQuarterToneFlat 4 beseh4 = mk_note B ThreeQuarterToneFlat 4 ceh4,deh4,eeh4,feh4,geh4,aeh4,beh4 :: Music ceh4 = mk_note C QuarterToneFlat 4 deh4 = mk_note D QuarterToneFlat 4 eeh4 = mk_note E QuarterToneFlat 4 feh4 = mk_note F QuarterToneFlat 4 geh4 = mk_note G QuarterToneFlat 4 aeh4 = mk_note A QuarterToneFlat 4 beh4 = mk_note B QuarterToneFlat 4 cih4,dih4,eih4,fih4,gih4,aih4,bih4 :: Music cih4 = mk_note C QuarterToneSharp 4 dih4 = mk_note D QuarterToneSharp 4 eih4 = mk_note E QuarterToneSharp 4 fih4 = mk_note F QuarterToneSharp 4 gih4 = mk_note G QuarterToneSharp 4 aih4 = mk_note A QuarterToneSharp 4 bih4 = mk_note B QuarterToneSharp 4 cisih4,disih4,eisih4,fisih4,gisih4,aisih4,bisih4 :: Music cisih4 = mk_note C ThreeQuarterToneSharp 4 disih4 = mk_note D ThreeQuarterToneSharp 4 eisih4 = mk_note E ThreeQuarterToneSharp 4 fisih4 = mk_note F ThreeQuarterToneSharp 4 gisih4 = mk_note G ThreeQuarterToneSharp 4 aisih4 = mk_note A ThreeQuarterToneSharp 4 bisih4 = mk_note B ThreeQuarterToneSharp 4 c5,d5,e5,f5,g5,a5,b5 :: Music c5 = mk_note C Natural 5 d5 = mk_note D Natural 5 e5 = mk_note E Natural 5 f5 = mk_note F Natural 5 g5 = mk_note G Natural 5 a5 = mk_note A Natural 5 b5 = mk_note B Natural 5 ces5,des5,ees5,fes5,ges5,aes5,bes5 :: Music ces5 = mk_note C Flat 5 des5 = mk_note D Flat 5 ees5 = mk_note E Flat 5 fes5 = mk_note F Flat 5 ges5 = mk_note G Flat 5 aes5 = mk_note A Flat 5 bes5 = mk_note B Flat 5 cis5,dis5,eis5,fis5,gis5,ais5,bis5 :: Music cis5 = mk_note C Sharp 5 dis5 = mk_note D Sharp 5 eis5 = mk_note E Sharp 5 fis5 = mk_note F Sharp 5 gis5 = mk_note G Sharp 5 ais5 = mk_note A Sharp 5 bis5 = mk_note B Sharp 5 ceses5,deses5,eeses5,feses5,geses5,aeses5,beses5 :: Music ceses5 = mk_note C DoubleFlat 5 deses5 = mk_note D DoubleFlat 5 eeses5 = mk_note E DoubleFlat 5 feses5 = mk_note F DoubleFlat 5 geses5 = mk_note G DoubleFlat 5 aeses5 = mk_note A DoubleFlat 5 beses5 = mk_note B DoubleFlat 5 cisis5,disis5,eisis5,fisis5,gisis5,aisis5,bisis5 :: Music cisis5 = mk_note C DoubleSharp 5 disis5 = mk_note D DoubleSharp 5 eisis5 = mk_note E DoubleSharp 5 fisis5 = mk_note F DoubleSharp 5 gisis5 = mk_note G DoubleSharp 5 aisis5 = mk_note A DoubleSharp 5 bisis5 = mk_note B DoubleSharp 5 ceseh5,deseh5,eeseh5,feseh5,geseh5,aeseh5,beseh5 :: Music ceseh5 = mk_note C ThreeQuarterToneFlat 5 deseh5 = mk_note D ThreeQuarterToneFlat 5 eeseh5 = mk_note E ThreeQuarterToneFlat 5 feseh5 = mk_note F ThreeQuarterToneFlat 5 geseh5 = mk_note G ThreeQuarterToneFlat 5 aeseh5 = mk_note A ThreeQuarterToneFlat 5 beseh5 = mk_note B ThreeQuarterToneFlat 5 ceh5,deh5,eeh5,feh5,geh5,aeh5,beh5 :: Music ceh5 = mk_note C QuarterToneFlat 5 deh5 = mk_note D QuarterToneFlat 5 eeh5 = mk_note E QuarterToneFlat 5 feh5 = mk_note F QuarterToneFlat 5 geh5 = mk_note G QuarterToneFlat 5 aeh5 = mk_note A QuarterToneFlat 5 beh5 = mk_note B QuarterToneFlat 5 cih5,dih5,eih5,fih5,gih5,aih5,bih5 :: Music cih5 = mk_note C QuarterToneSharp 5 dih5 = mk_note D QuarterToneSharp 5 eih5 = mk_note E QuarterToneSharp 5 fih5 = mk_note F QuarterToneSharp 5 gih5 = mk_note G QuarterToneSharp 5 aih5 = mk_note A QuarterToneSharp 5 bih5 = mk_note B QuarterToneSharp 5 cisih5,disih5,eisih5,fisih5,gisih5,aisih5,bisih5 :: Music cisih5 = mk_note C ThreeQuarterToneSharp 5 disih5 = mk_note D ThreeQuarterToneSharp 5 eisih5 = mk_note E ThreeQuarterToneSharp 5 fisih5 = mk_note F ThreeQuarterToneSharp 5 gisih5 = mk_note G ThreeQuarterToneSharp 5 aisih5 = mk_note A ThreeQuarterToneSharp 5 bisih5 = mk_note B ThreeQuarterToneSharp 5 c6,d6,e6,f6,g6,a6,b6 :: Music c6 = mk_note C Natural 6 d6 = mk_note D Natural 6 e6 = mk_note E Natural 6 f6 = mk_note F Natural 6 g6 = mk_note G Natural 6 a6 = mk_note A Natural 6 b6 = mk_note B Natural 6 ces6,des6,ees6,fes6,ges6,aes6,bes6 :: Music ces6 = mk_note C Flat 6 des6 = mk_note D Flat 6 ees6 = mk_note E Flat 6 fes6 = mk_note F Flat 6 ges6 = mk_note G Flat 6 aes6 = mk_note A Flat 6 bes6 = mk_note B Flat 6 cis6,dis6,eis6,fis6,gis6,ais6,bis6 :: Music cis6 = mk_note C Sharp 6 dis6 = mk_note D Sharp 6 eis6 = mk_note E Sharp 6 fis6 = mk_note F Sharp 6 gis6 = mk_note G Sharp 6 ais6 = mk_note A Sharp 6 bis6 = mk_note B Sharp 6 ceseh6,deseh6,eeseh6,feseh6,geseh6,aeseh6,beseh6 :: Music ceseh6 = mk_note C ThreeQuarterToneFlat 6 deseh6 = mk_note D ThreeQuarterToneFlat 6 eeseh6 = mk_note E ThreeQuarterToneFlat 6 feseh6 = mk_note F ThreeQuarterToneFlat 6 geseh6 = mk_note G ThreeQuarterToneFlat 6 aeseh6 = mk_note A ThreeQuarterToneFlat 6 beseh6 = mk_note B ThreeQuarterToneFlat 6 ceh6,deh6,eeh6,feh6,geh6,aeh6,beh6 :: Music ceh6 = mk_note C QuarterToneFlat 6 deh6 = mk_note D QuarterToneFlat 6 eeh6 = mk_note E QuarterToneFlat 6 feh6 = mk_note F QuarterToneFlat 6 geh6 = mk_note G QuarterToneFlat 6 aeh6 = mk_note A QuarterToneFlat 6 beh6 = mk_note B QuarterToneFlat 6 cih6,dih6,eih6,fih6,gih6,aih6,bih6 :: Music cih6 = mk_note C QuarterToneSharp 6 dih6 = mk_note D QuarterToneSharp 6 eih6 = mk_note E QuarterToneSharp 6 fih6 = mk_note F QuarterToneSharp 6 gih6 = mk_note G QuarterToneSharp 6 aih6 = mk_note A QuarterToneSharp 6 bih6 = mk_note B QuarterToneSharp 6 cisih6,disih6,eisih6,fisih6,gisih6,aisih6,bisih6 :: Music cisih6 = mk_note C ThreeQuarterToneSharp 6 disih6 = mk_note D ThreeQuarterToneSharp 6 eisih6 = mk_note E ThreeQuarterToneSharp 6 fisih6 = mk_note F ThreeQuarterToneSharp 6 gisih6 = mk_note G ThreeQuarterToneSharp 6 aisih6 = mk_note A ThreeQuarterToneSharp 6 bisih6 = mk_note B ThreeQuarterToneSharp 6 c7,d7,e7,f7,g7,a7,b7 :: Music c7 = mk_note C Natural 7 d7 = mk_note D Natural 7 e7 = mk_note E Natural 7 f7 = mk_note F Natural 7 g7 = mk_note G Natural 7 a7 = mk_note A Natural 7 b7 = mk_note B Natural 7 ces7,des7,ees7,fes7,ges7,aes7,bes7 :: Music ces7 = mk_note C Flat 7 des7 = mk_note D Flat 7 ees7 = mk_note E Flat 7 fes7 = mk_note F Flat 7 ges7 = mk_note G Flat 7 aes7 = mk_note A Flat 7 bes7 = mk_note B Flat 7 cis7,dis7,eis7,fis7,gis7,ais7,bis7 :: Music cis7 = mk_note C Sharp 7 dis7 = mk_note D Sharp 7 eis7 = mk_note E Sharp 7 fis7 = mk_note F Sharp 7 gis7 = mk_note G Sharp 7 ais7 = mk_note A Sharp 7 bis7 = mk_note B Sharp 7