X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fdeutsch.ly;h=747fd529219ff4ce4d048c1ca204e6ba215cde71;hb=def21b306e2b8fa2d5630fab0878e9922e197f0c;hp=a1aa1268910386b0bfadcf534c966cab493edd6e;hpb=0d17e9c759bd61c9b20a7c4d9941a412c2a53f5f;p=lilypond.git diff --git a/ly/deutsch.ly b/ly/deutsch.ly index a1aa126891..747fd52921 100644 --- a/ly/deutsch.ly +++ b/ly/deutsch.ly @@ -1,97 +1,89 @@ % common german names for notes. "es" means flat, "is" means sharp % -% by Roland Meier +% by Roland Meier <> % based on swedish.ly by Mats Bengtsson. -% 1999/06/09 Bjoern Jacke +% 1999/06/09 Bjoern Jacke <> % added asas and marked ases as `unusual' -% -% Please note that, while these names are used to enter *notes*, they -% actually are *melodic*s, i.e. they represent a pitch solely. Notes -% have a rhythmic part too. This is the reason that we don't write 'note { .. }' -% -\notenames { - ceses = \musicalpitch { -1 0 -2 } - ces = \musicalpitch { -1 0 -1 } - c = \musicalpitch { -1 0 0 } - cis = \musicalpitch { -1 0 1 } - cisis = \musicalpitch { -1 0 2 } - deses = \musicalpitch { -1 1 -2 } - des = \musicalpitch { -1 1 -1 } - d = \musicalpitch { -1 1 0 } - dis = \musicalpitch { -1 1 1 } - disis = \musicalpitch { -1 1 2 } - eses = \musicalpitch { -1 2 -2 } - es = \musicalpitch { -1 2 -1 } - e = \musicalpitch { -1 2 0 } - eis = \musicalpitch { -1 2 1 } - eisis = \musicalpitch { -1 2 2 } - feses = \musicalpitch { -1 3 -2 } - fes = \musicalpitch { -1 3 -1 } - f = \musicalpitch { -1 3 0 } - fis = \musicalpitch { -1 3 1 } - fisis = \musicalpitch { -1 3 2 } - geses = \musicalpitch { -1 4 -2 } - ges = \musicalpitch { -1 4 -1 } - g = \musicalpitch { -1 4 0 } - gis = \musicalpitch { -1 4 1 } - gisis = \musicalpitch { -1 4 2 } - asas = \musicalpitch { -1 5 -2 } - ases = \musicalpitch { -1 5 -2 } % non-standard name for asas - as = \musicalpitch { -1 5 -1 } - a = \musicalpitch { -1 5 0 } - ais = \musicalpitch { -1 5 1 } - aisis = \musicalpitch { -1 5 2 } - heses = \musicalpitch { -1 6 -2 } - b = \musicalpitch { -1 6 -1 } - h = \musicalpitch { -1 6 0 } - his = \musicalpitch { -1 6 1 } - hisis = \musicalpitch { -1 6 2 } +pitchnamesDeutsch = #`( + (ceses . ,(ly:make-pitch -1 0 DOUBLE-FLAT)) + (ceseh . ,(ly:make-pitch -1 0 THREE-Q-FLAT)) + (ces . ,(ly:make-pitch -1 0 FLAT)) + (ceh . ,(ly:make-pitch -1 0 SEMI-FLAT)) + (c . ,(ly:make-pitch -1 0 NATURAL)) + (cih . ,(ly:make-pitch -1 0 SEMI-SHARP)) + (cis . ,(ly:make-pitch -1 0 SHARP)) + (cisih . ,(ly:make-pitch -1 0 THREE-Q-SHARP)) + (cisis . ,(ly:make-pitch -1 0 DOUBLE-SHARP)) + + (deses . ,(ly:make-pitch -1 1 DOUBLE-FLAT)) + (deseh . ,(ly:make-pitch -1 1 THREE-Q-FLAT)) + (des . ,(ly:make-pitch -1 1 FLAT)) + (deh . ,(ly:make-pitch -1 1 SEMI-FLAT)) + (d . ,(ly:make-pitch -1 1 NATURAL)) + (dih . ,(ly:make-pitch -1 1 SEMI-SHARP)) + (dis . ,(ly:make-pitch -1 1 SHARP)) + (disih . ,(ly:make-pitch -1 1 THREE-Q-SHARP)) + (disis . ,(ly:make-pitch -1 1 DOUBLE-SHARP)) + + (eses . ,(ly:make-pitch -1 2 DOUBLE-FLAT)) + (eseh . ,(ly:make-pitch -1 2 THREE-Q-FLAT)) + (es . ,(ly:make-pitch -1 2 FLAT)) + (eeh . ,(ly:make-pitch -1 2 SEMI-FLAT)) + (e . ,(ly:make-pitch -1 2 NATURAL)) + (eih . ,(ly:make-pitch -1 2 SEMI-SHARP)) + (eis . ,(ly:make-pitch -1 2 SHARP)) + (eisih . ,(ly:make-pitch -1 2 THREE-Q-SHARP)) + (eisis . ,(ly:make-pitch -1 2 DOUBLE-SHARP)) + + (feses . ,(ly:make-pitch -1 3 DOUBLE-FLAT)) + (feseh . ,(ly:make-pitch -1 3 THREE-Q-FLAT)) + (fes . ,(ly:make-pitch -1 3 FLAT)) + (feh . ,(ly:make-pitch -1 3 SEMI-FLAT)) + (f . ,(ly:make-pitch -1 3 NATURAL)) + (fih . ,(ly:make-pitch -1 3 SEMI-SHARP)) + (fis . ,(ly:make-pitch -1 3 SHARP)) + (fisih . ,(ly:make-pitch -1 3 THREE-Q-SHARP)) + (fisis . ,(ly:make-pitch -1 3 DOUBLE-SHARP)) + + (geses . ,(ly:make-pitch -1 4 DOUBLE-FLAT)) + (geseh . ,(ly:make-pitch -1 4 THREE-Q-FLAT)) + (ges . ,(ly:make-pitch -1 4 FLAT)) + (geh . ,(ly:make-pitch -1 4 SEMI-FLAT)) + (g . ,(ly:make-pitch -1 4 NATURAL)) + (gih . ,(ly:make-pitch -1 4 SEMI-SHARP)) + (gis . ,(ly:make-pitch -1 4 SHARP)) + (gisih . ,(ly:make-pitch -1 4 THREE-Q-SHARP)) + (gisis . ,(ly:make-pitch -1 4 DOUBLE-SHARP)) + (asas . ,(ly:make-pitch -1 5 DOUBLE-FLAT)) + (asah . ,(ly:make-pitch -1 5 THREE-Q-FLAT)) + (ases . ,(ly:make-pitch -1 5 DOUBLE-FLAT)) ;;non-standard name for asas + (aseh . ,(ly:make-pitch -1 5 THREE-Q-FLAT)) + (as . ,(ly:make-pitch -1 5 FLAT)) + (aeh . ,(ly:make-pitch -1 5 SEMI-FLAT)) + (a . ,(ly:make-pitch -1 5 NATURAL)) + (aih . ,(ly:make-pitch -1 5 SEMI-SHARP)) + (ais . ,(ly:make-pitch -1 5 SHARP)) + (aisih . ,(ly:make-pitch -1 5 THREE-Q-SHARP)) + (aisis . ,(ly:make-pitch -1 5 DOUBLE-SHARP)) - % - % upper case: 1 octave lower. - % + (heses . ,(ly:make-pitch -1 6 DOUBLE-FLAT)) + (heseh . ,(ly:make-pitch -1 6 THREE-Q-FLAT)) + (b . ,(ly:make-pitch -1 6 FLAT)) + (beh . ,(ly:make-pitch -1 6 SEMI-FLAT)) + (h . ,(ly:make-pitch -1 6 NATURAL)) + (hih . ,(ly:make-pitch -1 6 SEMI-SHARP)) + (his . ,(ly:make-pitch -1 6 SHARP)) + (hisih . ,(ly:make-pitch -1 6 THREE-Q-SHARP)) + (hisis . ,(ly:make-pitch -1 6 DOUBLE-SHARP)) +) - Ceses = \musicalpitch { -2 0 -2 } - Ces = \musicalpitch { -2 0 -1 } - C = \musicalpitch { -2 0 0 } - Cis = \musicalpitch { -2 0 1 } - Cisis = \musicalpitch { -2 0 2 } - Deses = \musicalpitch { -2 1 -2 } - Des = \musicalpitch { -2 1 -1 } - D = \musicalpitch { -2 1 0 } - Dis = \musicalpitch { -2 1 1 } - Disis = \musicalpitch { -2 1 2 } - Eses = \musicalpitch { -2 2 -2 } - Es = \musicalpitch { -2 2 -1 } - E = \musicalpitch { -2 2 0 } - Eis = \musicalpitch { -2 2 1 } - Eisis = \musicalpitch { -2 2 2 } - Feses = \musicalpitch { -2 3 -2 } - Fes = \musicalpitch { -2 3 -1 } - F = \musicalpitch { -2 3 0 } - Fis = \musicalpitch { -2 3 1 } - Fisis = \musicalpitch { -2 3 2 } - Geses = \musicalpitch { -2 4 -2 } - Ges = \musicalpitch { -2 4 -1 } - G = \musicalpitch { -2 4 0 } - Gis = \musicalpitch { -2 4 1 } - Gisis = \musicalpitch { -2 4 2 } - Asas = \musicalpitch { -2 5 -2 } - Ases = \musicalpitch { -2 5 -2 } % non-standard name for Asas - As = \musicalpitch { -2 5 -1 } - A = \musicalpitch { -2 5 0 } - Ais = \musicalpitch { -2 5 1 } - Aisis = \musicalpitch { -2 5 2 } - Heses = \musicalpitch { -2 6 -2 } - B = \musicalpitch { -2 6 -1 } - H = \musicalpitch { -2 6 0 } - His = \musicalpitch { -2 6 1 } - Hisis = \musicalpitch { -2 6 2 } +pitchnames = \pitchnamesDeutsch +\version "2.10.0" -} +#(ly:parser-set-note-names parser pitchnames)