> Send lilypond-user mailing list submissions to
>         lilypond-user@gnu.org


%{

    Hi,

    I'm trying to use a slash to indicate a single-beat repeat within chord
symbols.

    I have something that kind of works, based on some LSR snippets,
    but it moves the chord symbols above marks, rather than below.

    Does anyone have any suggestions for keeping the chord symbols in the
same location as normal?

%}

\version "2.19.81"

structure = \relative c {
    \key a \major
    \numericTimeSignature
    \time 4/4
    \mark \markup \box "Mark"
    s1*4 \bar "||"
}

music = \relative c'' {
    e8 8 8 b8 ~ 2 | r4 e8 fis ~ 8 e4. | cis8 ( a2.. ) | R1 ||
}

chordsNormal = \chordmode {
    \set noChordSymbol = ##f
    e1:7 | s | a1 | s2 aes4:7 g4:7 |
}

% From http://lsr.di.unimi.it/LSR/Snippet?id=529
% Prints rests in chord symbols
\layout {
    \context {
         \type "Engraver_group"
         \name ChordNamesRests
         \description "Typesets chord names."

         \consists "Output_property_engraver"
         \consists "Separating_line_group_engraver"
         \consists "Chord_name_engraver"

         \consists "Rest_engraver"

         noChordSymbol = ##f

         \override VerticalAxisGroup.staff-staff-spacing = #'((padding . 1))
         \override VerticalAxisGroup.remove-first = ##t
         \override VerticalAxisGroup.remove-empty = ##t
    }
    \context { \Score \accepts ChordNamesRests }
}

% Macro to print single slash
rs = {
    \once \override Rest #'stencil =
#ly:percent-repeat-item-interface::beat-slash
    \once \override Rest #'thickness = #0.48
    \once \override Rest #'slope = #1.7
    r4
}

chordsRests = \new ChordNamesRests {
    \chordmode {
        \override Rest.extra-offset = #'(0 . 1)
        \set chordChanges = ##f
        e1:7 | s | a1 | \rs \rs aes4:7 g4:7 |
    }
}


\paper {
    print-all-headers = ##t
}
\score {
    \header {
        title = "Normal behavior, with chords below marks"
    }
    <<
        \new ChordNames \chordsNormal
        \new Staff <<
            \structure
            \music
        >>
    >>
}

\score {
    \header {
        title = "With slash repeats, but chords are now above marks"
    }
    <<
        \new ChordNames \chordsRests
        \new Staff <<
            \structure
            \music
        >>
    >>
}


Please let me know if you have any suggestions.


Thanks,

David Elaine Alt
415 . 341 .4954                                           "*Confusion is
highly underrated*"
ela...@flaminghakama.com
skype: flaming_hakama
Producer ~ Composer ~ Instrumentalist
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to