X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fdeutsch.ly;h=6978b17e1c0c4f20ed1dcd962ba9a4ba0a591c1c;hb=55c44937d1ce8324bb259095e5d404f44013b99e;hp=5a4beb4e0c31b0591d830ba88264192ee2aa0222;hpb=305fb79f24233b261b5372168f76520f84d2ea87;p=lilypond.git diff --git a/ly/deutsch.ly b/ly/deutsch.ly index 5a4beb4e0c..6978b17e1c 100644 --- a/ly/deutsch.ly +++ b/ly/deutsch.ly @@ -1,52 +1,119 @@ -% common german names for notes. "es" means flat, "is" means sharp -% -% by Roland Meier -% based on swedish.ly by Mats Bengtsson. - -% 1999/06/09 Bjoern Jacke -% added asas and marked ases as `unusual' - - -\notenames #'( - (ceses . ( -1 0 -2 )) - (ces . ( -1 0 -1 )) - (c . ( -1 0 0 )) - (cis . ( -1 0 1 )) - (cisis . ( -1 0 2 )) - (deses . ( -1 1 -2 )) - (des . ( -1 1 -1 )) - (d . ( -1 1 0 )) - (dis . ( -1 1 1 )) - (disis . ( -1 1 2 )) - (eses . ( -1 2 -2 )) - (es . ( -1 2 -1 )) - (e . ( -1 2 0 )) - (eis . ( -1 2 1 )) - (eisis . ( -1 2 2 )) - (feses . ( -1 3 -2 )) - (fes . ( -1 3 -1 )) - (f . ( -1 3 0 )) - (fis . ( -1 3 1 )) - (fisis . ( -1 3 2 )) - (geses . ( -1 4 -2 )) - (ges . ( -1 4 -1 )) - (g . ( -1 4 0 )) - (gis . ( -1 4 1 )) - (gisis . ( -1 4 2 )) - (asas . ( -1 5 -2 )) - (ases . ( -1 5 -2 )) ; non-standard name for asas - (as . ( -1 5 -1 )) - (a . ( -1 5 0 )) - (ais . ( -1 5 1 )) - (aisis . ( -1 5 2 )) - (heses . ( -1 6 -2 )) - (b . ( -1 6 -1 )) - (h . ( -1 6 0 )) - (his . ( -1 6 1 )) - (hisis . ( -1 6 2 )) -) +%%%% common German names for notes +%%%% This file is part of LilyPond, the GNU music typesetter. +%%%% +%%%% Copyright (C) 1997--2010 Roland Meier +%%%% Bjoern Jacke +%%%% (added asas; added comment to ases) +%%%% +%%%% LilyPond is free software: you can redistribute it and/or modify +%%%% it under the terms of the GNU General Public License as published by +%%%% the Free Software Foundation, either version 3 of the License, or +%%%% (at your option) any later version. +%%%% +%%%% LilyPond is distributed in the hope that it will be useful, +%%%% but WITHOUT ANY WARRANTY; without even the implied warranty of +%%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +%%%% GNU General Public License for more details. +%%%% +%%%% You should have received a copy of the GNU General Public License +%%%% along with LilyPond. If not, see . + +\version "2.12.0" + +%{ + + es = flat + eses = double-flat + eh = quarter-tone flat + eseh = three-quarter-tones flat + + is = sharp + isis = double-sharp + ih = quarter-tone sharp + isih = three-quarter-tones sharp + + English: c d e f g a bf b + German: c d e f g a b h + + Adapted from svenska.ly + +%} +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)) + + (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)) +) +pitchnames = \pitchnamesDeutsch -\version "1.3.59"; +#(ly:parser-set-note-names parser pitchnames)