+%%%% common Spanish names for notes
+%%%% This file is part of LilyPond, the GNU music typesetter.
+%%%%
+%%%% Copyright (C) 2002--2009 Carlos García Suárez <cgscqmp@terra.es>
+%%%% Maximiliano G. G. <mxgdvg@yahoo.it>
+%%%% (double-flats, double-sharps, quarter-tones, etc.)
+%%%%
+%%%% 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 <http://www.gnu.org/licenses/>.
+
+\version "2.12.0"
+
%{
- Common Spanish names for notes. "b" means flat (bemol), "s" means sharp (sostenido).
- Adapted from italiano.ly.
+ b = flat (bemol)
+ bb = double-flat
+ cb = quarter-tone flat (cuarto [de tono de] bemol)
+ tcb = three-quarter-tones flat (tres cuartos [de tonos de] bemol)
+
+ s = sharp (sostenido)
+ x = double-sharp
+ ss = double-sharp
+ cs = quarter-tone sharp (cuarto [de tono de] sostenido)
+ tcs = three-quarter-tones sharp (tres cuartos [de tonos de] sostenido)
- English: a b c d e f g
- Spanish: la si do re mi fa sol
+ English: c d e f g a b
+ Spanish: do re mi fa sol la si
+
+ Adapted from italiano.ly.
%}
-% contributed by Carlos García Suárez <cgscqmp@terra.es>
-
-
-% For using "sostingut" notation, which is also correct
-\pitchnames #`(
- (dobb . ,(make-pitch -1 0 -2 ))
- (dob . ,(make-pitch -1 0 -1 ))
- (do . ,(make-pitch -1 0 0 ))
- (dos . ,(make-pitch -1 0 1 ))
- (doss . ,(make-pitch -1 0 2 ))
-
- (rebb . ,(make-pitch -1 1 -2 ))
- (reb . ,(make-pitch -1 1 -1 ))
- (re . ,(make-pitch -1 1 0 ))
- (res . ,(make-pitch -1 1 1 ))
- (ress . ,(make-pitch -1 1 2 ))
-
- (mibb . ,(make-pitch -1 2 -2 ))
- (mib . ,(make-pitch -1 2 -1 ))
- (mi . ,(make-pitch -1 2 0 ))
- (mis . ,(make-pitch -1 2 1 ))
- (miss . ,(make-pitch -1 2 2 ))
-
- (fabb . ,(make-pitch -1 3 -2 ))
- (fab . ,(make-pitch -1 3 -1 ))
- (fa . ,(make-pitch -1 3 0 ))
- (fas . ,(make-pitch -1 3 1 ))
- (fass . ,(make-pitch -1 3 2 ))
-
- (solbb . ,(make-pitch -1 4 -2 ))
- (solb . ,(make-pitch -1 4 -1 ))
- (sol . ,(make-pitch -1 4 0 ))
- (sols . ,(make-pitch -1 4 1 ))
- (solss . ,(make-pitch -1 4 2 ))
-
- (labb . ,(make-pitch -1 5 -2 ))
- (lab . ,(make-pitch -1 5 -1 ))
- (la . ,(make-pitch -1 5 0 ))
- (las . ,(make-pitch -1 5 1 ))
- (lass . ,(make-pitch -1 5 2 ))
-
- (sibb . ,(make-pitch -1 6 -2 ))
- (sib . ,(make-pitch -1 6 -1 ))
- (si . ,(make-pitch -1 6 0 ))
- (sis . ,(make-pitch -1 6 1 ))
- (siss . ,(make-pitch -1 6 2 ))
-)
+pitchnamesEspanol = #`(
+ (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
+ (dotcb . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
+ (dob . ,(ly:make-pitch -1 0 FLAT))
+ (docb . ,(ly:make-pitch -1 0 SEMI-FLAT))
+ (do . ,(ly:make-pitch -1 0 NATURAL))
+ (docs . ,(ly:make-pitch -1 0 SEMI-SHARP))
+ (dos . ,(ly:make-pitch -1 0 SHARP))
+ (dotcs . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
+ (doss . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
+ (dox . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
+
+ (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
+ (retcb . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
+ (reb . ,(ly:make-pitch -1 1 FLAT))
+ (recb . ,(ly:make-pitch -1 1 SEMI-FLAT))
+ (re . ,(ly:make-pitch -1 1 NATURAL))
+ (recs . ,(ly:make-pitch -1 1 SEMI-SHARP))
+ (res . ,(ly:make-pitch -1 1 SHARP))
+ (retcs . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
+ (ress . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
+ (rex . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
+ (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
+ (mitcb . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
+ (mib . ,(ly:make-pitch -1 2 FLAT))
+ (micb . ,(ly:make-pitch -1 2 SEMI-FLAT))
+ (mi . ,(ly:make-pitch -1 2 NATURAL))
+ (mics . ,(ly:make-pitch -1 2 SEMI-SHARP))
+ (mis . ,(ly:make-pitch -1 2 SHARP))
+ (mitcs . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
+ (miss . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
+ (mix . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
+
+ (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
+ (fatcb . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
+ (fab . ,(ly:make-pitch -1 3 FLAT))
+ (facb . ,(ly:make-pitch -1 3 SEMI-FLAT))
+ (fa . ,(ly:make-pitch -1 3 NATURAL))
+ (facs . ,(ly:make-pitch -1 3 SEMI-SHARP))
+ (fas . ,(ly:make-pitch -1 3 SHARP))
+ (fatcs . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
+ (fass . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
+ (fax . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
+
+ (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
+ (soltcb . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
+ (solb . ,(ly:make-pitch -1 4 FLAT))
+ (solcb . ,(ly:make-pitch -1 4 SEMI-FLAT))
+ (sol . ,(ly:make-pitch -1 4 NATURAL))
+ (solcs . ,(ly:make-pitch -1 4 SEMI-SHARP))
+ (sols . ,(ly:make-pitch -1 4 SHARP))
+ (soltcs . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
+ (solss . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
+ (solx . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
+
+ (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
+ (latcb . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
+ (lab . ,(ly:make-pitch -1 5 FLAT))
+ (lacb . ,(ly:make-pitch -1 5 SEMI-FLAT))
+ (la . ,(ly:make-pitch -1 5 NATURAL))
+ (lacs . ,(ly:make-pitch -1 5 SEMI-SHARP))
+ (las . ,(ly:make-pitch -1 5 SHARP))
+ (latcs . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
+ (lass . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
+ (lax . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
+
+ (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
+ (sitcb . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
+ (sib . ,(ly:make-pitch -1 6 FLAT))
+ (sicb . ,(ly:make-pitch -1 6 SEMI-FLAT))
+ (si . ,(ly:make-pitch -1 6 NATURAL))
+ (sics . ,(ly:make-pitch -1 6 SEMI-SHARP))
+ (sis . ,(ly:make-pitch -1 6 SHARP))
+ (sitcs . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
+ (siss . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
+ (six . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
+
+)
+pitchnames = \pitchnamesEspanol
-\version "1.5.49"
+#(ly:parser-set-note-names parser pitchnames)