3 Common Spanish names for notes. "b" means flat (bemol), "s" means sharp (sostenido).
4 Adapted from italiano.ly.
7 Spanish: la si do re mi fa sol
13 contributed by Carlos García Suárez <<cgscqmp@terra.es>>
15 and contributed by Maximiliano G. G. <<mxgdvg@yahoo.it>> con:
16 doble alteración alternativa, x para doble sostenido
17 cuartos de tono: tcb, cb, cs, tcs
21 pitchnamesEspanol = #`(
22 (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
23 (dotcb . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
24 (dob . ,(ly:make-pitch -1 0 FLAT))
25 (docb . ,(ly:make-pitch -1 0 SEMI-FLAT))
26 (do . ,(ly:make-pitch -1 0 NATURAL))
27 (docs . ,(ly:make-pitch -1 0 SEMI-SHARP))
28 (dos . ,(ly:make-pitch -1 0 SHARP))
29 (dotcs . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
30 (doss . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
31 (dox . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
33 (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
34 (retcb . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
35 (reb . ,(ly:make-pitch -1 1 FLAT))
36 (recb . ,(ly:make-pitch -1 1 SEMI-FLAT))
37 (re . ,(ly:make-pitch -1 1 NATURAL))
38 (recs . ,(ly:make-pitch -1 1 SEMI-SHARP))
39 (res . ,(ly:make-pitch -1 1 SHARP))
40 (retcs . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
41 (ress . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
42 (rex . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
44 (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
45 (mitcb . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
46 (mib . ,(ly:make-pitch -1 2 FLAT))
47 (micb . ,(ly:make-pitch -1 2 SEMI-FLAT))
48 (mi . ,(ly:make-pitch -1 2 NATURAL))
49 (mics . ,(ly:make-pitch -1 2 SEMI-SHARP))
50 (mis . ,(ly:make-pitch -1 2 SHARP))
51 (mitcs . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
52 (miss . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
53 (mix . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
55 (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
56 (fatcb . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
57 (fab . ,(ly:make-pitch -1 3 FLAT))
58 (facb . ,(ly:make-pitch -1 3 SEMI-FLAT))
59 (fa . ,(ly:make-pitch -1 3 NATURAL))
60 (facs . ,(ly:make-pitch -1 3 SEMI-SHARP))
61 (fas . ,(ly:make-pitch -1 3 SHARP))
62 (fatcs . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
63 (fass . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
64 (fax . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
66 (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
67 (soltcb . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
68 (solb . ,(ly:make-pitch -1 4 FLAT))
69 (solcb . ,(ly:make-pitch -1 4 SEMI-FLAT))
70 (sol . ,(ly:make-pitch -1 4 NATURAL))
71 (solcs . ,(ly:make-pitch -1 4 SEMI-SHARP))
72 (sols . ,(ly:make-pitch -1 4 SHARP))
73 (soltcs . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
74 (solss . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
75 (solx . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
77 (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
78 (latcb . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
79 (lab . ,(ly:make-pitch -1 5 FLAT))
80 (lacb . ,(ly:make-pitch -1 5 SEMI-FLAT))
81 (la . ,(ly:make-pitch -1 5 NATURAL))
82 (lacs . ,(ly:make-pitch -1 5 SEMI-SHARP))
83 (las . ,(ly:make-pitch -1 5 SHARP))
84 (latcs . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
85 (lass . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
86 (lax . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
88 (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
89 (sitcb . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
90 (sib . ,(ly:make-pitch -1 6 FLAT))
91 (sicb . ,(ly:make-pitch -1 6 SEMI-FLAT))
92 (si . ,(ly:make-pitch -1 6 NATURAL))
93 (sics . ,(ly:make-pitch -1 6 SEMI-SHARP))
94 (sis . ,(ly:make-pitch -1 6 SHARP))
95 (sitcs . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
96 (siss . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
97 (six . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
101 pitchnames = \pitchnamesEspanol
105 #(ly:parser-set-note-names parser pitchnames)