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