Run grand-replace (issue 3765)

[lilypond.git] / ly / portugues.ly

diff --git a/ly/portugues.ly b/ly/portugues.ly
index 2c2d6268cc765297376106b67aec636f2448fda9..c8dd91d1130cd1faa5ea121ce38f70f212a1f9b7 100644 (file)
--- a/ly/portugues.ly
+++ b/ly/portugues.ly
@@ -1,91 +1,23 @@
-%{
-
- Common Portuguese names for notes. "b" means flat (bemol), "s" means
- sharp (sustenido).  Adapted from espanol.ly and italian.ly.
-
- English: a   b   c   d   e   f   g
- Portuguese: la  si  do  re  mi  fa  sol
-
-%}
-
-% contributed by Pedro Kröger <<kroeger@pedrokroeger.net>>
-
-
-pitchnamesPortuguese = #`(
-       (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
-       (dobtqt . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
-       (dob . ,(ly:make-pitch -1 0 FLAT))
-       (dobqt . ,(ly:make-pitch -1 0 SEMI-FLAT))
-       (do . ,(ly:make-pitch -1 0 NATURAL))
-       (dosqt . ,(ly:make-pitch -1 0 SEMI-SHARP))
-       (dos . ,(ly:make-pitch -1 0 SHARP))
-       (dostqt . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
-       (doss . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
-
-       (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
-       (rebtqt . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
-       (reb . ,(ly:make-pitch -1 1 FLAT))
-       (rebqt . ,(ly:make-pitch -1 1 SEMI-FLAT))
-       (re . ,(ly:make-pitch -1 1 NATURAL))
-       (resqt . ,(ly:make-pitch -1 1 SEMI-SHARP))
-       (res . ,(ly:make-pitch -1 1 SHARP))
-       (restqt . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
-       (ress . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
-
-       (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
-       (mibtqt . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
-       (mib . ,(ly:make-pitch -1 2 FLAT))
-       (mibqt . ,(ly:make-pitch -1 2 SEMI-FLAT))
-       (mi . ,(ly:make-pitch -1 2 NATURAL))
-       (misqt . ,(ly:make-pitch -1 2 SEMI-SHARP))
-       (mis . ,(ly:make-pitch -1 2 SHARP))
-       (mistqt . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
-       (miss . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
-
-       (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
-       (fabtqt . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
-       (fab . ,(ly:make-pitch -1 3 FLAT))
-       (fabqt . ,(ly:make-pitch -1 3 SEMI-FLAT))
-       (fa . ,(ly:make-pitch -1 3 NATURAL))
-       (fasqt . ,(ly:make-pitch -1 3 SEMI-SHARP))
-       (fas . ,(ly:make-pitch -1 3 SHARP))
-       (fastqt . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
-       (fass . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
-
-       (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
-       (solbtqt . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
-       (solb . ,(ly:make-pitch -1 4 FLAT))
-       (solbqt . ,(ly:make-pitch -1 4 SEMI-FLAT))
-       (sol . ,(ly:make-pitch -1 4 NATURAL))
-       (solsqt . ,(ly:make-pitch -1 4 SEMI-SHARP))
-       (sols . ,(ly:make-pitch -1 4 SHARP))
-       (solstqt . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
-       (solss . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
-
-       (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
-       (labtqt . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
-       (lab . ,(ly:make-pitch -1 5 FLAT))
-       (labqt . ,(ly:make-pitch -1 5 SEMI-FLAT))
-       (la . ,(ly:make-pitch -1 5 NATURAL))
-       (lasqt . ,(ly:make-pitch -1 5 SEMI-SHARP))
-       (las . ,(ly:make-pitch -1 5 SHARP))
-       (lastqt . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
-       (lass . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
-
-       (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
-       (sibtqt . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
-       (sib . ,(ly:make-pitch -1 6 FLAT))
-       (sibqt . ,(ly:make-pitch -1 6 SEMI-FLAT))
-       (si . ,(ly:make-pitch -1 6 NATURAL))
-       (sisqt . ,(ly:make-pitch -1 6 SEMI-SHARP))
-       (sis . ,(ly:make-pitch -1 6 SHARP))
-       (sistqt . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
-       (siss . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
-
-)
-
-pitchnames = \pitchnamesPortuguese
-
-\version "2.3.8"
-
-#(ly:parser-set-note-names parser pitchnames)
+%%%% common Portuguese names for notes
+%%%% This file is part of LilyPond, the GNU music typesetter.
+%%%%
+%%%% Copyright (C) 2010--2014 Valentin Villenave <valentin@villenave.net>
+%%%%
+%%%% 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/>.
+
+%%%% Legacy file. (see scm/define-note-names.scm)
+
+\version "2.16.0"
+
+\language "portugues"