+%%%% common Italian names for notes
+%%%% This file is part of LilyPond, the GNU music typesetter.
+%%%%
+%%%% Copyright (C) 1998--2010 Paolo Zuliani <zuliap@easynet.it>
+%%%% Eric Wurbel <wurbel@univ-tln.fr>
+%%%% (additions for semi-sharps and semi-flats)
+%%%%
+%%%% 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 italian names for notes. "b" means flat (bemolle), "d" means sharp (diesis)
- Adapted from dutch.ly.
- English: a b c d e f g
- Italian: la si do re mi fa sol
+ b = flat (bemolle)
+ bb = double-flat
+ sb = quarter-tone flat (semi-bemolle)
+ bsb = three-quarter-tones flat
+
+ d = sharp (diesis)
+ dd = double-sharp
+ sd = quarter-tone sharp (semi-diesis)
+ dsd = three-quarter-tones sharp
+
+ English: c d e f g a b
+ Italian: do re mi fa sol la si
+
+ Adapted from nederlands.ly.
+
+ For french naming just change 'do' to 'ut'.
- For french naming just change 'do' in 'ut'.
%}
-% contributed by Paolo Zuliani <zuliap@easynet.it>
-
-\notenames {
- dobb = \musicalpitch { -1 0 -2 }
- dob = \musicalpitch { -1 0 -1 }
- do = \musicalpitch { -1 0 0 }
- dod = \musicalpitch { -1 0 1 }
- dodd = \musicalpitch { -1 0 2 }
- rebb = \musicalpitch { -1 1 -2 }
- reb = \musicalpitch { -1 1 -1 }
- re = \musicalpitch { -1 1 0 }
- red = \musicalpitch { -1 1 1 }
- redd = \musicalpitch { -1 1 2 }
- mibb = \musicalpitch { -1 2 -2 }
- mib = \musicalpitch { -1 2 -1 }
- mi = \musicalpitch { -1 2 0 }
- mid = \musicalpitch { -1 2 1 }
- midd = \musicalpitch { -1 2 2 }
- fabb = \musicalpitch { -1 3 -2 }
- fab = \musicalpitch { -1 3 -1 }
- fa = \musicalpitch { -1 3 0 }
- fad = \musicalpitch { -1 3 1 }
- fadd = \musicalpitch { -1 3 2 }
- solbb = \musicalpitch { -1 4 -2 }
- solb = \musicalpitch { -1 4 -1 }
- sol = \musicalpitch { -1 4 0 }
- sold = \musicalpitch { -1 4 1 }
- soldd = \musicalpitch { -1 4 2 }
- labb = \musicalpitch { -1 5 -2 }
- lab = \musicalpitch { -1 5 -1 }
- la = \musicalpitch { -1 5 0 }
- lad = \musicalpitch { -1 5 1 }
- ladd = \musicalpitch { -1 5 2 }
- sibb = \musicalpitch { -1 6 -2 }
- sib = \musicalpitch { -1 6 -1 }
- si = \musicalpitch { -1 6 0 }
- sid = \musicalpitch { -1 6 1 }
- sidd = \musicalpitch { -1 6 2 }
-}
+pitchnamesItaliano = #`(
+ (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
+ (dobsb . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
+ (dob . ,(ly:make-pitch -1 0 FLAT))
+ (dosb . ,(ly:make-pitch -1 0 SEMI-FLAT))
+ (do . ,(ly:make-pitch -1 0 NATURAL))
+ (dosd . ,(ly:make-pitch -1 0 SEMI-SHARP))
+ (dod . ,(ly:make-pitch -1 0 SHARP))
+ (dodsd . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
+ (dodd . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
+
+ (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
+ (rebsb . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
+ (reb . ,(ly:make-pitch -1 1 FLAT))
+ (resb . ,(ly:make-pitch -1 1 SEMI-FLAT))
+ (re . ,(ly:make-pitch -1 1 NATURAL))
+ (resd . ,(ly:make-pitch -1 1 SEMI-SHARP))
+ (red . ,(ly:make-pitch -1 1 SHARP))
+ (redsd . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
+ (redd . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
+
+ (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
+ (mibsb . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
+ (mib . ,(ly:make-pitch -1 2 FLAT))
+ (misb . ,(ly:make-pitch -1 2 SEMI-FLAT))
+ (mi . ,(ly:make-pitch -1 2 NATURAL))
+ (misd . ,(ly:make-pitch -1 2 SEMI-SHARP))
+ (mid . ,(ly:make-pitch -1 2 SHARP))
+ (midsd . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
+ (midd . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
+
+ (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
+ (fabsb . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
+ (fab . ,(ly:make-pitch -1 3 FLAT))
+ (fasb . ,(ly:make-pitch -1 3 SEMI-FLAT))
+ (fa . ,(ly:make-pitch -1 3 NATURAL))
+ (fasd . ,(ly:make-pitch -1 3 SEMI-SHARP))
+ (fad . ,(ly:make-pitch -1 3 SHARP))
+ (fadsd . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
+ (fadd . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
+
+ (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
+ (solbsb . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
+ (solb . ,(ly:make-pitch -1 4 FLAT))
+ (solsb . ,(ly:make-pitch -1 4 SEMI-FLAT))
+ (sol . ,(ly:make-pitch -1 4 NATURAL))
+ (solsd . ,(ly:make-pitch -1 4 SEMI-SHARP))
+ (sold . ,(ly:make-pitch -1 4 SHARP))
+ (soldsd . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
+ (soldd . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
+
+ (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
+ (labsb . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
+ (lab . ,(ly:make-pitch -1 5 FLAT))
+ (lasb . ,(ly:make-pitch -1 5 SEMI-FLAT))
+ (la . ,(ly:make-pitch -1 5 NATURAL))
+ (lasd . ,(ly:make-pitch -1 5 SEMI-SHARP))
+ (lad . ,(ly:make-pitch -1 5 SHARP))
+ (ladsd . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
+ (ladd . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
+
+ (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
+ (sibsb . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
+ (sib . ,(ly:make-pitch -1 6 FLAT))
+ (sisb . ,(ly:make-pitch -1 6 SEMI-FLAT))
+ (si . ,(ly:make-pitch -1 6 NATURAL))
+ (sisd . ,(ly:make-pitch -1 6 SEMI-SHARP))
+ (sid . ,(ly:make-pitch -1 6 SHARP))
+ (sidsd . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
+ (sidd . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
+
+)
+
+pitchnames = \pitchnamesItaliano
+
+#(ly:parser-set-note-names parser pitchnames)