Use scalar instead of embedded_scm for context mod overrides.
[lilypond/mpolesky.git] / ly / espanol.ly
blob8c14aaf7f3cec2089f92c3191d104e95c69a5633
1 %%%% espanol.ly -- common Spanish names for notes
2 %%%%
3 %%%% source file of the GNU LilyPond music typesetter
4 %%%%
5 %%%% (c) 2002--2009 Carlos García Suárez <cgscqmp@terra.es>
6 %%%% Maximiliano G. G. <mxgdvg@yahoo.it>
7 %%%% (double-flats, double-sharps, quarter-tones, etc.)
9 \version "2.12.0"
13 b = flat (bemol)
14 bb = double-flat
15 cb = quarter-tone flat (cuarto [de tono de] bemol)
16 tcb = three-quarter-tones flat (tres cuartos [de tonos de] bemol)
18 s = sharp (sostenido)
19 x = double-sharp
20 ss = double-sharp
21 cs = quarter-tone sharp (cuarto [de tono de] sostenido)
22 tcs = three-quarter-tones sharp (tres cuartos [de tonos de] sostenido)
24 English: c d e f g a b
25 Spanish: do re mi fa sol la si
27 Adapted from italiano.ly.
31 pitchnamesEspanol = #`(
32 (dobb . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
33 (dotcb . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
34 (dob . ,(ly:make-pitch -1 0 FLAT))
35 (docb . ,(ly:make-pitch -1 0 SEMI-FLAT))
36 (do . ,(ly:make-pitch -1 0 NATURAL))
37 (docs . ,(ly:make-pitch -1 0 SEMI-SHARP))
38 (dos . ,(ly:make-pitch -1 0 SHARP))
39 (dotcs . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
40 (doss . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
41 (dox . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
43 (rebb . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
44 (retcb . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
45 (reb . ,(ly:make-pitch -1 1 FLAT))
46 (recb . ,(ly:make-pitch -1 1 SEMI-FLAT))
47 (re . ,(ly:make-pitch -1 1 NATURAL))
48 (recs . ,(ly:make-pitch -1 1 SEMI-SHARP))
49 (res . ,(ly:make-pitch -1 1 SHARP))
50 (retcs . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
51 (ress . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
52 (rex . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
54 (mibb . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
55 (mitcb . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
56 (mib . ,(ly:make-pitch -1 2 FLAT))
57 (micb . ,(ly:make-pitch -1 2 SEMI-FLAT))
58 (mi . ,(ly:make-pitch -1 2 NATURAL))
59 (mics . ,(ly:make-pitch -1 2 SEMI-SHARP))
60 (mis . ,(ly:make-pitch -1 2 SHARP))
61 (mitcs . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
62 (miss . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
63 (mix . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
65 (fabb . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
66 (fatcb . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
67 (fab . ,(ly:make-pitch -1 3 FLAT))
68 (facb . ,(ly:make-pitch -1 3 SEMI-FLAT))
69 (fa . ,(ly:make-pitch -1 3 NATURAL))
70 (facs . ,(ly:make-pitch -1 3 SEMI-SHARP))
71 (fas . ,(ly:make-pitch -1 3 SHARP))
72 (fatcs . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
73 (fass . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
74 (fax . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
76 (solbb . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
77 (soltcb . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
78 (solb . ,(ly:make-pitch -1 4 FLAT))
79 (solcb . ,(ly:make-pitch -1 4 SEMI-FLAT))
80 (sol . ,(ly:make-pitch -1 4 NATURAL))
81 (solcs . ,(ly:make-pitch -1 4 SEMI-SHARP))
82 (sols . ,(ly:make-pitch -1 4 SHARP))
83 (soltcs . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
84 (solss . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
85 (solx . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
87 (labb . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
88 (latcb . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
89 (lab . ,(ly:make-pitch -1 5 FLAT))
90 (lacb . ,(ly:make-pitch -1 5 SEMI-FLAT))
91 (la . ,(ly:make-pitch -1 5 NATURAL))
92 (lacs . ,(ly:make-pitch -1 5 SEMI-SHARP))
93 (las . ,(ly:make-pitch -1 5 SHARP))
94 (latcs . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
95 (lass . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
96 (lax . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
98 (sibb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
99 (sitcb . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
100 (sib . ,(ly:make-pitch -1 6 FLAT))
101 (sicb . ,(ly:make-pitch -1 6 SEMI-FLAT))
102 (si . ,(ly:make-pitch -1 6 NATURAL))
103 (sics . ,(ly:make-pitch -1 6 SEMI-SHARP))
104 (sis . ,(ly:make-pitch -1 6 SHARP))
105 (sitcs . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
106 (siss . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
107 (six . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
111 pitchnames = \pitchnamesEspanol
113 #(ly:parser-set-note-names parser pitchnames)