ly/espanol.ly

   1 %{
   2
   3  Common Spanish names for notes. "b" means flat (bemol), "s" means sharp (sostenido).
   4  Adapted from italiano.ly.
   5
   6  English: a   b   c   d   e   f   g
   7  Spanish: la  si  do  re  mi  fa  sol
   8
   9 %}
  10
  11 %{
  12
  13  contributed by Carlos García Suárez <<cgscqmp@terra.es>>
  14
  15  and contributed by Maximiliano G. G. <<mxgdvg@yahoo.it>> con:
  16  doble alteración alternativa, x para doble sostenido
  17  cuartos de tono: tcb, cb, cs, tcs
  18
  19 %}
  20
  21 pitchnamesEspanol = #`(
  22         (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
  23         (dotcb . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
  24         (dob . ,(ly:make-pitch -1 0 FLAT))
  25         (docb . ,(ly:make-pitch -1 0 SEMI-FLAT))
  26         (do . ,(ly:make-pitch -1 0 NATURAL))
  27         (docs . ,(ly:make-pitch -1 0 SEMI-SHARP))
  28         (dos . ,(ly:make-pitch -1 0 SHARP))
  29         (dotcs . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
  30         (doss . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
  31         (dox . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
  32
  33         (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
  34         (retcb . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
  35         (reb . ,(ly:make-pitch -1 1 FLAT))
  36         (recb . ,(ly:make-pitch -1 1 SEMI-FLAT))
  37         (re . ,(ly:make-pitch -1 1 NATURAL))
  38         (recs . ,(ly:make-pitch -1 1 SEMI-SHARP))
  39         (res . ,(ly:make-pitch -1 1 SHARP))
  40         (retcs . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
  41         (ress . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
  42         (rex . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
  43
  44         (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
  45         (mitcb . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
  46         (mib . ,(ly:make-pitch -1 2 FLAT))
  47         (micb . ,(ly:make-pitch -1 2 SEMI-FLAT))
  48         (mi . ,(ly:make-pitch -1 2 NATURAL))
  49         (mics . ,(ly:make-pitch -1 2 SEMI-SHARP))
  50         (mis . ,(ly:make-pitch -1 2 SHARP))
  51         (mitcs . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
  52         (miss . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
  53         (mix . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
  54
  55         (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
  56         (fatcb . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
  57         (fab . ,(ly:make-pitch -1 3 FLAT))
  58         (facb . ,(ly:make-pitch -1 3 SEMI-FLAT))
  59         (fa . ,(ly:make-pitch -1 3 NATURAL))
  60         (facs . ,(ly:make-pitch -1 3 SEMI-SHARP))
  61         (fas . ,(ly:make-pitch -1 3 SHARP))
  62         (fatcs . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
  63         (fass . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
  64         (fax . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
  65
  66         (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
  67         (soltcb . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
  68         (solb . ,(ly:make-pitch -1 4 FLAT))
  69         (solcb . ,(ly:make-pitch -1 4 SEMI-FLAT))
  70         (sol . ,(ly:make-pitch -1 4 NATURAL))
  71         (solcs . ,(ly:make-pitch -1 4 SEMI-SHARP))
  72         (sols . ,(ly:make-pitch -1 4 SHARP))
  73         (soltcs . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
  74         (solss . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
  75         (solx . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
  76
  77         (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
  78         (latcb . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
  79         (lab . ,(ly:make-pitch -1 5 FLAT))
  80         (lacb . ,(ly:make-pitch -1 5 SEMI-FLAT))
  81         (la . ,(ly:make-pitch -1 5 NATURAL))
  82         (lacs . ,(ly:make-pitch -1 5 SEMI-SHARP))
  83         (las . ,(ly:make-pitch -1 5 SHARP))
  84         (latcs . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
  85         (lass . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
  86         (lax . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
  87
  88         (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
  89         (sitcb . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
  90         (sib . ,(ly:make-pitch -1 6 FLAT))
  91         (sicb . ,(ly:make-pitch -1 6 SEMI-FLAT))
  92         (si . ,(ly:make-pitch -1 6 NATURAL))
  93         (sics . ,(ly:make-pitch -1 6 SEMI-SHARP))
  94         (sis . ,(ly:make-pitch -1 6 SHARP))
  95         (sitcs . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
  96         (siss . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
  97         (six . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
  98
  99 )
 100
 101 pitchnames = \pitchnamesEspanol
 102
 103 \version "2.12.0"
 104
 105 #(ly:parser-set-note-names parser pitchnames)