Use scalar instead of embedded_scm for context mod overrides.
[lilypond/mpolesky.git] / ly / predefined-guitar-fretboards.ly
blob89a2cc6823561312b9bd2fcbc73dbf396199d23e
1 %%%% predefined-guitar-fretboards.ly
2 %%%%
3 %%%% source file of the GNU LilyPond music typesetter
4 %%%%
5 %%%% (c) 2008--2009 Carl D. Sorensen <c_sorensen@byu.edu>
7 %%% Add basic chordshapes
9 \version "2.12.0"
11 \addChordShape #'f #guitar-tuning #"1-1-(;3-3;3-4;2-2;1-1;1-1-);"
12 \addChordShape #'f:m #guitar-tuning #"1-1-(;3-3;3-4;1-1;1-1;1-1-);"
13 \addChordShape #'f:7 #guitar-tuning #"1-1-(;3-3;1-1;2-2;1-1;1-1-);"
14 \addChordShape #'f:m7 #guitar-tuning #"1-1-(;3-3;1-1;1-1;1-1;1-1-);"
15 \addChordShape #'bes #guitar-tuning #"x;1-1-(;3-2;3-3;3-4;1-1-);"
16 \addChordShape #'bes:m #guitar-tuning #"x;1-1-(;3-3;3-4;2-2;1-1-);"
17 \addChordShape #'bes:m7 #guitar-tuning #"x;1-1-(;3-3;1-1;2-2;1-1-);"
18 \addChordShape #'bes:7 #guitar-tuning #"x;1-1-(;3-2;1-1;3-3;1-1-);"
19 \addChordShape #'bes:maj7 #guitar-tuning #"x;1-1;3-3;2-2;3-4;x;"
20 \addChordShape #'c:dim #guitar-tuning #"x;x;1-1;2-3;1-2;2-4;"
21 \addChordShape #'c:aug #guitar-tuning #"x;x;2-2;1-1-(;1-1-);4-4;"
22 \addChordShape #'cis #guitar-tuning #"x;x;3-3;1-1-(;2-2;1-1-);"
23 \addChordShape #'ees:dim #guitar-tuning #"x;x;1-1;2-3;1-2;2-4;"
24 \addChordShape #'a:dim #guitar-tuning #"x;x;1-1;2-3;1-2;2-4;"
26 %%% Add predefined chords
28 % definitions of predefined diagrams below here
30 %%%% c chords
32 \storePredefinedDiagram \chordmode {c}
33 #guitar-tuning
34 #"x;3-3;2-2;o;1-1;o;"
35 \storePredefinedDiagram \chordmode {c:m}
36 #guitar-tuning
37 #(offset-fret 2 (chord-shape 'bes:m guitar-tuning))
38 \storePredefinedDiagram \chordmode {c:aug}
39 #guitar-tuning
40 #(chord-shape 'c:aug guitar-tuning)
41 \storePredefinedDiagram \chordmode {c:dim}
42 #guitar-tuning
43 #(chord-shape 'c:dim guitar-tuning)
44 \storePredefinedDiagram \chordmode {c:7}
45 #guitar-tuning
46 #"o;3-3;2-2;3-4;1-1;o;"
47 \storePredefinedDiagram \chordmode {c:maj7}
48 #guitar-tuning
49 #"x;3-3;2-2;o;o;o;"
50 \storePredefinedDiagram \chordmode {c:m7}
51 #guitar-tuning
52 #(offset-fret 2 (chord-shape 'bes:m7 guitar-tuning))
54 %%%% cis chords
56 \storePredefinedDiagram \chordmode {cis}
57 #guitar-tuning
58 #(chord-shape 'cis guitar-tuning)
59 \storePredefinedDiagram \chordmode {cis:m}
60 #guitar-tuning
61 #"x;x;2-2;1-1;2-3;o;"
62 \storePredefinedDiagram \chordmode {cis:aug}
63 #guitar-tuning
64 #"x;4-4;3-3;2-1;2-2;x;"
65 \storePredefinedDiagram \chordmode {cis:dim}
66 #guitar-tuning
67 #(offset-fret 1 (chord-shape 'c:dim guitar-tuning))
68 \storePredefinedDiagram \chordmode {cis:7}
69 #guitar-tuning
70 #"x;x;3-2;4-3;2-1;4-4;"
71 \storePredefinedDiagram \chordmode {cis:maj7}
72 #guitar-tuning
73 #"x;4-4;3-3;1-1-(;1-1;1-1-);"
74 \storePredefinedDiagram \chordmode {cis:m7}
75 #guitar-tuning
76 #"x;4-4;2-2;1-1;o;o;"
78 %%%% des chords
80 \storePredefinedDiagram \chordmode {des}
81 #guitar-tuning
82 #"x;x;3-3;1-1-(;2-2;1-1-);"
83 \storePredefinedDiagram \chordmode {des:m}
84 #guitar-tuning
85 #"x;x;2-2;1-1;2-3;o;"
86 \storePredefinedDiagram \chordmode {des:aug}
87 #guitar-tuning
88 #"x;4-4;3-3;2-1;2-2;x;"
89 \storePredefinedDiagram \chordmode {des:dim}
90 #guitar-tuning
91 #(offset-fret 1 (chord-shape 'c:dim guitar-tuning))
92 \storePredefinedDiagram \chordmode {des:7}
93 #guitar-tuning
94 #"x;x;3-2;4-3;2-1;4-4;"
95 \storePredefinedDiagram \chordmode {des:maj7}
96 #guitar-tuning
97 #"x;4-4;3-3;1-1-(;1-1;1-1-);"
98 \storePredefinedDiagram \chordmode {des:m7}
99 #guitar-tuning
100 #"x;4-4;2-2;1-1;o;o;"
102 %%%% d chords
104 \storePredefinedDiagram \chordmode {d}
105 #guitar-tuning
106 #"x;x;o;2-1;3-3;2-2;"
107 \storePredefinedDiagram \chordmode {d:m}
108 #guitar-tuning
109 #"x;x;o;2-2;3-3;1-1;"
110 \storePredefinedDiagram \chordmode {d:aug}
111 #guitar-tuning
112 #"x;x;o;3-2;3-3;2-1;"
113 \storePredefinedDiagram \chordmode {d:dim}
114 #guitar-tuning
115 #"x;x;o;1-1;o;1-2;"
116 \storePredefinedDiagram \chordmode {d:7}
117 #guitar-tuning
118 #"x;x;o;2-2;1-1;2-3;"
119 \storePredefinedDiagram \chordmode {d:maj7}
120 #guitar-tuning
121 #"x;x;o;2-1;2-2;2-3;"
122 \storePredefinedDiagram \chordmode {d:m7}
123 #guitar-tuning
124 #"x;x;o;2-2;1-1-(;1-1-);"
126 %%%% dis chords
128 \storePredefinedDiagram \chordmode {dis}
129 #guitar-tuning
130 #(offset-fret 2 (chord-shape 'cis guitar-tuning))
131 \storePredefinedDiagram \chordmode {dis:m}
132 #guitar-tuning
133 #"x;x;4-3;3-2;4-4;1-1;"
134 \storePredefinedDiagram \chordmode {dis:aug}
135 #guitar-tuning
136 #"3-3;2-2;1-1;o;o;3-4"
137 \storePredefinedDiagram \chordmode {dis:dim}
138 #guitar-tuning
139 #(chord-shape 'ees:dim guitar-tuning)
140 \storePredefinedDiagram \chordmode {dis:7}
141 #guitar-tuning
142 #"x;x;1-1;3-3;2-2;3-4;"
143 \storePredefinedDiagram \chordmode {dis:maj7}
144 #guitar-tuning
145 #"x;x;1-1;3-2;3-3;3-4;"
146 \storePredefinedDiagram \chordmode {dis:m7}
147 #guitar-tuning
148 #"x;x;1-1;3-2;2-3;2-4;"
150 %%%% ees chords
152 \storePredefinedDiagram \chordmode {ees}
153 #guitar-tuning
154 #(offset-fret 2 (chord-shape 'cis guitar-tuning))
155 \storePredefinedDiagram \chordmode {ees:m}
156 #guitar-tuning
157 #"x;x;4-3;3-2;4-4;1-1;"
158 \storePredefinedDiagram \chordmode {ees:aug}
159 #guitar-tuning
160 #"3-3;2-2;1-1;o;o;3-4"
161 \storePredefinedDiagram \chordmode {ees:dim}
162 #guitar-tuning
163 #(chord-shape 'ees:dim guitar-tuning)
164 \storePredefinedDiagram \chordmode {ees:7}
165 #guitar-tuning
166 #"x;x;1-1;3-3;2-2;3-4;"
167 \storePredefinedDiagram \chordmode {ees:maj7}
168 #guitar-tuning
169 #"x;x;1-1;3-2;3-3;3-4;"
170 \storePredefinedDiagram \chordmode {ees:m7}
171 #guitar-tuning
172 #"x;x;1-1;3-2;2-3;2-4;"
174 %%%% e chords
176 \storePredefinedDiagram \chordmode {e}
177 #guitar-tuning
178 #"o;2-2;2-3;1-1;o;o;"
179 \storePredefinedDiagram \chordmode {e:m}
180 #guitar-tuning
181 #"o;2-2;2-3;o;o;o;"
182 \storePredefinedDiagram \chordmode {e:aug}
183 #guitar-tuning
184 #"o;3-3;2-2;1-1;x;x;"
185 \storePredefinedDiagram \chordmode {e:dim}
186 #guitar-tuning
187 #(offset-fret 1 (chord-shape 'ees:dim guitar-tuning))
188 \storePredefinedDiagram \chordmode {e:7}
189 #guitar-tuning
190 #"o;2-2;o;1-1;o;o;"
191 \storePredefinedDiagram \chordmode {e:maj7}
192 #guitar-tuning
193 #"o;2-3;1-1;1-2;o;x;"
194 \storePredefinedDiagram \chordmode {e:m7}
195 #guitar-tuning
196 #"o;2-2;o;o;o;o;"
198 %%%% f chords
200 \storePredefinedDiagram \chordmode {f}
201 #guitar-tuning
202 #(chord-shape 'f guitar-tuning)
203 \storePredefinedDiagram \chordmode {f:m}
204 #guitar-tuning
205 #(chord-shape 'f:m guitar-tuning)
206 \storePredefinedDiagram \chordmode {f:aug}
207 #guitar-tuning
208 #"x;x;1-1;4-3;4-4;3-2;"
209 \storePredefinedDiagram \chordmode {f:dim}
210 #guitar-tuning
211 #"x;x;o;1-1;o;1-2;"
212 \storePredefinedDiagram \chordmode {f:7}
213 #guitar-tuning
214 #(chord-shape 'f:7 guitar-tuning)
215 \storePredefinedDiagram \chordmode {f:maj7}
216 #guitar-tuning
217 #"x;x;3-3;2-2;1-1;o;"
218 \storePredefinedDiagram \chordmode {f:m7}
219 #guitar-tuning
220 #(chord-shape 'f:m7 guitar-tuning)
222 %%%% fis chords
224 \storePredefinedDiagram \chordmode {fis}
225 #guitar-tuning
226 #(offset-fret 1 (chord-shape 'f guitar-tuning))
227 \storePredefinedDiagram \chordmode {fis:m}
228 #guitar-tuning
229 #(offset-fret 1 (chord-shape 'f:m guitar-tuning))
230 \storePredefinedDiagram \chordmode {fis:aug}
231 #guitar-tuning
232 #"2-2;1-1;o;3-4-(;3-4-);2-3;"
233 \storePredefinedDiagram \chordmode {fis:dim}
234 #guitar-tuning
235 #"x;x;1-1;2-3;1-2;2-4;"
236 \storePredefinedDiagram \chordmode {fis:7}
237 #guitar-tuning
238 #(offset-fret 1 (chord-shape 'f:7 guitar-tuning))
239 \storePredefinedDiagram \chordmode {fis:maj7}
240 #guitar-tuning
241 #"x;x;4-4;3-3;2-2;1-1;"
242 \storePredefinedDiagram \chordmode {fis:m7}
243 #guitar-tuning
244 #(offset-fret 1 (chord-shape 'f:m7 guitar-tuning))
246 %%%% ges chords
248 \storePredefinedDiagram \chordmode {ges}
249 #guitar-tuning
250 #(offset-fret 1 (chord-shape 'f guitar-tuning))
251 \storePredefinedDiagram \chordmode {ges:m}
252 #guitar-tuning
253 #(offset-fret 1 (chord-shape 'f:m guitar-tuning))
254 \storePredefinedDiagram \chordmode {ges:aug}
255 #guitar-tuning
256 #"2-2;1-1;o;3-4-(;3-4-);2-3;"
257 \storePredefinedDiagram \chordmode {ges:dim}
258 #guitar-tuning
259 #"x;x;1-1;2-3;1-2;2-4;"
260 \storePredefinedDiagram \chordmode {ges:7}
261 #guitar-tuning
262 #(offset-fret 1 (chord-shape 'f:7 guitar-tuning))
263 \storePredefinedDiagram \chordmode {ges:maj7}
264 #guitar-tuning
265 #"x;x;4-4;3-3;2-2;1-1;"
266 \storePredefinedDiagram \chordmode {ges:m7}
267 #guitar-tuning
268 #(offset-fret 1 (chord-shape 'f:m7 guitar-tuning))
270 %%%% g chords
272 \storePredefinedDiagram \chordmode {g}
273 #guitar-tuning
274 #"3-2;2-1;o;o;o;3-3;"
275 \storePredefinedDiagram \chordmode {g:m}
276 #guitar-tuning
277 #(offset-fret 2 (chord-shape 'f:m guitar-tuning))
278 \storePredefinedDiagram \chordmode {g:aug}
279 #guitar-tuning
280 #"x;x;5-1;8-3;8-4;7-2;"
281 \storePredefinedDiagram \chordmode {g:dim}
282 #guitar-tuning
283 #"x;x;5-2;6-4;5-3;3-1;"
284 \storePredefinedDiagram \chordmode {g:7}
285 #guitar-tuning
286 #"3-3;2-2;o;o;o;1-1;"
287 \storePredefinedDiagram \chordmode {g:maj7}
288 #guitar-tuning
289 #"x;x;5-4;4-3;3-2;2-1;"
290 \storePredefinedDiagram \chordmode {g:m7}
291 #guitar-tuning
292 #(offset-fret 2 (chord-shape 'f:m7 guitar-tuning))
294 %%%% gis chords
296 \storePredefinedDiagram \chordmode {gis}
297 #guitar-tuning
298 #(offset-fret 3 (chord-shape 'f guitar-tuning))
299 \storePredefinedDiagram \chordmode {gis:m}
300 #guitar-tuning
301 #(offset-fret 3 (chord-shape 'f:m guitar-tuning))
302 \storePredefinedDiagram \chordmode {gis:aug}
303 #guitar-tuning
304 #"o;3-4;2-3;1-1;1-2;o;"
305 \storePredefinedDiagram \chordmode {gis:dim}
306 #guitar-tuning
307 #"x;x;o;1-1;o;1-2;"
308 \storePredefinedDiagram \chordmode {gis:7}
309 #guitar-tuning
310 #(offset-fret 3 (chord-shape 'f:7 guitar-tuning))
311 \storePredefinedDiagram \chordmode {gis:maj7}
312 #guitar-tuning
313 #"x;x;1-1-(;1-1;1-1-);3-3;"
314 \storePredefinedDiagram \chordmode {gis:m7}
315 #guitar-tuning
316 #(offset-fret 3 (chord-shape 'f:m7 guitar-tuning))
318 %%%% aes chords
320 \storePredefinedDiagram \chordmode {aes}
321 #guitar-tuning
322 #(offset-fret 3 (chord-shape 'f guitar-tuning))
323 \storePredefinedDiagram \chordmode {aes:m}
324 #guitar-tuning
325 #(offset-fret 3 (chord-shape 'f:m guitar-tuning))
326 \storePredefinedDiagram \chordmode {aes:aug}
327 #guitar-tuning
328 #"o;3-4;2-3;1-1;1-2;o;"
329 \storePredefinedDiagram \chordmode {aes:dim}
330 #guitar-tuning
331 #"x;x;o;1-1;o;1-2;"
332 \storePredefinedDiagram \chordmode {aes:7}
333 #guitar-tuning
334 #(offset-fret 3 (chord-shape 'f:7 guitar-tuning))
335 \storePredefinedDiagram \chordmode {aes:maj7}
336 #guitar-tuning
337 #"x;x;1-1-(;1-1;1-1-);3-3;"
338 \storePredefinedDiagram \chordmode {aes:m7}
339 #guitar-tuning
340 #(offset-fret 3 (chord-shape 'f:m7 guitar-tuning))
342 %%%% a chords
344 \storePredefinedDiagram \chordmode {a}
345 #guitar-tuning
346 #"x;o;2-1;2-2;2-3;o;"
347 \storePredefinedDiagram \chordmode {a:m}
348 #guitar-tuning
349 #"x;o;2-2;2-3;1-1;o;"
350 \storePredefinedDiagram \chordmode {a:aug}
351 #guitar-tuning
352 #"x;o;3-4;2-2;2-3;1-1;"
353 \storePredefinedDiagram \chordmode {a:dim}
354 #guitar-tuning
355 #(chord-shape 'a:dim guitar-tuning)
356 \storePredefinedDiagram \chordmode {a:7}
357 #guitar-tuning
358 #"x;o;2-1;o;2-3;o;"
359 \storePredefinedDiagram \chordmode {a:maj7}
360 #guitar-tuning
361 #"x;o;2-2;1-1;2-3;o;"
362 \storePredefinedDiagram \chordmode {a:m7}
363 #guitar-tuning
364 #"x;o;2-2;o;1-1;o;"
366 %%%% ais chords
368 \storePredefinedDiagram \chordmode {ais}
369 #guitar-tuning
370 #(chord-shape 'bes guitar-tuning)
371 \storePredefinedDiagram \chordmode {ais:m}
372 #guitar-tuning
373 #(chord-shape 'bes:m guitar-tuning)
374 \storePredefinedDiagram \chordmode {ais:aug}
375 #guitar-tuning
376 #"2-2;1-1;o;3-4-(;3-4-);2-3;"
377 \storePredefinedDiagram \chordmode {ais:dim}
378 #guitar-tuning
379 #(offset-fret 1 (chord-shape 'a:dim guitar-tuning))
380 \storePredefinedDiagram \chordmode {ais:7}
381 #guitar-tuning
382 #(chord-shape 'bes:7 guitar-tuning)
383 \storePredefinedDiagram \chordmode {ais:maj7}
384 #guitar-tuning
385 #"x;1-1;3-3;2-2;3-4;x;"
386 \storePredefinedDiagram \chordmode {ais:m7}
387 #guitar-tuning
388 #(chord-shape 'bes:m7 guitar-tuning)
390 %%%% bes chords
392 \storePredefinedDiagram \chordmode {bes}
393 #guitar-tuning
394 #(chord-shape 'bes guitar-tuning)
395 \storePredefinedDiagram \chordmode {bes:m}
396 #guitar-tuning
397 #(chord-shape 'bes:m guitar-tuning)
398 \storePredefinedDiagram \chordmode {bes:aug}
399 #guitar-tuning
400 #"2-2;1-1;o;3-4-(;3-4-);2-3;"
401 \storePredefinedDiagram \chordmode {bes:dim}
402 #guitar-tuning
403 #(offset-fret 1 (chord-shape 'a:dim guitar-tuning))
404 \storePredefinedDiagram \chordmode {bes:7}
405 #guitar-tuning
406 #(chord-shape 'bes:7 guitar-tuning)
407 \storePredefinedDiagram \chordmode {bes:maj7}
408 #guitar-tuning
409 #"x;1-1;3-3;2-2;3-4;x;"
410 \storePredefinedDiagram \chordmode {bes:m7}
411 #guitar-tuning
412 #(chord-shape 'bes:m7 guitar-tuning)
414 %%%% b chords
416 \storePredefinedDiagram \chordmode {b}
417 #guitar-tuning
418 #(offset-fret 1 (chord-shape 'bes guitar-tuning))
419 \storePredefinedDiagram \chordmode {b:m}
420 #guitar-tuning
421 #(offset-fret 1 (chord-shape 'bes:m guitar-tuning))
422 \storePredefinedDiagram \chordmode {b:aug}
423 #guitar-tuning
424 #"x;3-2;2-1;o;o;x;"
425 \storePredefinedDiagram \chordmode {b:dim}
426 #guitar-tuning
427 #"x;x;o;1-1;o;1-2;"
428 \storePredefinedDiagram \chordmode {b:7}
429 #guitar-tuning
430 #(offset-fret 1 (chord-shape 'bes:7 guitar-tuning))
431 \storePredefinedDiagram \chordmode {b:maj7}
432 #guitar-tuning
433 #"x;2-1;4-3;3-2;4-4;x;"
434 \storePredefinedDiagram \chordmode {b:m7}
435 #guitar-tuning
436 #(offset-fret 1 (chord-shape 'bes:m7 guitar-tuning))