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