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