scm/define-note-names.scm

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