ly/catalan.ly

   1 %{
   2
   3  Common catalan names for notes. "b" means flat (bemoll), "d" means sharp (diesi).
   4  Also "s" is included for sharp (sostingut).  Neutral "diesi" and "sostingut" are approved
   5  by "Diccionari de la Llengua Catalana" from "Institut d'Estudis Catalans".
   6
   7  Adapted from italiano.ly.
   8
   9  English: a   b   c   d   e   f   g
  10  Catalan: la  si  do  re  mi  fa  sol
  11
  12  For spanish naming just use the sharp sign "s" (sostenido) instead of "s"
  13 (sostenido) .
  14 %}
  15
  16 % contributed by Jaume Obrador <<jobrador@ipc4.uib.es>>
  17
  18
  19 % For using "sostingut" notation, which is also correct
  20 pitchnamesCatalan = #`(
  21         (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
  22         (dob . ,(ly:make-pitch -1 0 FLAT))
  23         (do . ,(ly:make-pitch -1 0 NATURAL))
  24         (dod . ,(ly:make-pitch -1 0 SHARP))
  25         (dodd . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
  26         (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
  27         (reb . ,(ly:make-pitch -1 1 FLAT))
  28         (re . ,(ly:make-pitch -1 1 NATURAL))
  29         (red . ,(ly:make-pitch -1 1 SHARP))
  30         (redd . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
  31         (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
  32         (mib . ,(ly:make-pitch -1 2 FLAT))
  33         (mi . ,(ly:make-pitch -1 2 NATURAL))
  34         (mid . ,(ly:make-pitch -1 2 SHARP))
  35         (midd . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
  36         (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
  37         (fab . ,(ly:make-pitch -1 3 FLAT))
  38         (fa . ,(ly:make-pitch -1 3 NATURAL))
  39         (fad . ,(ly:make-pitch -1 3 SHARP))
  40         (fadd . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
  41         (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
  42         (solb . ,(ly:make-pitch -1 4 FLAT))
  43         (sol . ,(ly:make-pitch -1 4 NATURAL))
  44         (sold . ,(ly:make-pitch -1 4 SHARP))
  45         (soldd . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
  46         (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
  47         (lab . ,(ly:make-pitch -1 5 FLAT))
  48         (la . ,(ly:make-pitch -1 5 NATURAL))
  49         (lad . ,(ly:make-pitch -1 5 SHARP))
  50         (ladd . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
  51         (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
  52         (sib . ,(ly:make-pitch -1 6 FLAT))
  53         (si . ,(ly:make-pitch -1 6 NATURAL))
  54         (sid . ,(ly:make-pitch -1 6 SHARP))
  55         (sidd . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
  56
  57         ;; Now that we have espanol.ly, should these be junked? --jcn
  58         (dos . ,(ly:make-pitch -1 0 SHARP))
  59         (doss . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
  60         (res . ,(ly:make-pitch -1 1 SHARP))
  61         (ress . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
  62         (mis . ,(ly:make-pitch -1 2 SHARP))
  63         (miss . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
  64         (fas . ,(ly:make-pitch -1 3 SHARP))
  65         (fass . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
  66         (sols . ,(ly:make-pitch -1 4 SHARP))
  67         (solss . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
  68         (las . ,(ly:make-pitch -1 5 SHARP))
  69         (lass . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
  70         (sis . ,(ly:make-pitch -1 6 SHARP))
  71         (siss . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
  72 )
  73
  74 pitchnames = \pitchnamesCatalan
  75
  76 \version "2.3.17"
  77
  78 #(ly:parser-set-note-names parser pitchnames)