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-public pitchnames '())
37 (define-public default-language "")
38 (define-public previous-pitchnames #f)
40 (define-public language-pitch-names
42 ;; Language: Nederlands --------------------------------------------;
43 ;; Dutch note names -- LilyPond's default language.
44 ;; Han-Wen Nienhuys <hanwen@xs4all.nl>
48 ;; eh = quarter-tone flat
49 ;; eseh = three-quarter-tones flat
52 ;; isis = double-sharp
53 ;; ih = quarter-tone sharp
54 ;; isih = three-quarter-tones sharp
56 ;; English: c d e f g a bf b
57 ;; Dutch: c d e f g a b h
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))
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))
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))
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))
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))
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))
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))
136 ;; Language: Catalan -----------------------------------------------;
137 ;; Jaume Obrador <jobrador@ipc4.uib.es>
145 ;; s = sharp (sostingut)
148 ;; English: c d e f g a b
149 ;; Catalan: do re mi fa sol la si
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))
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))
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))
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))
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))
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))
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))
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))
212 ;; Language: Deutsch -----------------------------------------------;
213 ;; Roland Meier <meier@informatik.th-darmstadt.de>,
214 ;; Bjoern Jacke <bjoern.jacke@gmx.de>
217 ;; eses = double-flat
218 ;; eh = quarter-tone flat
219 ;; eseh = three-quarter-tones flat
222 ;; isis = double-sharp
223 ;; ih = quarter-tone sharp
224 ;; isih = three-quarter-tones sharp
226 ;; English: c d e f g a bf b
227 ;; German: c d e f g a b h
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))
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))
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))
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))
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))
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))
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))
304 ;; Language: English -----------------------------------------------;
305 ;; Han-Wen Nienhuys <hanwen@xs4all.nl>
309 ;; qf = quarter[-tone] flat
310 ;; tqf = three-quarter[-tones] flat
315 ;; qs = quarter[-tone] sharp
316 ;; tqs = three-quarter[-tones] sharp
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))
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))
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))
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))
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))
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))
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))
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))
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))
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))
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))
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))
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))
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))
440 ;; Language: Espanol -----------------------------------------------;
441 ;; Carlos García Suárez <cgscqmp@terra.es>,
442 ;; Maximiliano G. G. <mxgdvg@yahoo.it>
446 ;; cb = quarter-tone flat (cuarto [de tono de] bemol)
447 ;; tcb = three-quarter-tones flat (tres cuartos [de tonos de] bemol)
449 ;; s = sharp (sostenido)
452 ;; cs = quarter-tone sharp (cuarto [de tono de] sostenido)
453 ;; tcs = three-quarter-tones sharp (tres cuartos [de tonos de] sostenido)
455 ;; English: c d e f g a b
456 ;; Spanish: do re mi fa sol la si
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))
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))
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))
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))
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))
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))
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))
538 ;; Language: Français ----------------------------------------------;
539 ;; Valentin Villenave <valentin@villenave.net>,
543 ;; sb = quarter-tone flat (demi-bémol)
544 ;; bsb = three-quarter-tones flat
549 ;; sd = quarter-tone sharp (demi-dièse)
550 ;; dsd = three-quarter-tones sharp
552 ;; English: c d e f g a b
553 ;; French: do ré mi fa sol la si
556 (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
557 (dobsb . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
558 (dob . ,(ly:make-pitch -1 0 FLAT))
559 (dosb . ,(ly:make-pitch -1 0 SEMI-FLAT))
560 (do . ,(ly:make-pitch -1 0 NATURAL))
561 (dosd . ,(ly:make-pitch -1 0 SEMI-SHARP))
562 (dod . ,(ly:make-pitch -1 0 SHARP))
563 (dodsd . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
564 (dodd . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
565 (dox . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
567 (rébb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
568 (rébsb . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
569 (réb . ,(ly:make-pitch -1 1 FLAT))
570 (résb . ,(ly:make-pitch -1 1 SEMI-FLAT))
571 (ré . ,(ly:make-pitch -1 1 NATURAL))
572 (résd . ,(ly:make-pitch -1 1 SEMI-SHARP))
573 (réd . ,(ly:make-pitch -1 1 SHARP))
574 (rédsd . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
575 (rédd . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
576 (réx . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
578 (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
579 (rebsb . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
580 (reb . ,(ly:make-pitch -1 1 FLAT))
581 (resb . ,(ly:make-pitch -1 1 SEMI-FLAT))
582 (re . ,(ly:make-pitch -1 1 NATURAL))
583 (resd . ,(ly:make-pitch -1 1 SEMI-SHARP))
584 (red . ,(ly:make-pitch -1 1 SHARP))
585 (redsd . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
586 (redd . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
587 (rex . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
589 (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
590 (mibsb . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
591 (mib . ,(ly:make-pitch -1 2 FLAT))
592 (misb . ,(ly:make-pitch -1 2 SEMI-FLAT))
593 (mi . ,(ly:make-pitch -1 2 NATURAL))
594 (misd . ,(ly:make-pitch -1 2 SEMI-SHARP))
595 (mid . ,(ly:make-pitch -1 2 SHARP))
596 (midsd . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
597 (midd . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
598 (mix . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
600 (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
601 (fabsb . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
602 (fab . ,(ly:make-pitch -1 3 FLAT))
603 (fasb . ,(ly:make-pitch -1 3 SEMI-FLAT))
604 (fa . ,(ly:make-pitch -1 3 NATURAL))
605 (fasd . ,(ly:make-pitch -1 3 SEMI-SHARP))
606 (fad . ,(ly:make-pitch -1 3 SHARP))
607 (fadsd . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
608 (fadd . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
609 (fax . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
611 (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
612 (solbsb . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
613 (solb . ,(ly:make-pitch -1 4 FLAT))
614 (solsb . ,(ly:make-pitch -1 4 SEMI-FLAT))
615 (sol . ,(ly:make-pitch -1 4 NATURAL))
616 (solsd . ,(ly:make-pitch -1 4 SEMI-SHARP))
617 (sold . ,(ly:make-pitch -1 4 SHARP))
618 (soldsd . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
619 (soldd . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
620 (solx . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
622 (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
623 (labsb . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
624 (lab . ,(ly:make-pitch -1 5 FLAT))
625 (lasb . ,(ly:make-pitch -1 5 SEMI-FLAT))
626 (la . ,(ly:make-pitch -1 5 NATURAL))
627 (lasd . ,(ly:make-pitch -1 5 SEMI-SHARP))
628 (lad . ,(ly:make-pitch -1 5 SHARP))
629 (ladsd . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
630 (ladd . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
631 (lax . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
633 (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
634 (sibsb . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
635 (sib . ,(ly:make-pitch -1 6 FLAT))
636 (sisb . ,(ly:make-pitch -1 6 SEMI-FLAT))
637 (si . ,(ly:make-pitch -1 6 NATURAL))
638 (sisd . ,(ly:make-pitch -1 6 SEMI-SHARP))
639 (sid . ,(ly:make-pitch -1 6 SHARP))
640 (sidsd . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
641 (sidd . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
642 (six . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
646 ;; Language: Italiano ----------------------------------------------;
647 ;; Paolo Zuliani <zuliap@easynet.it>,
648 ;; Eric Wurbel <wurbel@univ-tln.fr>
650 ;; b = flat (bemolle)
652 ;; sb = quarter-tone flat (semi-bemolle)
653 ;; bsb = three-quarter-tones flat
655 ;; d = sharp (diesis)
657 ;; sd = quarter-tone sharp (semi-diesis)
658 ;; dsd = three-quarter-tones sharp
660 ;; English: c d e f g a b
661 ;; Italian: do re mi fa sol la si
664 (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
665 (dobsb . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
666 (dob . ,(ly:make-pitch -1 0 FLAT))
667 (dosb . ,(ly:make-pitch -1 0 SEMI-FLAT))
668 (do . ,(ly:make-pitch -1 0 NATURAL))
669 (dosd . ,(ly:make-pitch -1 0 SEMI-SHARP))
670 (dod . ,(ly:make-pitch -1 0 SHARP))
671 (dodsd . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
672 (dodd . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
674 (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
675 (rebsb . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
676 (reb . ,(ly:make-pitch -1 1 FLAT))
677 (resb . ,(ly:make-pitch -1 1 SEMI-FLAT))
678 (re . ,(ly:make-pitch -1 1 NATURAL))
679 (resd . ,(ly:make-pitch -1 1 SEMI-SHARP))
680 (red . ,(ly:make-pitch -1 1 SHARP))
681 (redsd . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
682 (redd . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
684 (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
685 (mibsb . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
686 (mib . ,(ly:make-pitch -1 2 FLAT))
687 (misb . ,(ly:make-pitch -1 2 SEMI-FLAT))
688 (mi . ,(ly:make-pitch -1 2 NATURAL))
689 (misd . ,(ly:make-pitch -1 2 SEMI-SHARP))
690 (mid . ,(ly:make-pitch -1 2 SHARP))
691 (midsd . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
692 (midd . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
694 (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
695 (fabsb . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
696 (fab . ,(ly:make-pitch -1 3 FLAT))
697 (fasb . ,(ly:make-pitch -1 3 SEMI-FLAT))
698 (fa . ,(ly:make-pitch -1 3 NATURAL))
699 (fasd . ,(ly:make-pitch -1 3 SEMI-SHARP))
700 (fad . ,(ly:make-pitch -1 3 SHARP))
701 (fadsd . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
702 (fadd . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
704 (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
705 (solbsb . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
706 (solb . ,(ly:make-pitch -1 4 FLAT))
707 (solsb . ,(ly:make-pitch -1 4 SEMI-FLAT))
708 (sol . ,(ly:make-pitch -1 4 NATURAL))
709 (solsd . ,(ly:make-pitch -1 4 SEMI-SHARP))
710 (sold . ,(ly:make-pitch -1 4 SHARP))
711 (soldsd . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
712 (soldd . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
714 (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
715 (labsb . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
716 (lab . ,(ly:make-pitch -1 5 FLAT))
717 (lasb . ,(ly:make-pitch -1 5 SEMI-FLAT))
718 (la . ,(ly:make-pitch -1 5 NATURAL))
719 (lasd . ,(ly:make-pitch -1 5 SEMI-SHARP))
720 (lad . ,(ly:make-pitch -1 5 SHARP))
721 (ladsd . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
722 (ladd . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
724 (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
725 (sibsb . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
726 (sib . ,(ly:make-pitch -1 6 FLAT))
727 (sisb . ,(ly:make-pitch -1 6 SEMI-FLAT))
728 (si . ,(ly:make-pitch -1 6 NATURAL))
729 (sisd . ,(ly:make-pitch -1 6 SEMI-SHARP))
730 (sid . ,(ly:make-pitch -1 6 SHARP))
731 (sidsd . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
732 (sidd . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
736 ;; Language: Norsk -------------------------------------------------;
737 ;; Arvid Grøtting <arvidg@ifi.uio.no>
741 ;; eses = double-flat
742 ;; essess = double-flat
746 ;; isis = double-sharp
747 ;; ississ = double-sharp
749 ;; English: c d e f g a bf b
750 ;; Norwegian: c d e f g a b h
753 (ceses . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
754 (cessess . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
755 (ces . ,(ly:make-pitch -1 0 FLAT))
756 (cess . ,(ly:make-pitch -1 0 FLAT))
757 (c . ,(ly:make-pitch -1 0 NATURAL))
758 (cis . ,(ly:make-pitch -1 0 SHARP))
759 (ciss . ,(ly:make-pitch -1 0 SHARP))
760 (cisis . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
761 (cississ . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
763 (deses . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
764 (dessess . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
765 (des . ,(ly:make-pitch -1 1 FLAT))
766 (dess . ,(ly:make-pitch -1 1 FLAT))
767 (d . ,(ly:make-pitch -1 1 NATURAL))
768 (dis . ,(ly:make-pitch -1 1 SHARP))
769 (diss . ,(ly:make-pitch -1 1 SHARP))
770 (disis . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
771 (dississ . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
773 (eeses . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
774 (eessess . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
775 (eses . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
776 (essess . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
777 (ees . ,(ly:make-pitch -1 2 FLAT))
778 (eess . ,(ly:make-pitch -1 2 FLAT))
779 (es . ,(ly:make-pitch -1 2 FLAT))
780 (ess . ,(ly:make-pitch -1 2 FLAT))
781 (e . ,(ly:make-pitch -1 2 NATURAL))
782 (eis . ,(ly:make-pitch -1 2 SHARP))
783 (eiss . ,(ly:make-pitch -1 2 SHARP))
784 (eisis . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
785 (eississ . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
787 (feses . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
788 (fessess . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
789 (fes . ,(ly:make-pitch -1 3 FLAT))
790 (fess . ,(ly:make-pitch -1 3 FLAT))
791 (f . ,(ly:make-pitch -1 3 NATURAL))
792 (fis . ,(ly:make-pitch -1 3 SHARP))
793 (fiss . ,(ly:make-pitch -1 3 SHARP))
794 (fisis . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
795 (fississ . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
797 (geses . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
798 (gessess . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
799 (ges . ,(ly:make-pitch -1 4 FLAT))
800 (gess . ,(ly:make-pitch -1 4 FLAT))
801 (g . ,(ly:make-pitch -1 4 NATURAL))
802 (g . ,(ly:make-pitch -1 4 NATURAL))
803 (gis . ,(ly:make-pitch -1 4 SHARP))
804 (giss . ,(ly:make-pitch -1 4 SHARP))
805 (gisis . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
806 (gississ . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
808 (aeses . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
809 (aessess . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
810 (ases . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
811 (assess . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
812 (aes . ,(ly:make-pitch -1 5 FLAT))
813 (aess . ,(ly:make-pitch -1 5 FLAT))
814 (as . ,(ly:make-pitch -1 5 FLAT))
815 (ass . ,(ly:make-pitch -1 5 FLAT))
816 (a . ,(ly:make-pitch -1 5 NATURAL))
817 (ais . ,(ly:make-pitch -1 5 SHARP))
818 (aiss . ,(ly:make-pitch -1 5 SHARP))
819 (aisis . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
820 (aississ . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
822 (bes . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
823 (bess . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
824 (b . ,(ly:make-pitch -1 6 FLAT))
825 (b . ,(ly:make-pitch -1 6 FLAT))
826 (h . ,(ly:make-pitch -1 6 NATURAL))
827 (his . ,(ly:make-pitch -1 6 SHARP))
828 (hiss . ,(ly:make-pitch -1 6 SHARP))
829 (hisis . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
830 (hississ . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
834 ;; Language: Portugues ---------------------------------------------;
835 ;; Pedro Kröger <kroeger@pedrokroeger.net>
839 ;; bqt = quarter-tone flat
840 ;; btqt = three-quarter-tones flat
842 ;; s = sharp (sustenido)
844 ;; sqt = quarter-tone sharp
845 ;; stqt = three-quarter-tones sharp
847 ;; English: c d e f g a b
848 ;; Portuguese: do re mi fa sol la si
851 (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
852 (dobtqt . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
853 (dob . ,(ly:make-pitch -1 0 FLAT))
854 (dobqt . ,(ly:make-pitch -1 0 SEMI-FLAT))
855 (do . ,(ly:make-pitch -1 0 NATURAL))
856 (dosqt . ,(ly:make-pitch -1 0 SEMI-SHARP))
857 (dos . ,(ly:make-pitch -1 0 SHARP))
858 (dostqt . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
859 (doss . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
861 (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
862 (rebtqt . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
863 (reb . ,(ly:make-pitch -1 1 FLAT))
864 (rebqt . ,(ly:make-pitch -1 1 SEMI-FLAT))
865 (re . ,(ly:make-pitch -1 1 NATURAL))
866 (resqt . ,(ly:make-pitch -1 1 SEMI-SHARP))
867 (res . ,(ly:make-pitch -1 1 SHARP))
868 (restqt . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
869 (ress . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
871 (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
872 (mibtqt . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
873 (mib . ,(ly:make-pitch -1 2 FLAT))
874 (mibqt . ,(ly:make-pitch -1 2 SEMI-FLAT))
875 (mi . ,(ly:make-pitch -1 2 NATURAL))
876 (misqt . ,(ly:make-pitch -1 2 SEMI-SHARP))
877 (mis . ,(ly:make-pitch -1 2 SHARP))
878 (mistqt . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
879 (miss . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
881 (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
882 (fabtqt . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
883 (fab . ,(ly:make-pitch -1 3 FLAT))
884 (fabqt . ,(ly:make-pitch -1 3 SEMI-FLAT))
885 (fa . ,(ly:make-pitch -1 3 NATURAL))
886 (fasqt . ,(ly:make-pitch -1 3 SEMI-SHARP))
887 (fas . ,(ly:make-pitch -1 3 SHARP))
888 (fastqt . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
889 (fass . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
891 (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
892 (solbtqt . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
893 (solb . ,(ly:make-pitch -1 4 FLAT))
894 (solbqt . ,(ly:make-pitch -1 4 SEMI-FLAT))
895 (sol . ,(ly:make-pitch -1 4 NATURAL))
896 (solsqt . ,(ly:make-pitch -1 4 SEMI-SHARP))
897 (sols . ,(ly:make-pitch -1 4 SHARP))
898 (solstqt . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
899 (solss . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
901 (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
902 (labtqt . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
903 (lab . ,(ly:make-pitch -1 5 FLAT))
904 (labqt . ,(ly:make-pitch -1 5 SEMI-FLAT))
905 (la . ,(ly:make-pitch -1 5 NATURAL))
906 (lasqt . ,(ly:make-pitch -1 5 SEMI-SHARP))
907 (las . ,(ly:make-pitch -1 5 SHARP))
908 (lastqt . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
909 (lass . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
911 (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
912 (sibtqt . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
913 (sib . ,(ly:make-pitch -1 6 FLAT))
914 (sibqt . ,(ly:make-pitch -1 6 SEMI-FLAT))
915 (si . ,(ly:make-pitch -1 6 NATURAL))
916 (sisqt . ,(ly:make-pitch -1 6 SEMI-SHARP))
917 (sis . ,(ly:make-pitch -1 6 SHARP))
918 (sistqt . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
919 (siss . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
923 ;; Language: Suomi -------------------------------------------------;
924 ;; Heikki Junes <heikki.junes@hut.fi>
927 ;; eses = double-flat
930 ;; isis = double-sharp
932 ;; English: c d e f g a bf b
933 ;; Finnish: c d e f g a b h
936 (ceses . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
937 (ces . ,(ly:make-pitch -1 0 FLAT))
938 (c . ,(ly:make-pitch -1 0 NATURAL))
939 (cis . ,(ly:make-pitch -1 0 SHARP))
940 (cisis . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
942 (deses . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
943 (des . ,(ly:make-pitch -1 1 FLAT))
944 (d . ,(ly:make-pitch -1 1 NATURAL))
945 (dis . ,(ly:make-pitch -1 1 SHARP))
946 (disis . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
948 (eses . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
949 (es . ,(ly:make-pitch -1 2 FLAT))
950 (e . ,(ly:make-pitch -1 2 NATURAL))
951 (eis . ,(ly:make-pitch -1 2 SHARP))
952 (eisis . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
954 (feses . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
955 (fes . ,(ly:make-pitch -1 3 FLAT))
956 (f . ,(ly:make-pitch -1 3 NATURAL))
957 (fis . ,(ly:make-pitch -1 3 SHARP))
958 (fisis . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
960 (geses . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
961 (ges . ,(ly:make-pitch -1 4 FLAT))
962 (g . ,(ly:make-pitch -1 4 NATURAL))
963 (gis . ,(ly:make-pitch -1 4 SHARP))
964 (gisis . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
966 (asas . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
967 (ases . ,(ly:make-pitch -1 5 DOUBLE-FLAT)) ;; non-standard name for asas
968 (as . ,(ly:make-pitch -1 5 FLAT))
969 (a . ,(ly:make-pitch -1 5 NATURAL))
970 (ais . ,(ly:make-pitch -1 5 SHARP))
971 (aisis . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
973 (bb . ,(ly:make-pitch -1 6 DOUBLE-FLAT)) ;; should be bes; kept for downwards compatibility
974 (bes . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
975 (heses . ,(ly:make-pitch -1 6 DOUBLE-FLAT)) ;; non-standard name for bb
976 (b . ,(ly:make-pitch -1 6 FLAT))
977 (h . ,(ly:make-pitch -1 6 NATURAL))
978 (his . ,(ly:make-pitch -1 6 SHARP))
979 (hisis . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
983 ;; Language: Svenska -----------------------------------------------;
984 ;; Mats Bengtsson <mabe@violin.s3.kth.se>
987 ;; essess = double-flat
990 ;; ississ = double-sharp
992 ;; English: c d e f g a bf b
993 ;; Swedish: c d e f g a b h
996 (cessess . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
997 (cess . ,(ly:make-pitch -1 0 FLAT))
998 (c . ,(ly:make-pitch -1 0 NATURAL))
999 (ciss . ,(ly:make-pitch -1 0 SHARP))
1000 (cississ . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
1002 (dessess . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
1003 (dess . ,(ly:make-pitch -1 1 FLAT))
1004 (d . ,(ly:make-pitch -1 1 NATURAL))
1005 (diss . ,(ly:make-pitch -1 1 SHARP))
1006 (dississ . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
1008 (essess . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
1009 (ess . ,(ly:make-pitch -1 2 FLAT))
1010 (e . ,(ly:make-pitch -1 2 NATURAL))
1011 (eiss . ,(ly:make-pitch -1 2 SHARP))
1012 (eississ . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
1014 (fessess . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
1015 (fess . ,(ly:make-pitch -1 3 FLAT))
1016 (f . ,(ly:make-pitch -1 3 NATURAL))
1017 (fiss . ,(ly:make-pitch -1 3 SHARP))
1018 (fississ . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
1020 (gessess . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
1021 (gess . ,(ly:make-pitch -1 4 FLAT))
1022 (g . ,(ly:make-pitch -1 4 NATURAL))
1023 (giss . ,(ly:make-pitch -1 4 SHARP))
1024 (gississ . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
1026 (assess . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
1027 (ass . ,(ly:make-pitch -1 5 FLAT))
1028 (a . ,(ly:make-pitch -1 5 NATURAL))
1029 (aiss . ,(ly:make-pitch -1 5 SHARP))
1030 (aississ . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
1032 (hessess . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
1033 (b . ,(ly:make-pitch -1 6 FLAT))
1034 (h . ,(ly:make-pitch -1 6 NATURAL))
1035 (hiss . ,(ly:make-pitch -1 6 SHARP))
1036 (hississ . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
1040 ;; Language: Vlaams ------------------------------------------------;
1041 ;; Hendrik Maryns <hendrik.maryns@ugent.be>
1046 ;; k = sharp (kruis)
1047 ;; kk = double-sharp
1049 ;; English: c d e f g a b
1050 ;; Flemish: do re mi fa sol la si
1053 (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
1054 (dob . ,(ly:make-pitch -1 0 FLAT))
1055 (do . ,(ly:make-pitch -1 0 NATURAL))
1056 (dok . ,(ly:make-pitch -1 0 SHARP))
1057 (dokk . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
1059 (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
1060 (reb . ,(ly:make-pitch -1 1 FLAT))
1061 (re . ,(ly:make-pitch -1 1 NATURAL))
1062 (rek . ,(ly:make-pitch -1 1 SHARP))
1063 (rekk . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
1065 (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
1066 (mib . ,(ly:make-pitch -1 2 FLAT))
1067 (mi . ,(ly:make-pitch -1 2 NATURAL))
1068 (mik . ,(ly:make-pitch -1 2 SHARP))
1069 (mikk . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
1071 (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
1072 (fab . ,(ly:make-pitch -1 3 FLAT))
1073 (fa . ,(ly:make-pitch -1 3 NATURAL))
1074 (fak . ,(ly:make-pitch -1 3 SHARP))
1075 (fakk . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
1077 (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
1078 (solb . ,(ly:make-pitch -1 4 FLAT))
1079 (sol . ,(ly:make-pitch -1 4 NATURAL))
1080 (solk . ,(ly:make-pitch -1 4 SHARP))
1081 (solkk . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
1083 (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
1084 (lab . ,(ly:make-pitch -1 5 FLAT))
1085 (la . ,(ly:make-pitch -1 5 NATURAL))
1086 (lak . ,(ly:make-pitch -1 5 SHARP))
1087 (lakk . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
1089 (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
1090 (sib . ,(ly:make-pitch -1 6 FLAT))
1091 (si . ,(ly:make-pitch -1 6 NATURAL))
1092 (sik . ,(ly:make-pitch -1 6 SHARP))
1093 (sikk . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
1097 ;; add two native utf-8 aliases. Pairs obey cp-like order: '(old new)
1100 (set! language-pitch-names
1101 (append language-pitch-names
1102 (list (cons (cadr pair)
1103 (cdr (assoc (car pair) language-pitch-names)))))))
1104 '((espanol español)))
1106 (define-public (note-names-language str)
1107 (_ "Select note names language.")
1108 (let ((alist (assoc-get (string->symbol str)
1109 language-pitch-names
1113 (ly:debug (_ "Using `~a' note names...") str)
1114 (set! pitchnames alist)
1115 (ly:parser-set-note-names alist))
1116 (ly:warning (_ "Could not find language `~a'. Ignoring.") str))))