]> git.donarmstrong.com Git - lilypond.git/blob - input/lsr/chord-name-exceptions.ly
Merge commit 'origin' into systems-per-page
[lilypond.git] / input / lsr / chord-name-exceptions.ly
1 %% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
2 %% This file is in the public domain.
3 \version "2.13.1"
4
5 \header {
6   lsrtags = "chords"
7
8   texidoces = "
9 Se puede usar la propiedad @code{chordNameExceptions} para
10 almacenar una lista de notaciones espaciales para acordes
11 específicos.
12
13 "
14   doctitlees = "Excepciones para los nombres de acorde"
15
16 %% Translation of GIT committish: 33f623301a41fcc53efadf96bca1c72834763415
17   texidocde = "
18 Die Eigenschaft @code{chordNameExceptions} kann benutzt werden, um eine
19 Liste an besonderen Notationen für bestimmte Akkorde zu speichern.
20
21 "
22   doctitlede = "Akkordsymbolausnahmen"
23
24   texidoc = "
25 The property @code{chordNameExceptions} can be used to store a list of
26 special notations for specific chords. 
27
28 "
29   doctitle = "Chord name exceptions"
30 } % begin verbatim
31
32 % modify maj9 and 6(add9)
33 % Exception music is chords with markups
34 chExceptionMusic = {
35   <c e g b d'>1-\markup { \super "maj9" }
36   <c e g a d'>1-\markup { \super "6(add9)" }
37 }
38
39 % Convert music to list and prepend to existing exceptions.
40 chExceptions = #( append
41   ( sequential-music-to-chord-exceptions chExceptionMusic #t)
42   ignatzekExceptions)
43
44 theMusic = \chordmode {
45   g1:maj9 g1:6.9
46   \set chordNameExceptions = #chExceptions
47   g1:maj9 g1:6.9
48 }
49
50 \layout {
51   ragged-right = ##t 
52 }
53
54 << \context ChordNames \theMusic
55    \context Voice \theMusic
56 >>