ly/catalan.ly

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