ly/portugues.ly

   1 %{
   2
   3  Common Portuguese names for notes. "b" means flat (bemol), "s" means
   4  sharp (sustenido).  Adapted from espanol.ly and italian.ly.
   5
   6  English: a   b   c   d   e   f   g
   7  Portuguese: la  si  do  re  mi  fa  sol
   8
   9 %}
  10
  11 % contributed by Pedro Kröger <<kroeger@pedrokroeger.net>>
  12
  13
  14 pitchnamesPortuguese = #`(
  15         (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
  16         (dobtqt . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
  17         (dob . ,(ly:make-pitch -1 0 FLAT))
  18         (dobqt . ,(ly:make-pitch -1 0 SEMI-FLAT))
  19         (do . ,(ly:make-pitch -1 0 NATURAL))
  20         (dosqt . ,(ly:make-pitch -1 0 SEMI-SHARP))
  21         (dos . ,(ly:make-pitch -1 0 SHARP))
  22         (dostqt . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
  23         (doss . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
  24
  25         (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
  26         (rebtqt . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
  27         (reb . ,(ly:make-pitch -1 1 FLAT))
  28         (rebqt . ,(ly:make-pitch -1 1 SEMI-FLAT))
  29         (re . ,(ly:make-pitch -1 1 NATURAL))
  30         (resqt . ,(ly:make-pitch -1 1 SEMI-SHARP))
  31         (res . ,(ly:make-pitch -1 1 SHARP))
  32         (restqt . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
  33         (ress . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
  34
  35         (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
  36         (mibtqt . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
  37         (mib . ,(ly:make-pitch -1 2 FLAT))
  38         (mibqt . ,(ly:make-pitch -1 2 SEMI-FLAT))
  39         (mi . ,(ly:make-pitch -1 2 NATURAL))
  40         (misqt . ,(ly:make-pitch -1 2 SEMI-SHARP))
  41         (mis . ,(ly:make-pitch -1 2 SHARP))
  42         (mistqt . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
  43         (miss . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
  44
  45         (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
  46         (fabtqt . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
  47         (fab . ,(ly:make-pitch -1 3 FLAT))
  48         (fabqt . ,(ly:make-pitch -1 3 SEMI-FLAT))
  49         (fa . ,(ly:make-pitch -1 3 NATURAL))
  50         (fasqt . ,(ly:make-pitch -1 3 SEMI-SHARP))
  51         (fas . ,(ly:make-pitch -1 3 SHARP))
  52         (fastqt . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
  53         (fass . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
  54
  55         (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
  56         (solbtqt . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
  57         (solb . ,(ly:make-pitch -1 4 FLAT))
  58         (solbqt . ,(ly:make-pitch -1 4 SEMI-FLAT))
  59         (sol . ,(ly:make-pitch -1 4 NATURAL))
  60         (solsqt . ,(ly:make-pitch -1 4 SEMI-SHARP))
  61         (sols . ,(ly:make-pitch -1 4 SHARP))
  62         (solstqt . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
  63         (solss . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
  64
  65         (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
  66         (labtqt . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
  67         (lab . ,(ly:make-pitch -1 5 FLAT))
  68         (labqt . ,(ly:make-pitch -1 5 SEMI-FLAT))
  69         (la . ,(ly:make-pitch -1 5 NATURAL))
  70         (lasqt . ,(ly:make-pitch -1 5 SEMI-SHARP))
  71         (las . ,(ly:make-pitch -1 5 SHARP))
  72         (lastqt . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
  73         (lass . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
  74
  75         (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
  76         (sibtqt . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
  77         (sib . ,(ly:make-pitch -1 6 FLAT))
  78         (sibqt . ,(ly:make-pitch -1 6 SEMI-FLAT))
  79         (si . ,(ly:make-pitch -1 6 NATURAL))
  80         (sisqt . ,(ly:make-pitch -1 6 SEMI-SHARP))
  81         (sis . ,(ly:make-pitch -1 6 SHARP))
  82         (sistqt . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
  83         (siss . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
  84
  85 )
  86
  87 pitchnames = \pitchnamesPortuguese
  88
  89 \version "2.2.0"
  90
  91 #(ly:parser-set-note-names parser pitchnames)