Portuguese note names

[Pedro Kroger]

Hi,

Here are Portuguese names for notes. As I guess we still cannot send
files to the list I'm sending the content of "portugues.py" in this
email.

I did some basic testing but would be nice to have real users testing
(I only use the default lilypond duch names). The syntax for
quarter-tones is quite cumbersome thought :-(

Pedro

portugues.py
================================================================

%{

 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 <<address@hidden>>


pitchnamesPortuguese = #`(
        (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
        (dob3qt . ,(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))
        (dos3qt . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
        (doss . ,(ly:make-pitch -1 0 DOUBLE-SHARP))

        (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
        (reb3qt . ,(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))
        (res3qt . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
        (ress . ,(ly:make-pitch -1 1 DOUBLE-SHARP))

        (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
        (mib3qt . ,(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))
        (mis3qt . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
        (miss . ,(ly:make-pitch -1 2 DOUBLE-SHARP))

        (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
        (fab3qt . ,(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))
        (fas3qt . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
        (fass . ,(ly:make-pitch -1 3 DOUBLE-SHARP))

        (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
        (solb3qt . ,(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))
        (sols3qt . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
        (solss . ,(ly:make-pitch -1 4 DOUBLE-SHARP))

        (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
        (lab3qt . ,(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))
        (las3qt . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
        (lass . ,(ly:make-pitch -1 5 DOUBLE-SHARP))

        (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
        (sib3qt . ,(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))
        (sis3qt . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
        (siss . ,(ly:make-pitch -1 6 DOUBLE-SHARP))

)

pitchnames = \pitchnamesPortuguese

\version "2.2.0"