ly/language-init.ly

   1 %%%% Common note names in various languages.
   2 %%%% This file is part of LilyPond, the GNU music typesetter.
   3 %%%%
   4 %%%% Copyright (C) 2010 Valentin Villenave <valentin@villenave.net> et al:
   5 %%%%
   6 %%%% Copyright (C) 1996--2010 Han-Wen Nienhuys <hanwen@xs4all.nl> (Nederlands)
   7 %%%% Copyright (C) 1998--2010 Jaume Obrador <jobrador@ipc4.uib.es> (Catalan)
   8 %%%% Copyright (C) 1997--2010 Roland Meier <meier@informatik.th-darmstadt.de>
   9 %%%%                Bjoern Jacke <bjoern.jacke@gmx.de> (Deutsch)
  10 %%%% Copyright (C) 1996--2010 Han-Wen Nienhuys <hanwen@xs4all.nl> (English)
  11 %%%% Copyright (C) 2002--2010 Carlos García Suárez <cgscqmp@terra.es>
  12 %%%%                Maximiliano G. G. <mxgdvg@yahoo.it> (Espanol)
  13 %%%% Copyright (C) 1998--2010 Paolo Zuliani <zuliap@easynet.it>
  14 %%%%                Eric Wurbel <wurbel@univ-tln.fr> (Italiano)
  15 %%%% Copyright (C) 1998--2010 Arvid Grøtting <arvidg@ifi.uio.no> (Norsk)
  16 %%%% Copyright (C) 2004--2010 Pedro Kröger <kroeger@pedrokroeger.net> (Portugues)
  17 %%%% Copyright (C) 2001--2010 Heikki Junes <heikki.junes@hut.fi> (Suomi)
  18 %%%% Copyright (C) 1997--2010 Mats Bengtsson <mabe@violin.s3.kth.se> (Svenska)
  19 %%%% Copyright (C) 2004--2010 Hendrik Maryns <hendrik.maryns@ugent.be> (Vlaams)
  20 %%%%
  21 %%%% LilyPond is free software: you can redistribute it and/or modify
  22 %%%% it under the terms of the GNU General Public License as published by
  23 %%%% the Free Software Foundation, either version 3 of the License, or
  24 %%%% (at your option) any later version.
  25 %%%%
  26 %%%% LilyPond is distributed in the hope that it will be useful,
  27 %%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
  28 %%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  29 %%%% GNU General Public License for more details.
  30 %%%%
  31 %%%% You should have received a copy of the GNU General Public License
  32 %%%% along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  33
  34
  35 \version "2.13.37"
  36
  37 #(define language-pitch-names
  38   `(
  39     ;; Language: Nederlands --------------------------------------------;
  40     ;;  Dutch note names -- LilyPond's default language.
  41     ;;  Han-Wen Nienhuys <hanwen@xs4all.nl>
  42     ;;
  43     ;;  es   = flat
  44     ;;  eses = double-flat
  45     ;;  eh   = quarter-tone flat
  46     ;;  eseh = three-quarter-tones flat
  47     ;;
  48     ;;  is   = sharp
  49     ;;  isis = double-sharp
  50     ;;  ih   = quarter-tone sharp
  51     ;;  isih = three-quarter-tones sharp
  52     ;;
  53     ;;  English: c  d  e  f  g  a  bf b
  54     ;;    Dutch: c  d  e  f  g  a  b  h
  55
  56     (nederlands . (
  57       (ceses . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
  58       (ceh . ,(ly:make-pitch -1 0 SEMI-FLAT))
  59       (ces . ,(ly:make-pitch -1 0 FLAT))
  60       (ceseh . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
  61       (c . ,(ly:make-pitch -1 0 NATURAL))
  62       (cis . ,(ly:make-pitch -1 0 SHARP))
  63       (cih . ,(ly:make-pitch -1 0 SEMI-SHARP))
  64       (cisih . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
  65       (cisis . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
  66       (deses . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
  67
  68       (deh . ,(ly:make-pitch -1 1 SEMI-FLAT))
  69       (des . ,(ly:make-pitch -1 1 FLAT))
  70       (deseh . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
  71       (d . ,(ly:make-pitch -1 1 NATURAL))
  72       (dis . ,(ly:make-pitch -1 1 SHARP))
  73       (dih . ,(ly:make-pitch -1 1 SEMI-SHARP))
  74       (disih . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
  75       (disis . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
  76       (eeses . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
  77       (eses . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
  78
  79       (eeh . ,(ly:make-pitch -1 2 SEMI-FLAT))
  80       (ees . ,(ly:make-pitch -1 2 FLAT))
  81       (eeseh . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
  82       (es . ,(ly:make-pitch -1 2 FLAT))
  83       (e . ,(ly:make-pitch -1 2 NATURAL))
  84       (eis . ,(ly:make-pitch -1 2 SHARP))
  85       (eih . ,(ly:make-pitch -1 2 SEMI-SHARP))
  86       (eisih . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
  87       (eisis . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
  88       (feses . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
  89
  90       (feh . ,(ly:make-pitch -1 3 SEMI-FLAT))
  91       (fes . ,(ly:make-pitch -1 3 FLAT))
  92       (feseh . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
  93       (f . ,(ly:make-pitch -1 3 NATURAL))
  94       (fis . ,(ly:make-pitch -1 3 SHARP))
  95       (fih . ,(ly:make-pitch -1 3 SEMI-SHARP))
  96       (fisih . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
  97       (fisis . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
  98       (geses . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
  99
 100       (geh . ,(ly:make-pitch -1 4 SEMI-FLAT))
 101       (ges . ,(ly:make-pitch -1 4 FLAT))
 102       (geseh . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
 103       (g . ,(ly:make-pitch -1 4 NATURAL))
 104       (gis . ,(ly:make-pitch -1 4 SHARP))
 105       (gih . ,(ly:make-pitch -1 4 SEMI-SHARP))
 106       (gisih . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
 107       (gisis . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 108       (aeses . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 109       (ases . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 110
 111       (aeh . ,(ly:make-pitch -1 5 SEMI-FLAT))
 112       (aes . ,(ly:make-pitch -1 5 FLAT))
 113       (aeseh . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
 114       (as . ,(ly:make-pitch -1 5 FLAT))
 115       (a . ,(ly:make-pitch -1 5 NATURAL))
 116       (ais . ,(ly:make-pitch -1 5 SHARP))
 117       (aih . ,(ly:make-pitch -1 5 SEMI-SHARP))
 118       (aisih . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
 119       (aisis . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 120       (beses . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 121
 122       (beh . ,(ly:make-pitch -1 6 SEMI-FLAT))
 123       (bes . ,(ly:make-pitch -1 6 FLAT))
 124       (beseh . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
 125       (b . ,(ly:make-pitch -1 6 NATURAL))
 126       (bis . ,(ly:make-pitch -1 6 SHARP))
 127       (bih . ,(ly:make-pitch -1 6 SEMI-SHARP))
 128       (bisih . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
 129       (bisis . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 130     ))
 131
 132
 133     ;; Language: Catalan -----------------------------------------------;
 134     ;; Jaume Obrador <jobrador@ipc4.uib.es>
 135     ;;
 136     ;;  b  = flat (bemoll)
 137     ;;  bb = double-flat
 138     ;;
 139     ;;  d  = sharp (diesi)
 140     ;;  dd = double-sharp
 141     ;;
 142     ;;  s  = sharp (sostingut)
 143     ;;  ss = double-sharp
 144     ;;
 145     ;;  English: c   d   e   f   g   a   b
 146     ;;  Catalan: do  re  mi  fa  sol la  si
 147
 148     (catalan . (
 149       (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
 150       (dob . ,(ly:make-pitch -1 0 FLAT))
 151       (do . ,(ly:make-pitch -1 0 NATURAL))
 152       (dod . ,(ly:make-pitch -1 0 SHARP))
 153       (dodd . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 154       (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
 155       (reb . ,(ly:make-pitch -1 1 FLAT))
 156       (re . ,(ly:make-pitch -1 1 NATURAL))
 157       (red . ,(ly:make-pitch -1 1 SHARP))
 158       (redd . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 159       (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 160       (mib . ,(ly:make-pitch -1 2 FLAT))
 161       (mi . ,(ly:make-pitch -1 2 NATURAL))
 162       (mid . ,(ly:make-pitch -1 2 SHARP))
 163       (midd . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 164       (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
 165       (fab . ,(ly:make-pitch -1 3 FLAT))
 166       (fa . ,(ly:make-pitch -1 3 NATURAL))
 167       (fad . ,(ly:make-pitch -1 3 SHARP))
 168       (fadd . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 169       (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 170       (solb . ,(ly:make-pitch -1 4 FLAT))
 171       (sol . ,(ly:make-pitch -1 4 NATURAL))
 172       (sold . ,(ly:make-pitch -1 4 SHARP))
 173       (soldd . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 174       (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 175       (lab . ,(ly:make-pitch -1 5 FLAT))
 176       (la . ,(ly:make-pitch -1 5 NATURAL))
 177       (lad . ,(ly:make-pitch -1 5 SHARP))
 178       (ladd . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 179       (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 180       (sib . ,(ly:make-pitch -1 6 FLAT))
 181       (si . ,(ly:make-pitch -1 6 NATURAL))
 182       (sid . ,(ly:make-pitch -1 6 SHARP))
 183       (sidd . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 184
 185       ;; Now that we have espanol.ly, should these be junked? --jcn
 186       (dos . ,(ly:make-pitch -1 0 SHARP))
 187       (doss . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 188       (res . ,(ly:make-pitch -1 1 SHARP))
 189       (ress . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 190       (mis . ,(ly:make-pitch -1 2 SHARP))
 191       (miss . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 192       (fas . ,(ly:make-pitch -1 3 SHARP))
 193       (fass . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 194       (sols . ,(ly:make-pitch -1 4 SHARP))
 195       (solss . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 196       (las . ,(ly:make-pitch -1 5 SHARP))
 197       (lass . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 198       (sis . ,(ly:make-pitch -1 6 SHARP))
 199       (siss . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 200     ))
 201
 202
 203     ;; Language: Deutsch -----------------------------------------------;
 204     ;; Roland Meier <meier@informatik.th-darmstadt.de>,
 205     ;; Bjoern Jacke <bjoern.jacke@gmx.de>
 206     ;;
 207     ;;  es   = flat
 208     ;;  eses = double-flat
 209     ;;  eh   = quarter-tone flat
 210     ;;  eseh = three-quarter-tones flat
 211     ;;
 212     ;;  is   = sharp
 213     ;;  isis = double-sharp
 214     ;;  ih   = quarter-tone sharp
 215     ;;  isih = three-quarter-tones sharp
 216     ;;
 217     ;;  English: c  d  e  f  g  a  bf b
 218     ;;   German: c  d  e  f  g  a  b  h
 219
 220     (deutsch . (
 221       (ceses . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
 222       (ceseh . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
 223       (ces . ,(ly:make-pitch -1 0 FLAT))
 224       (ceh . ,(ly:make-pitch -1 0 SEMI-FLAT))
 225       (c . ,(ly:make-pitch -1 0 NATURAL))
 226       (cih . ,(ly:make-pitch -1 0 SEMI-SHARP))
 227       (cis . ,(ly:make-pitch -1 0 SHARP))
 228       (cisih . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
 229       (cisis . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 230
 231       (deses . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
 232       (deseh . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
 233       (des . ,(ly:make-pitch -1 1 FLAT))
 234       (deh . ,(ly:make-pitch -1 1 SEMI-FLAT))
 235       (d . ,(ly:make-pitch -1 1 NATURAL))
 236       (dih . ,(ly:make-pitch -1 1 SEMI-SHARP))
 237       (dis . ,(ly:make-pitch -1 1 SHARP))
 238       (disih . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
 239       (disis . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 240
 241       (eses . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 242       (eseh . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
 243       (es . ,(ly:make-pitch -1 2 FLAT))
 244       (eeh . ,(ly:make-pitch -1 2 SEMI-FLAT))
 245       (e . ,(ly:make-pitch -1 2 NATURAL))
 246       (eih . ,(ly:make-pitch -1 2 SEMI-SHARP))
 247       (eis . ,(ly:make-pitch -1 2 SHARP))
 248       (eisih . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
 249       (eisis . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 250
 251       (feses . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
 252       (feseh . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
 253       (fes . ,(ly:make-pitch -1 3 FLAT))
 254       (feh . ,(ly:make-pitch -1 3 SEMI-FLAT))
 255       (f . ,(ly:make-pitch -1 3 NATURAL))
 256       (fih . ,(ly:make-pitch -1 3 SEMI-SHARP))
 257       (fis . ,(ly:make-pitch -1 3 SHARP))
 258       (fisih . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
 259       (fisis . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 260
 261       (geses . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 262       (geseh . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
 263       (ges . ,(ly:make-pitch -1 4 FLAT))
 264       (geh . ,(ly:make-pitch -1 4 SEMI-FLAT))
 265       (g . ,(ly:make-pitch -1 4 NATURAL))
 266       (gih . ,(ly:make-pitch -1 4 SEMI-SHARP))
 267       (gis . ,(ly:make-pitch -1 4 SHARP))
 268       (gisih . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
 269       (gisis . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 270
 271       (asas . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 272       (asah . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
 273       (ases . ,(ly:make-pitch -1 5 DOUBLE-FLAT))   ;;non-standard name for asas
 274       (aseh . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
 275       (as . ,(ly:make-pitch -1 5 FLAT))
 276       (aeh . ,(ly:make-pitch -1 5 SEMI-FLAT))
 277       (a . ,(ly:make-pitch -1 5 NATURAL))
 278       (aih . ,(ly:make-pitch -1 5 SEMI-SHARP))
 279       (ais . ,(ly:make-pitch -1 5 SHARP))
 280       (aisih . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
 281       (aisis . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 282
 283       (heses . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 284       (heseh . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
 285       (b . ,(ly:make-pitch -1 6 FLAT))
 286       (beh . ,(ly:make-pitch -1 6 SEMI-FLAT))
 287       (h . ,(ly:make-pitch -1 6 NATURAL))
 288       (hih . ,(ly:make-pitch -1 6 SEMI-SHARP))
 289       (his . ,(ly:make-pitch -1 6 SHARP))
 290       (hisih . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
 291       (hisis . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 292     ))
 293
 294
 295     ;; Language: English -----------------------------------------------;
 296     ;; Han-Wen Nienhuys <hanwen@xs4all.nl>
 297     ;;
 298     ;;  f   = flat
 299     ;;  ff  = double-flat
 300     ;;  qf  = quarter[-tone] flat
 301     ;;  tqf = three-quarter[-tones] flat
 302     ;;
 303     ;;  s   = sharp
 304     ;;  x   = double-sharp
 305     ;;  ss  = double-sharp
 306     ;;  qs  = quarter[-tone] sharp
 307     ;;  tqs = three-quarter[-tones] sharp
 308
 309     (english . (
 310       (cflatflat . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
 311       (cflat . ,(ly:make-pitch -1 0 FLAT))
 312       (c . ,(ly:make-pitch -1 0 NATURAL))
 313       (csharp . ,(ly:make-pitch -1 0 SHARP))
 314       (csharpsharp . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 315       (dflatflat . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
 316       (dflat . ,(ly:make-pitch -1 1 FLAT))
 317       (d . ,(ly:make-pitch -1 1 NATURAL))
 318       (dsharp . ,(ly:make-pitch -1 1 SHARP))
 319       (dsharpsharp . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 320       (eflatflat . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 321       (eflat . ,(ly:make-pitch -1 2 FLAT))
 322       (e . ,(ly:make-pitch -1 2 NATURAL))
 323       (esharp . ,(ly:make-pitch -1 2 SHARP))
 324       (esharpsharp . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 325       (fflatflat . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
 326       (fflat . ,(ly:make-pitch -1 3 FLAT))
 327       (f . ,(ly:make-pitch -1 3 NATURAL))
 328       (fsharp . ,(ly:make-pitch -1 3 SHARP))
 329       (fsharpsharp . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 330       (gflatflat . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 331       (gflat . ,(ly:make-pitch -1 4 FLAT))
 332       (g . ,(ly:make-pitch -1 4 NATURAL))
 333       (gsharp . ,(ly:make-pitch -1 4 SHARP))
 334       (gsharpsharp . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 335       (aflatflat . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 336       (aflat . ,(ly:make-pitch -1 5 FLAT))
 337       (a . ,(ly:make-pitch -1 5 NATURAL))
 338       (asharp . ,(ly:make-pitch -1 5 SHARP))
 339       (asharpsharp . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 340       (bflatflat . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 341       (bflat . ,(ly:make-pitch -1 6 FLAT))
 342       (b . ,(ly:make-pitch -1 6 NATURAL))
 343       (bsharp . ,(ly:make-pitch -1 6 SHARP))
 344       (bsharpsharp . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 345
 346       (cff . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
 347       (ctqf . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
 348       (cf . ,(ly:make-pitch -1 0 FLAT))
 349       (cqf . ,(ly:make-pitch -1 0 SEMI-FLAT))
 350       (c . ,(ly:make-pitch -1 0 NATURAL))
 351       (cqs . ,(ly:make-pitch -1 0 SEMI-SHARP))
 352       (cs . ,(ly:make-pitch -1 0 SHARP))
 353       (ctqs . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
 354       (css . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 355       (cx . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 356
 357       (dff . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
 358       (dtqf . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
 359       (df . ,(ly:make-pitch -1 1 FLAT))
 360       (dqf . ,(ly:make-pitch -1 1 SEMI-FLAT))
 361       (d . ,(ly:make-pitch -1 1 NATURAL))
 362       (dqs . ,(ly:make-pitch -1 1 SEMI-SHARP))
 363       (ds . ,(ly:make-pitch -1 1 SHARP))
 364       (dtqs . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
 365       (dss . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 366       (dx . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 367
 368       (eff . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 369       (etqf . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
 370       (ef . ,(ly:make-pitch -1 2 FLAT))
 371       (eqf . ,(ly:make-pitch -1 2 SEMI-FLAT))
 372       (e . ,(ly:make-pitch -1 2 NATURAL))
 373       (eqs . ,(ly:make-pitch -1 2 SEMI-SHARP))
 374       (es . ,(ly:make-pitch -1 2 SHARP))
 375       (etqs . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
 376       (ess . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 377       (ex . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 378
 379       (fff . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
 380       (ftqf . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
 381       (ff . ,(ly:make-pitch -1 3 FLAT))
 382       (fqf . ,(ly:make-pitch -1 3 SEMI-FLAT))
 383       (f . ,(ly:make-pitch -1 3 NATURAL))
 384       (fqs . ,(ly:make-pitch -1 3 SEMI-SHARP))
 385       (fs . ,(ly:make-pitch -1 3 SHARP))
 386       (ftqs . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
 387       (fss . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 388       (fx . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 389
 390       (gff . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 391       (gtqf . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
 392       (gf . ,(ly:make-pitch -1 4 FLAT))
 393       (gqf . ,(ly:make-pitch -1 4 SEMI-FLAT))
 394       (g . ,(ly:make-pitch -1 4 NATURAL))
 395       (gqs . ,(ly:make-pitch -1 4 SEMI-SHARP))
 396       (gs . ,(ly:make-pitch -1 4 SHARP))
 397       (gtqs . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
 398       (gss . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 399       (gx . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 400
 401       (aff . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 402       (atqf . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
 403       (af . ,(ly:make-pitch -1 5 FLAT))
 404       (aqf . ,(ly:make-pitch -1 5 SEMI-FLAT))
 405       (a . ,(ly:make-pitch -1 5 NATURAL))
 406       (aqs . ,(ly:make-pitch -1 5 SEMI-SHARP))
 407       (as . ,(ly:make-pitch -1 5 SHARP))
 408       (atqs . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
 409       (ass . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 410       (ax . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 411
 412       (bff . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 413       (btqf . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
 414       (bf . ,(ly:make-pitch -1 6 FLAT))
 415       (bqf . ,(ly:make-pitch -1 6 SEMI-FLAT))
 416       (b . ,(ly:make-pitch -1 6 NATURAL))
 417       (bqs . ,(ly:make-pitch -1 6 SEMI-SHARP))
 418       (bs . ,(ly:make-pitch -1 6 SHARP))
 419       (btqs . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
 420       (bss . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 421       (bx . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 422     ))
 423
 424
 425     ;; Language: Espanol -----------------------------------------------;
 426     ;; Carlos García Suárez <cgscqmp@terra.es>,
 427     ;; Maximiliano G. G. <mxgdvg@yahoo.it>
 428     ;;
 429     ;;  b   = flat (bemol)
 430     ;;  bb  = double-flat
 431     ;;  cb  = quarter-tone flat (cuarto [de tono de] bemol)
 432     ;;  tcb = three-quarter-tones flat (tres cuartos [de tonos de] bemol)
 433     ;;
 434     ;;  s   = sharp (sostenido)
 435     ;;  x   = double-sharp
 436     ;;  ss  = double-sharp
 437     ;;  cs  = quarter-tone sharp (cuarto [de tono de] sostenido)
 438     ;;  tcs = three-quarter-tones sharp (tres cuartos [de tonos de] sostenido)
 439     ;;
 440     ;;  English: c   d   e   f   g   a   b
 441     ;;  Spanish: do  re  mi  fa  sol la  si
 442
 443     (espanol . (
 444       (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
 445       (dotcb . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
 446       (dob . ,(ly:make-pitch -1 0 FLAT))
 447       (docb . ,(ly:make-pitch -1 0 SEMI-FLAT))
 448       (do . ,(ly:make-pitch -1 0 NATURAL))
 449       (docs . ,(ly:make-pitch -1 0 SEMI-SHARP))
 450       (dos . ,(ly:make-pitch -1 0 SHARP))
 451       (dotcs . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
 452       (doss . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 453       (dox . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 454
 455       (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
 456       (retcb . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
 457       (reb . ,(ly:make-pitch -1 1 FLAT))
 458       (recb . ,(ly:make-pitch -1 1 SEMI-FLAT))
 459       (re . ,(ly:make-pitch -1 1 NATURAL))
 460       (recs . ,(ly:make-pitch -1 1 SEMI-SHARP))
 461       (res . ,(ly:make-pitch -1 1 SHARP))
 462       (retcs . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
 463       (ress . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 464       (rex . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 465
 466       (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 467       (mitcb . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
 468       (mib . ,(ly:make-pitch -1 2 FLAT))
 469       (micb . ,(ly:make-pitch -1 2 SEMI-FLAT))
 470       (mi . ,(ly:make-pitch -1 2 NATURAL))
 471       (mics . ,(ly:make-pitch -1 2 SEMI-SHARP))
 472       (mis . ,(ly:make-pitch -1 2 SHARP))
 473       (mitcs . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
 474       (miss . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 475       (mix . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 476
 477       (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
 478       (fatcb . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
 479       (fab . ,(ly:make-pitch -1 3 FLAT))
 480       (facb . ,(ly:make-pitch -1 3 SEMI-FLAT))
 481       (fa . ,(ly:make-pitch -1 3 NATURAL))
 482       (facs . ,(ly:make-pitch -1 3 SEMI-SHARP))
 483       (fas . ,(ly:make-pitch -1 3 SHARP))
 484       (fatcs . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
 485       (fass . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 486       (fax . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 487
 488       (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 489       (soltcb . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
 490       (solb . ,(ly:make-pitch -1 4 FLAT))
 491       (solcb . ,(ly:make-pitch -1 4 SEMI-FLAT))
 492       (sol . ,(ly:make-pitch -1 4 NATURAL))
 493       (solcs . ,(ly:make-pitch -1 4 SEMI-SHARP))
 494       (sols . ,(ly:make-pitch -1 4 SHARP))
 495       (soltcs . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
 496       (solss . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 497       (solx . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 498
 499       (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 500       (latcb . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
 501       (lab . ,(ly:make-pitch -1 5 FLAT))
 502       (lacb . ,(ly:make-pitch -1 5 SEMI-FLAT))
 503       (la . ,(ly:make-pitch -1 5 NATURAL))
 504       (lacs . ,(ly:make-pitch -1 5 SEMI-SHARP))
 505       (las . ,(ly:make-pitch -1 5 SHARP))
 506       (latcs . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
 507       (lass . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 508       (lax . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 509
 510       (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 511       (sitcb . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
 512       (sib . ,(ly:make-pitch -1 6 FLAT))
 513       (sicb . ,(ly:make-pitch -1 6 SEMI-FLAT))
 514       (si . ,(ly:make-pitch -1 6 NATURAL))
 515       (sics . ,(ly:make-pitch -1 6 SEMI-SHARP))
 516       (sis . ,(ly:make-pitch -1 6 SHARP))
 517       (sitcs . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
 518       (siss . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 519       (six . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 520     ))
 521
 522
 523     ;; Language: Italiano ----------------------------------------------;
 524     ;; Paolo Zuliani <zuliap@easynet.it>,
 525     ;; Eric Wurbel <wurbel@univ-tln.fr>
 526     ;;
 527     ;;  b   = flat (bemolle)
 528     ;;  bb  = double-flat
 529     ;;  sb  = quarter-tone flat (semi-bemolle)
 530     ;;  bsb = three-quarter-tones flat
 531     ;;
 532     ;;  d   = sharp (diesis)
 533     ;;  dd  = double-sharp
 534     ;;  sd  = quarter-tone sharp (semi-diesis)
 535     ;;  dsd = three-quarter-tones sharp
 536     ;;
 537     ;;  English: c   d   e   f   g   a   b
 538     ;;  Italian: do  re  mi  fa  sol la  si
 539
 540     (italiano . (
 541       (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
 542       (dobsb . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
 543       (dob . ,(ly:make-pitch -1 0 FLAT))
 544       (dosb . ,(ly:make-pitch -1 0 SEMI-FLAT))
 545       (do . ,(ly:make-pitch -1 0 NATURAL))
 546       (dosd . ,(ly:make-pitch -1 0 SEMI-SHARP))
 547       (dod . ,(ly:make-pitch -1 0 SHARP))
 548       (dodsd . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
 549       (dodd . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 550
 551       (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
 552       (rebsb . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
 553       (reb . ,(ly:make-pitch -1 1 FLAT))
 554       (resb . ,(ly:make-pitch -1 1 SEMI-FLAT))
 555       (re . ,(ly:make-pitch -1 1 NATURAL))
 556       (resd . ,(ly:make-pitch -1 1 SEMI-SHARP))
 557       (red . ,(ly:make-pitch -1 1 SHARP))
 558       (redsd . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
 559       (redd . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 560
 561       (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 562       (mibsb . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
 563       (mib . ,(ly:make-pitch -1 2 FLAT))
 564       (misb . ,(ly:make-pitch -1 2 SEMI-FLAT))
 565       (mi . ,(ly:make-pitch -1 2 NATURAL))
 566       (misd . ,(ly:make-pitch -1 2 SEMI-SHARP))
 567       (mid . ,(ly:make-pitch -1 2 SHARP))
 568       (midsd . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
 569       (midd . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 570
 571       (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
 572       (fabsb . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
 573       (fab . ,(ly:make-pitch -1 3 FLAT))
 574       (fasb . ,(ly:make-pitch -1 3 SEMI-FLAT))
 575       (fa . ,(ly:make-pitch -1 3 NATURAL))
 576       (fasd . ,(ly:make-pitch -1 3 SEMI-SHARP))
 577       (fad . ,(ly:make-pitch -1 3 SHARP))
 578       (fadsd . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
 579       (fadd . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 580
 581       (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 582       (solbsb . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
 583       (solb . ,(ly:make-pitch -1 4 FLAT))
 584       (solsb . ,(ly:make-pitch -1 4 SEMI-FLAT))
 585       (sol . ,(ly:make-pitch -1 4 NATURAL))
 586       (solsd . ,(ly:make-pitch -1 4 SEMI-SHARP))
 587       (sold . ,(ly:make-pitch -1 4 SHARP))
 588       (soldsd . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
 589       (soldd . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 590
 591       (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 592       (labsb . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
 593       (lab . ,(ly:make-pitch -1 5 FLAT))
 594       (lasb . ,(ly:make-pitch -1 5 SEMI-FLAT))
 595       (la . ,(ly:make-pitch -1 5 NATURAL))
 596       (lasd . ,(ly:make-pitch -1 5 SEMI-SHARP))
 597       (lad . ,(ly:make-pitch -1 5 SHARP))
 598       (ladsd . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
 599       (ladd . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 600
 601       (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 602       (sibsb . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
 603       (sib . ,(ly:make-pitch -1 6 FLAT))
 604       (sisb . ,(ly:make-pitch -1 6 SEMI-FLAT))
 605       (si . ,(ly:make-pitch -1 6 NATURAL))
 606       (sisd . ,(ly:make-pitch -1 6 SEMI-SHARP))
 607       (sid . ,(ly:make-pitch -1 6 SHARP))
 608       (sidsd . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
 609       (sidd . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 610
 611     ))
 612
 613
 614     ;; Language: Norsk -------------------------------------------------;
 615     ;; Arvid Grøtting <arvidg@ifi.uio.no>
 616     ;;
 617     ;;  es     = flat
 618     ;;  ess    = flat
 619     ;;  eses   = double-flat
 620     ;;  essess = double-flat
 621     ;;
 622     ;;  is     = sharp
 623     ;;  iss    = sharp
 624     ;;  isis   = double-sharp
 625     ;;  ississ = double-sharp
 626     ;;
 627     ;;    English: c  d  e  f  g  a  bf b
 628     ;;  Norwegian: c  d  e  f  g  a  b  h
 629
 630     (norsk . (
 631       (ceses . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
 632       (cessess . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
 633       (ces . ,(ly:make-pitch -1 0 FLAT))
 634       (cess . ,(ly:make-pitch -1 0 FLAT))
 635       (c . ,(ly:make-pitch -1 0 NATURAL))
 636       (cis . ,(ly:make-pitch -1 0 SHARP))
 637       (ciss . ,(ly:make-pitch -1 0 SHARP))
 638       (cisis . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 639       (cississ . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 640       (deses . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
 641       (dessess . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
 642       (des . ,(ly:make-pitch -1 1 FLAT))
 643       (dess . ,(ly:make-pitch -1 1 FLAT))
 644       (d . ,(ly:make-pitch -1 1 NATURAL))
 645       (dis . ,(ly:make-pitch -1 1 SHARP))
 646       (diss . ,(ly:make-pitch -1 1 SHARP))
 647       (disis . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 648       (dississ . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 649       (eeses . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 650       (eessess . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 651       (eses . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 652       (essess . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 653       (ees . ,(ly:make-pitch -1 2 FLAT))
 654       (eess . ,(ly:make-pitch -1 2 FLAT))
 655       (es . ,(ly:make-pitch -1 2 FLAT))
 656       (ess . ,(ly:make-pitch -1 2 FLAT))
 657       (e . ,(ly:make-pitch -1 2 NATURAL))
 658       (eis . ,(ly:make-pitch -1 2 SHARP))
 659       (eiss . ,(ly:make-pitch -1 2 SHARP))
 660       (eisis . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 661       (eississ . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 662       (feses . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
 663       (fessess . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
 664       (fes . ,(ly:make-pitch -1 3 FLAT))
 665       (fess . ,(ly:make-pitch -1 3 FLAT))
 666       (f . ,(ly:make-pitch -1 3 NATURAL))
 667       (fis . ,(ly:make-pitch -1 3 SHARP))
 668       (fiss . ,(ly:make-pitch -1 3 SHARP))
 669       (fisis . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 670       (fississ . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 671       (geses . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 672       (gessess . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 673       (ges . ,(ly:make-pitch -1 4 FLAT))
 674       (gess . ,(ly:make-pitch -1 4 FLAT))
 675       (g . ,(ly:make-pitch -1 4 NATURAL))
 676       (g . ,(ly:make-pitch -1 4 NATURAL))
 677       (gis . ,(ly:make-pitch -1 4 SHARP))
 678       (giss . ,(ly:make-pitch -1 4 SHARP))
 679       (gisis . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 680       (gississ . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 681       (aeses . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 682       (aessess . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 683       (ases . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 684       (assess . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 685       (aes . ,(ly:make-pitch -1 5 FLAT))
 686       (aess . ,(ly:make-pitch -1 5 FLAT))
 687       (as . ,(ly:make-pitch -1 5 FLAT))
 688       (ass . ,(ly:make-pitch -1 5 FLAT))
 689       (a . ,(ly:make-pitch -1 5 NATURAL))
 690       (ais . ,(ly:make-pitch -1 5 SHARP))
 691       (aiss . ,(ly:make-pitch -1 5 SHARP))
 692       (aisis . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 693       (aississ . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 694       (bes . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 695       (bess . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 696       (b . ,(ly:make-pitch -1 6 FLAT))
 697       (b . ,(ly:make-pitch -1 6 FLAT))
 698       (h . ,(ly:make-pitch -1 6 NATURAL))
 699       (his . ,(ly:make-pitch -1 6 SHARP))
 700       (hiss . ,(ly:make-pitch -1 6 SHARP))
 701       (hisis . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 702       (hississ . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 703     ))
 704
 705
 706     ;; Language: Portugues ---------------------------------------------;
 707     ;; Pedro Kröger <kroeger@pedrokroeger.net>
 708     ;;
 709     ;;  b    = flat (bemol)
 710     ;;  bb   = double-flat
 711     ;;  bqt  = quarter-tone flat
 712     ;;  btqt = three-quarter-tones flat
 713     ;;
 714     ;;  s    = sharp (sustenido)
 715     ;;  ss   = double-sharp
 716     ;;  sqt  = quarter-tone sharp
 717     ;;  stqt = three-quarter-tones sharp
 718     ;;
 719     ;;     English: c   d   e   f   g   a   b
 720     ;;  Portuguese: do  re  mi  fa  sol la  si
 721
 722     (portugues . (
 723       (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
 724       (dobtqt . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
 725       (dob . ,(ly:make-pitch -1 0 FLAT))
 726       (dobqt . ,(ly:make-pitch -1 0 SEMI-FLAT))
 727       (do . ,(ly:make-pitch -1 0 NATURAL))
 728       (dosqt . ,(ly:make-pitch -1 0 SEMI-SHARP))
 729       (dos . ,(ly:make-pitch -1 0 SHARP))
 730       (dostqt . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
 731       (doss . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 732
 733       (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
 734       (rebtqt . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
 735       (reb . ,(ly:make-pitch -1 1 FLAT))
 736       (rebqt . ,(ly:make-pitch -1 1 SEMI-FLAT))
 737       (re . ,(ly:make-pitch -1 1 NATURAL))
 738       (resqt . ,(ly:make-pitch -1 1 SEMI-SHARP))
 739       (res . ,(ly:make-pitch -1 1 SHARP))
 740       (restqt . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
 741       (ress . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 742
 743       (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 744       (mibtqt . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
 745       (mib . ,(ly:make-pitch -1 2 FLAT))
 746       (mibqt . ,(ly:make-pitch -1 2 SEMI-FLAT))
 747       (mi . ,(ly:make-pitch -1 2 NATURAL))
 748       (misqt . ,(ly:make-pitch -1 2 SEMI-SHARP))
 749       (mis . ,(ly:make-pitch -1 2 SHARP))
 750       (mistqt . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
 751       (miss . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 752
 753       (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
 754       (fabtqt . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
 755       (fab . ,(ly:make-pitch -1 3 FLAT))
 756       (fabqt . ,(ly:make-pitch -1 3 SEMI-FLAT))
 757       (fa . ,(ly:make-pitch -1 3 NATURAL))
 758       (fasqt . ,(ly:make-pitch -1 3 SEMI-SHARP))
 759       (fas . ,(ly:make-pitch -1 3 SHARP))
 760       (fastqt . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
 761       (fass . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 762
 763       (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 764       (solbtqt . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
 765       (solb . ,(ly:make-pitch -1 4 FLAT))
 766       (solbqt . ,(ly:make-pitch -1 4 SEMI-FLAT))
 767       (sol . ,(ly:make-pitch -1 4 NATURAL))
 768       (solsqt . ,(ly:make-pitch -1 4 SEMI-SHARP))
 769       (sols . ,(ly:make-pitch -1 4 SHARP))
 770       (solstqt . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
 771       (solss . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 772
 773       (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 774       (labtqt . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
 775       (lab . ,(ly:make-pitch -1 5 FLAT))
 776       (labqt . ,(ly:make-pitch -1 5 SEMI-FLAT))
 777       (la . ,(ly:make-pitch -1 5 NATURAL))
 778       (lasqt . ,(ly:make-pitch -1 5 SEMI-SHARP))
 779       (las . ,(ly:make-pitch -1 5 SHARP))
 780       (lastqt . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
 781       (lass . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 782
 783       (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 784       (sibtqt . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
 785       (sib . ,(ly:make-pitch -1 6 FLAT))
 786       (sibqt . ,(ly:make-pitch -1 6 SEMI-FLAT))
 787       (si . ,(ly:make-pitch -1 6 NATURAL))
 788       (sisqt . ,(ly:make-pitch -1 6 SEMI-SHARP))
 789       (sis . ,(ly:make-pitch -1 6 SHARP))
 790       (sistqt . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
 791       (siss . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 792
 793     ))
 794
 795
 796     ;; Language: Suomi -------------------------------------------------;
 797     ;; Heikki Junes <heikki.junes@hut.fi>
 798     ;;
 799     ;;  es   = flat
 800     ;;  eses = double-flat
 801     ;;
 802     ;;  is   = sharp
 803     ;;  isis = double-sharp
 804     ;;
 805     ;;  English: c  d  e  f  g  a  bf b
 806     ;;  Finnish: c  d  e  f  g  a  b  h
 807
 808     (suomi . (
 809       (ceses . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
 810       (ces . ,(ly:make-pitch -1 0 FLAT))
 811       (c . ,(ly:make-pitch -1 0 NATURAL))
 812       (cis . ,(ly:make-pitch -1 0 SHARP))
 813       (cisis . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 814       (deses . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
 815       (des . ,(ly:make-pitch -1 1 FLAT))
 816       (d . ,(ly:make-pitch -1 1 NATURAL))
 817       (dis . ,(ly:make-pitch -1 1 SHARP))
 818       (disis . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 819       (eses . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 820       (es . ,(ly:make-pitch -1 2 FLAT))
 821       (e . ,(ly:make-pitch -1 2 NATURAL))
 822       (eis . ,(ly:make-pitch -1 2 SHARP))
 823       (eisis . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 824       (feses . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
 825       (fes . ,(ly:make-pitch -1 3 FLAT))
 826       (f . ,(ly:make-pitch -1 3 NATURAL))
 827       (fis . ,(ly:make-pitch -1 3 SHARP))
 828       (fisis . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 829       (geses . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 830       (ges . ,(ly:make-pitch -1 4 FLAT))
 831       (g . ,(ly:make-pitch -1 4 NATURAL))
 832       (gis . ,(ly:make-pitch -1 4 SHARP))
 833       (gisis . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 834       (asas . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 835       (ases . ,(ly:make-pitch -1 5 DOUBLE-FLAT))   ;;non-standard name for asas
 836       (as . ,(ly:make-pitch -1 5 FLAT))
 837       (a . ,(ly:make-pitch -1 5 NATURAL))
 838       (ais . ,(ly:make-pitch -1 5 SHARP))
 839       (aisis . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 840       (bb . ,(ly:make-pitch -1 6 DOUBLE-FLAT)) ;; should be bes. Kept for downwards compatibility
 841       (bes . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 842       (heses . ,(ly:make-pitch -1 6 DOUBLE-FLAT))  ;;non-standard name for bb
 843       (b . ,(ly:make-pitch -1 6 FLAT))
 844       (h . ,(ly:make-pitch -1 6 NATURAL))
 845       (his . ,(ly:make-pitch -1 6 SHARP))
 846       (hisis . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 847     ))
 848
 849
 850     ;; Language: Svenska -----------------------------------------------;
 851     ;; Mats Bengtsson <mabe@violin.s3.kth.se>
 852     ;;
 853     ;;  ess    = flat
 854     ;;  essess = double-flat
 855     ;;
 856     ;;  iss    = sharp
 857     ;;  ississ = double-sharp
 858     ;;
 859     ;;  English: c  d  e  f  g  a  bf b
 860     ;;  Swedish: c  d  e  f  g  a  b  h
 861
 862     (svenska . (
 863       (cessess . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
 864       (cess . ,(ly:make-pitch -1 0 FLAT))
 865       (c . ,(ly:make-pitch -1 0 NATURAL))
 866       (ciss . ,(ly:make-pitch -1 0 SHARP))
 867       (cississ . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 868       (dessess . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
 869       (dess . ,(ly:make-pitch -1 1 FLAT))
 870       (d . ,(ly:make-pitch -1 1 NATURAL))
 871       (diss . ,(ly:make-pitch -1 1 SHARP))
 872       (dississ . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 873       (essess . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 874       (ess . ,(ly:make-pitch -1 2 FLAT))
 875       (e . ,(ly:make-pitch -1 2 NATURAL))
 876       (eiss . ,(ly:make-pitch -1 2 SHARP))
 877       (eississ . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 878       (fessess . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
 879       (fess . ,(ly:make-pitch -1 3 FLAT))
 880       (f . ,(ly:make-pitch -1 3 NATURAL))
 881       (fiss . ,(ly:make-pitch -1 3 SHARP))
 882       (fississ . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 883       (gessess . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 884       (gess . ,(ly:make-pitch -1 4 FLAT))
 885       (g . ,(ly:make-pitch -1 4 NATURAL))
 886       (giss . ,(ly:make-pitch -1 4 SHARP))
 887       (gississ . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 888       (assess . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 889       (ass . ,(ly:make-pitch -1 5 FLAT))
 890       (a . ,(ly:make-pitch -1 5 NATURAL))
 891       (aiss . ,(ly:make-pitch -1 5 SHARP))
 892       (aississ . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 893       (hessess . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 894       (b . ,(ly:make-pitch -1 6 FLAT))
 895       (h . ,(ly:make-pitch -1 6 NATURAL))
 896       (hiss . ,(ly:make-pitch -1 6 SHARP))
 897       (hississ . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 898     ))
 899
 900
 901     ;; Language: Vlaams ------------------------------------------------;
 902     ;; Hendrik Maryns <hendrik.maryns@ugent.be>
 903     ;;
 904     ;;  b  = flat (bemol)
 905     ;;  bb = double-flat
 906     ;;
 907     ;;  k  = sharp (kruis)
 908     ;;  kk = double-sharp
 909     ;;
 910     ;;  English: c   d   e   f   g   a   b
 911     ;;  Flemish: do  re  mi  fa  sol la  si
 912
 913     (vlaams . (
 914       (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
 915       (dob . ,(ly:make-pitch -1 0 FLAT))
 916       (do . ,(ly:make-pitch -1 0 NATURAL))
 917       (dok . ,(ly:make-pitch -1 0 SHARP))
 918       (dokk . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 919
 920       (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
 921       (reb . ,(ly:make-pitch -1 1 FLAT))
 922       (re . ,(ly:make-pitch -1 1 NATURAL))
 923       (rek . ,(ly:make-pitch -1 1 SHARP))
 924       (rekk . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 925
 926       (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 927       (mib . ,(ly:make-pitch -1 2 FLAT))
 928       (mi . ,(ly:make-pitch -1 2 NATURAL))
 929       (mik . ,(ly:make-pitch -1 2 SHARP))
 930       (mikk . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 931
 932       (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
 933       (fab . ,(ly:make-pitch -1 3 FLAT))
 934       (fa . ,(ly:make-pitch -1 3 NATURAL))
 935       (fak . ,(ly:make-pitch -1 3 SHARP))
 936       (fakk . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 937
 938       (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 939       (solb . ,(ly:make-pitch -1 4 FLAT))
 940       (sol . ,(ly:make-pitch -1 4 NATURAL))
 941       (solk . ,(ly:make-pitch -1 4 SHARP))
 942       (solkk . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 943
 944       (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 945       (lab . ,(ly:make-pitch -1 5 FLAT))
 946       (la . ,(ly:make-pitch -1 5 NATURAL))
 947       (lak . ,(ly:make-pitch -1 5 SHARP))
 948       (lakk . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 949
 950       (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 951       (sib . ,(ly:make-pitch -1 6 FLAT))
 952       (si . ,(ly:make-pitch -1 6 NATURAL))
 953       (sik . ,(ly:make-pitch -1 6 SHARP))
 954       (sikk . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 955     ))
 956   ))
 957
 958 %% default note names are dutch
 959 #(define default-language
 960   (ly:assoc-get 'nederlands language-pitch-names '()))