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