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