Documentation/snippets/chord-name-exceptions.ly

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