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: Italiano ----------------------------------------------;
 539     ;; Paolo Zuliani <zuliap@easynet.it>,
 540     ;; Eric Wurbel <wurbel@univ-tln.fr>
 541     ;;
 542     ;;  b   = flat (bemolle)
 543     ;;  bb  = double-flat
 544     ;;  sb  = quarter-tone flat (semi-bemolle)
 545     ;;  bsb = three-quarter-tones flat
 546     ;;
 547     ;;  d   = sharp (diesis)
 548     ;;  dd  = double-sharp
 549     ;;  sd  = quarter-tone sharp (semi-diesis)
 550     ;;  dsd = three-quarter-tones sharp
 551     ;;
 552     ;;  English: c   d   e   f   g   a   b
 553     ;;  Italian: do  re  mi  fa  sol la  si
 554
 555     (italiano . (
 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
 566                  (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
 567                  (rebsb . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
 568                  (reb . ,(ly:make-pitch -1 1 FLAT))
 569                  (resb . ,(ly:make-pitch -1 1 SEMI-FLAT))
 570                  (re . ,(ly:make-pitch -1 1 NATURAL))
 571                  (resd . ,(ly:make-pitch -1 1 SEMI-SHARP))
 572                  (red . ,(ly:make-pitch -1 1 SHARP))
 573                  (redsd . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
 574                  (redd . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 575
 576                  (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 577                  (mibsb . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
 578                  (mib . ,(ly:make-pitch -1 2 FLAT))
 579                  (misb . ,(ly:make-pitch -1 2 SEMI-FLAT))
 580                  (mi . ,(ly:make-pitch -1 2 NATURAL))
 581                  (misd . ,(ly:make-pitch -1 2 SEMI-SHARP))
 582                  (mid . ,(ly:make-pitch -1 2 SHARP))
 583                  (midsd . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
 584                  (midd . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 585
 586                  (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
 587                  (fabsb . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
 588                  (fab . ,(ly:make-pitch -1 3 FLAT))
 589                  (fasb . ,(ly:make-pitch -1 3 SEMI-FLAT))
 590                  (fa . ,(ly:make-pitch -1 3 NATURAL))
 591                  (fasd . ,(ly:make-pitch -1 3 SEMI-SHARP))
 592                  (fad . ,(ly:make-pitch -1 3 SHARP))
 593                  (fadsd . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
 594                  (fadd . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 595
 596                  (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 597                  (solbsb . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
 598                  (solb . ,(ly:make-pitch -1 4 FLAT))
 599                  (solsb . ,(ly:make-pitch -1 4 SEMI-FLAT))
 600                  (sol . ,(ly:make-pitch -1 4 NATURAL))
 601                  (solsd . ,(ly:make-pitch -1 4 SEMI-SHARP))
 602                  (sold . ,(ly:make-pitch -1 4 SHARP))
 603                  (soldsd . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
 604                  (soldd . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 605
 606                  (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 607                  (labsb . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
 608                  (lab . ,(ly:make-pitch -1 5 FLAT))
 609                  (lasb . ,(ly:make-pitch -1 5 SEMI-FLAT))
 610                  (la . ,(ly:make-pitch -1 5 NATURAL))
 611                  (lasd . ,(ly:make-pitch -1 5 SEMI-SHARP))
 612                  (lad . ,(ly:make-pitch -1 5 SHARP))
 613                  (ladsd . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
 614                  (ladd . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 615
 616                  (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 617                  (sibsb . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
 618                  (sib . ,(ly:make-pitch -1 6 FLAT))
 619                  (sisb . ,(ly:make-pitch -1 6 SEMI-FLAT))
 620                  (si . ,(ly:make-pitch -1 6 NATURAL))
 621                  (sisd . ,(ly:make-pitch -1 6 SEMI-SHARP))
 622                  (sid . ,(ly:make-pitch -1 6 SHARP))
 623                  (sidsd . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
 624                  (sidd . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 625                  ))
 626
 627
 628     ;; Language: Norsk -------------------------------------------------;
 629     ;; Arvid Grøtting <arvidg@ifi.uio.no>
 630     ;;
 631     ;;  es     = flat
 632     ;;  ess    = flat
 633     ;;  eses   = double-flat
 634     ;;  essess = double-flat
 635     ;;
 636     ;;  is     = sharp
 637     ;;  iss    = sharp
 638     ;;  isis   = double-sharp
 639     ;;  ississ = double-sharp
 640     ;;
 641     ;;    English: c  d  e  f  g  a  bf b
 642     ;;  Norwegian: c  d  e  f  g  a  b  h
 643
 644     (norsk . (
 645               (ceses . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
 646               (cessess . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
 647               (ces . ,(ly:make-pitch -1 0 FLAT))
 648               (cess . ,(ly:make-pitch -1 0 FLAT))
 649               (c . ,(ly:make-pitch -1 0 NATURAL))
 650               (cis . ,(ly:make-pitch -1 0 SHARP))
 651               (ciss . ,(ly:make-pitch -1 0 SHARP))
 652               (cisis . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 653               (cississ . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 654
 655               (deses . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
 656               (dessess . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
 657               (des . ,(ly:make-pitch -1 1 FLAT))
 658               (dess . ,(ly:make-pitch -1 1 FLAT))
 659               (d . ,(ly:make-pitch -1 1 NATURAL))
 660               (dis . ,(ly:make-pitch -1 1 SHARP))
 661               (diss . ,(ly:make-pitch -1 1 SHARP))
 662               (disis . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 663               (dississ . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 664
 665               (eeses . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 666               (eessess . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 667               (eses . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 668               (essess . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 669               (ees . ,(ly:make-pitch -1 2 FLAT))
 670               (eess . ,(ly:make-pitch -1 2 FLAT))
 671               (es . ,(ly:make-pitch -1 2 FLAT))
 672               (ess . ,(ly:make-pitch -1 2 FLAT))
 673               (e . ,(ly:make-pitch -1 2 NATURAL))
 674               (eis . ,(ly:make-pitch -1 2 SHARP))
 675               (eiss . ,(ly:make-pitch -1 2 SHARP))
 676               (eisis . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 677               (eississ . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 678
 679               (feses . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
 680               (fessess . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
 681               (fes . ,(ly:make-pitch -1 3 FLAT))
 682               (fess . ,(ly:make-pitch -1 3 FLAT))
 683               (f . ,(ly:make-pitch -1 3 NATURAL))
 684               (fis . ,(ly:make-pitch -1 3 SHARP))
 685               (fiss . ,(ly:make-pitch -1 3 SHARP))
 686               (fisis . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 687               (fississ . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 688
 689               (geses . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 690               (gessess . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 691               (ges . ,(ly:make-pitch -1 4 FLAT))
 692               (gess . ,(ly:make-pitch -1 4 FLAT))
 693               (g . ,(ly:make-pitch -1 4 NATURAL))
 694               (g . ,(ly:make-pitch -1 4 NATURAL))
 695               (gis . ,(ly:make-pitch -1 4 SHARP))
 696               (giss . ,(ly:make-pitch -1 4 SHARP))
 697               (gisis . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 698               (gississ . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 699
 700               (aeses . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 701               (aessess . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 702               (ases . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 703               (assess . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 704               (aes . ,(ly:make-pitch -1 5 FLAT))
 705               (aess . ,(ly:make-pitch -1 5 FLAT))
 706               (as . ,(ly:make-pitch -1 5 FLAT))
 707               (ass . ,(ly:make-pitch -1 5 FLAT))
 708               (a . ,(ly:make-pitch -1 5 NATURAL))
 709               (ais . ,(ly:make-pitch -1 5 SHARP))
 710               (aiss . ,(ly:make-pitch -1 5 SHARP))
 711               (aisis . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 712               (aississ . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 713
 714               (bes . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 715               (bess . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 716               (b . ,(ly:make-pitch -1 6 FLAT))
 717               (b . ,(ly:make-pitch -1 6 FLAT))
 718               (h . ,(ly:make-pitch -1 6 NATURAL))
 719               (his . ,(ly:make-pitch -1 6 SHARP))
 720               (hiss . ,(ly:make-pitch -1 6 SHARP))
 721               (hisis . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 722               (hississ . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 723               ))
 724
 725
 726     ;; Language: Portugues ---------------------------------------------;
 727     ;; Pedro Kröger <kroeger@pedrokroeger.net>
 728     ;;
 729     ;;  b    = flat (bemol)
 730     ;;  bb   = double-flat
 731     ;;  bqt  = quarter-tone flat
 732     ;;  btqt = three-quarter-tones flat
 733     ;;
 734     ;;  s    = sharp (sustenido)
 735     ;;  ss   = double-sharp
 736     ;;  sqt  = quarter-tone sharp
 737     ;;  stqt = three-quarter-tones sharp
 738     ;;
 739     ;;     English: c   d   e   f   g   a   b
 740     ;;  Portuguese: do  re  mi  fa  sol la  si
 741
 742     (portugues . (
 743                   (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
 744                   (dobtqt . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
 745                   (dob . ,(ly:make-pitch -1 0 FLAT))
 746                   (dobqt . ,(ly:make-pitch -1 0 SEMI-FLAT))
 747                   (do . ,(ly:make-pitch -1 0 NATURAL))
 748                   (dosqt . ,(ly:make-pitch -1 0 SEMI-SHARP))
 749                   (dos . ,(ly:make-pitch -1 0 SHARP))
 750                   (dostqt . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
 751                   (doss . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 752
 753                   (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
 754                   (rebtqt . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
 755                   (reb . ,(ly:make-pitch -1 1 FLAT))
 756                   (rebqt . ,(ly:make-pitch -1 1 SEMI-FLAT))
 757                   (re . ,(ly:make-pitch -1 1 NATURAL))
 758                   (resqt . ,(ly:make-pitch -1 1 SEMI-SHARP))
 759                   (res . ,(ly:make-pitch -1 1 SHARP))
 760                   (restqt . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
 761                   (ress . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 762
 763                   (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 764                   (mibtqt . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
 765                   (mib . ,(ly:make-pitch -1 2 FLAT))
 766                   (mibqt . ,(ly:make-pitch -1 2 SEMI-FLAT))
 767                   (mi . ,(ly:make-pitch -1 2 NATURAL))
 768                   (misqt . ,(ly:make-pitch -1 2 SEMI-SHARP))
 769                   (mis . ,(ly:make-pitch -1 2 SHARP))
 770                   (mistqt . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
 771                   (miss . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 772
 773                   (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
 774                   (fabtqt . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
 775                   (fab . ,(ly:make-pitch -1 3 FLAT))
 776                   (fabqt . ,(ly:make-pitch -1 3 SEMI-FLAT))
 777                   (fa . ,(ly:make-pitch -1 3 NATURAL))
 778                   (fasqt . ,(ly:make-pitch -1 3 SEMI-SHARP))
 779                   (fas . ,(ly:make-pitch -1 3 SHARP))
 780                   (fastqt . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
 781                   (fass . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 782
 783                   (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 784                   (solbtqt . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
 785                   (solb . ,(ly:make-pitch -1 4 FLAT))
 786                   (solbqt . ,(ly:make-pitch -1 4 SEMI-FLAT))
 787                   (sol . ,(ly:make-pitch -1 4 NATURAL))
 788                   (solsqt . ,(ly:make-pitch -1 4 SEMI-SHARP))
 789                   (sols . ,(ly:make-pitch -1 4 SHARP))
 790                   (solstqt . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
 791                   (solss . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 792
 793                   (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 794                   (labtqt . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
 795                   (lab . ,(ly:make-pitch -1 5 FLAT))
 796                   (labqt . ,(ly:make-pitch -1 5 SEMI-FLAT))
 797                   (la . ,(ly:make-pitch -1 5 NATURAL))
 798                   (lasqt . ,(ly:make-pitch -1 5 SEMI-SHARP))
 799                   (las . ,(ly:make-pitch -1 5 SHARP))
 800                   (lastqt . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
 801                   (lass . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 802
 803                   (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 804                   (sibtqt . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
 805                   (sib . ,(ly:make-pitch -1 6 FLAT))
 806                   (sibqt . ,(ly:make-pitch -1 6 SEMI-FLAT))
 807                   (si . ,(ly:make-pitch -1 6 NATURAL))
 808                   (sisqt . ,(ly:make-pitch -1 6 SEMI-SHARP))
 809                   (sis . ,(ly:make-pitch -1 6 SHARP))
 810                   (sistqt . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
 811                   (siss . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 812                   ))
 813
 814
 815     ;; Language: Suomi -------------------------------------------------;
 816     ;; Heikki Junes <heikki.junes@hut.fi>
 817     ;;
 818     ;;  es   = flat
 819     ;;  eses = double-flat
 820     ;;
 821     ;;  is   = sharp
 822     ;;  isis = double-sharp
 823     ;;
 824     ;;  English: c  d  e  f  g  a  bf b
 825     ;;  Finnish: c  d  e  f  g  a  b  h
 826
 827     (suomi . (
 828               (ceses . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
 829               (ces . ,(ly:make-pitch -1 0 FLAT))
 830               (c . ,(ly:make-pitch -1 0 NATURAL))
 831               (cis . ,(ly:make-pitch -1 0 SHARP))
 832               (cisis . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 833
 834               (deses . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
 835               (des . ,(ly:make-pitch -1 1 FLAT))
 836               (d . ,(ly:make-pitch -1 1 NATURAL))
 837               (dis . ,(ly:make-pitch -1 1 SHARP))
 838               (disis . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 839
 840               (eses . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 841               (es . ,(ly:make-pitch -1 2 FLAT))
 842               (e . ,(ly:make-pitch -1 2 NATURAL))
 843               (eis . ,(ly:make-pitch -1 2 SHARP))
 844               (eisis . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 845
 846               (feses . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
 847               (fes . ,(ly:make-pitch -1 3 FLAT))
 848               (f . ,(ly:make-pitch -1 3 NATURAL))
 849               (fis . ,(ly:make-pitch -1 3 SHARP))
 850               (fisis . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 851
 852               (geses . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 853               (ges . ,(ly:make-pitch -1 4 FLAT))
 854               (g . ,(ly:make-pitch -1 4 NATURAL))
 855               (gis . ,(ly:make-pitch -1 4 SHARP))
 856               (gisis . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 857
 858               (asas . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 859               (ases . ,(ly:make-pitch -1 5 DOUBLE-FLAT))   ;; non-standard name for asas
 860               (as . ,(ly:make-pitch -1 5 FLAT))
 861               (a . ,(ly:make-pitch -1 5 NATURAL))
 862               (ais . ,(ly:make-pitch -1 5 SHARP))
 863               (aisis . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 864
 865               (bb . ,(ly:make-pitch -1 6 DOUBLE-FLAT)) ;; should be bes; kept for downwards compatibility
 866               (bes . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 867               (heses . ,(ly:make-pitch -1 6 DOUBLE-FLAT))  ;; non-standard name for bb
 868               (b . ,(ly:make-pitch -1 6 FLAT))
 869               (h . ,(ly:make-pitch -1 6 NATURAL))
 870               (his . ,(ly:make-pitch -1 6 SHARP))
 871               (hisis . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 872               ))
 873
 874
 875     ;; Language: Svenska -----------------------------------------------;
 876     ;; Mats Bengtsson <mabe@violin.s3.kth.se>
 877     ;;
 878     ;;  ess    = flat
 879     ;;  essess = double-flat
 880     ;;
 881     ;;  iss    = sharp
 882     ;;  ississ = double-sharp
 883     ;;
 884     ;;  English: c  d  e  f  g  a  bf b
 885     ;;  Swedish: c  d  e  f  g  a  b  h
 886
 887     (svenska . (
 888                 (cessess . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
 889                 (cess . ,(ly:make-pitch -1 0 FLAT))
 890                 (c . ,(ly:make-pitch -1 0 NATURAL))
 891                 (ciss . ,(ly:make-pitch -1 0 SHARP))
 892                 (cississ . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 893
 894                 (dessess . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
 895                 (dess . ,(ly:make-pitch -1 1 FLAT))
 896                 (d . ,(ly:make-pitch -1 1 NATURAL))
 897                 (diss . ,(ly:make-pitch -1 1 SHARP))
 898                 (dississ . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 899
 900                 (essess . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 901                 (ess . ,(ly:make-pitch -1 2 FLAT))
 902                 (e . ,(ly:make-pitch -1 2 NATURAL))
 903                 (eiss . ,(ly:make-pitch -1 2 SHARP))
 904                 (eississ . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 905
 906                 (fessess . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
 907                 (fess . ,(ly:make-pitch -1 3 FLAT))
 908                 (f . ,(ly:make-pitch -1 3 NATURAL))
 909                 (fiss . ,(ly:make-pitch -1 3 SHARP))
 910                 (fississ . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 911
 912                 (gessess . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 913                 (gess . ,(ly:make-pitch -1 4 FLAT))
 914                 (g . ,(ly:make-pitch -1 4 NATURAL))
 915                 (giss . ,(ly:make-pitch -1 4 SHARP))
 916                 (gississ . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 917
 918                 (assess . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 919                 (ass . ,(ly:make-pitch -1 5 FLAT))
 920                 (a . ,(ly:make-pitch -1 5 NATURAL))
 921                 (aiss . ,(ly:make-pitch -1 5 SHARP))
 922                 (aississ . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 923
 924                 (hessess . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 925                 (b . ,(ly:make-pitch -1 6 FLAT))
 926                 (h . ,(ly:make-pitch -1 6 NATURAL))
 927                 (hiss . ,(ly:make-pitch -1 6 SHARP))
 928                 (hississ . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 929                 ))
 930
 931
 932     ;; Language: Vlaams ------------------------------------------------;
 933     ;; Hendrik Maryns <hendrik.maryns@ugent.be>
 934     ;;
 935     ;;  b  = flat (bemol)
 936     ;;  bb = double-flat
 937     ;;
 938     ;;  k  = sharp (kruis)
 939     ;;  kk = double-sharp
 940     ;;
 941     ;;  English: c   d   e   f   g   a   b
 942     ;;  Flemish: do  re  mi  fa  sol la  si
 943
 944     (vlaams . (
 945                (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
 946                (dob . ,(ly:make-pitch -1 0 FLAT))
 947                (do . ,(ly:make-pitch -1 0 NATURAL))
 948                (dok . ,(ly:make-pitch -1 0 SHARP))
 949                (dokk . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
 950
 951                (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
 952                (reb . ,(ly:make-pitch -1 1 FLAT))
 953                (re . ,(ly:make-pitch -1 1 NATURAL))
 954                (rek . ,(ly:make-pitch -1 1 SHARP))
 955                (rekk . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
 956
 957                (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
 958                (mib . ,(ly:make-pitch -1 2 FLAT))
 959                (mi . ,(ly:make-pitch -1 2 NATURAL))
 960                (mik . ,(ly:make-pitch -1 2 SHARP))
 961                (mikk . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
 962
 963                (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
 964                (fab . ,(ly:make-pitch -1 3 FLAT))
 965                (fa . ,(ly:make-pitch -1 3 NATURAL))
 966                (fak . ,(ly:make-pitch -1 3 SHARP))
 967                (fakk . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
 968
 969                (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
 970                (solb . ,(ly:make-pitch -1 4 FLAT))
 971                (sol . ,(ly:make-pitch -1 4 NATURAL))
 972                (solk . ,(ly:make-pitch -1 4 SHARP))
 973                (solkk . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
 974
 975                (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
 976                (lab . ,(ly:make-pitch -1 5 FLAT))
 977                (la . ,(ly:make-pitch -1 5 NATURAL))
 978                (lak . ,(ly:make-pitch -1 5 SHARP))
 979                (lakk . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
 980
 981                (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
 982                (sib . ,(ly:make-pitch -1 6 FLAT))
 983                (si . ,(ly:make-pitch -1 6 NATURAL))
 984                (sik . ,(ly:make-pitch -1 6 SHARP))
 985                (sikk . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 986                ))
 987     ))
 988
 989 ;; add two native utf-8 aliases. Pairs obey cp-like order: '(old new)
 990 (for-each
 991  (lambda (pair)
 992    (set! language-pitch-names
 993          (append language-pitch-names
 994                  (list (cons (cadr pair)
 995                              (cdr (assoc (car pair) language-pitch-names)))))))
 996  '((espanol español)
 997    (italiano français)))
 998
 999 (define-public (note-names-language str)
1000   (_ "Select note names language.")
1001   (let ((alist (assoc-get (string->symbol str)
1002                           language-pitch-names
1003                           '())))
1004     (if (pair? alist)
1005         (begin
1006           (ly:debug (_ "Using `~a' note names...") str)
1007           (set! pitchnames alist)
1008           (ly:parser-set-note-names alist))
1009         (ly:warning (_ "Could not find language `~a'.  Ignoring.") str))))