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