Re: Ossia fragments in 2.8.2

[Shamus]

Mats Bengtsson wrote:
> Well, you have to do the same trick for all kinds of contexts that
> are used in your score (at least, all that print bar lines). So, in your
> \layout block you also need a
> 
>        \context
>        {
>            \RhythmicStaff
>            \consists "Timing_translator"
>            \consists "Default_bar_line_engraver"
>            \consists "Repeat_acknowledge_engraver"
>        }

And that does work to get it past the first ossia fragment, but when it
comes to the second one, it chokes. I tried adding a \context for
\ChordNames, but that didn't work either.

I'm attaching the whole chart this time because reducing isn't helping
in this case. I note that when I comment out everything after the first
\stopStaff in StaffRiffs that it works (you can also see that the ossia
staff lines continue far past the dots of the first volta as well).

-- Shamus

\version "2.8.2"
\include "pop-chords.ly"
\include "english.ly"

staffSize = #16 % or 18
#(set-default-paper-size "letter")
#(set-global-staff-size staffSize)
#(ly:set-option (quote no-point-and-click))

\header
{
%Let's bump up the title size and switch to the chord font. :-)

        title    = \markup { \override #'(font-family . sans)
                { \fontsize #3.5 "Do You Know" } }
%       composer = \markup { \override #'(font-family . sans) "Traditional" }
        arranger = \markup { \override #'(font-family . sans) "arr. Ed Smart" }
        tagline  = \markup { \italic "Engraved by JLH and Lilypond 2.8.2" }
}


%
% Lead vocal
%

LeadVox = \relative c'
{
        \set Voice.autoBeaming = ##f
%       \set Staff.instrument = #"Lead vox"
        \clef G
        \key a \major
        \override Staff.TimeSignature #'style = #'()
        \time 4/4
\override Score.SpacingSpanner #'average-spacing-wishes = ##f

        % Intro

        R1^\markup { \italic { Light ballad } } |   % 1
        R1 |   % 2
        R1 |   % 3
        r2 r4. cs16 [ d ] |   % 4

        \repeat volta 4
        {
                % Verse

\once \override Score.RehearsalMark #'self-alignment-X = #left
\mark \markup { \override #'(font-family . sans) { \box { A } } \small \italic 
{ Solo 3rd time } }

                e8 [ e e fs ] ~ fs4 fs |   % 5
                e4 d cs r8 cs16 [ d ] |   % 6
                e8 [ e e fs ] ~ fs4 fs |   % 7
                e4 b' a r8 a16 [ b ] |   % 8
                cs2 b4 r8 b16 [ cs ] |   % 9
                d4. cs8 cs4 r8 a16 [ gs ] |   % 10
                fs8 [ gs a a ] ~ a4 b |   % 11
                cs4 gs a2 \bar "||"   % 12

                % Refrain

                \time 2/4

\mark \markup { \musicglyph #"scripts.segno" }

                r4^\markup { \hspace #0.0 \raise #1.0 \italic { end solo } } a8 
[ b ] \bar "||"   % 13

                \time 4/4

\once \override Score.RehearsalMark #'self-alignment-X = #left
\mark \markup { \override #'(font-family . sans) { \box { B } } \small \italic 
{ No groove on D.S. } }

                cs2 b4 b8 [ cs ] |   % 14
                d2 cs4 r8 e, |   % 15
                fs8 [ gs a cs ] ~ cs [ a ] a4 |   % 16
                fs8 [ gs a cs ] ~ cs [ a ] a4 |   % 17
                fs8 [ gs a cs ] ~ cs [ a ] a4 |   % 18
        }
        \alternative
        {
                {
                        \time 2/4

                        b8 [ cs ] gs8. ([ a16 ]) |   % 19

                        \time 4/4

                        a2 r |   % 20
                        r2 r4. cs,16 [ d ] |   % 21
                }
                {
                        b'8 [ cs ] gs8. ([ a16 ]) a2 \bar "||"   % 22
\once \override Score.RehearsalMark #'self-alignment-X = #right
\mark \markup { \italic { D.S. } }
                }
                {
                        b8 [ cs ] gs8. ([ a16 ]) a2-\fermata \bar "|." |   % 23
                }
        }
}

LeadVoxText = \lyricmode
{
        Do you know what the blood _ has done for me,
        Do you know what the blood _ has done for me?
        It has cleansed me, it has set me free
        Do you know what the blood _ has done for me?

        Thank you Je- sus, thank you Sa- vior
        for com- ing and wash- _ ing me
        com- ing and cleans- _ ing me
        com- ing and set- _ ting me set- ting me __ _ free.

        Do you

        set- ting me __ _ free

        set- ting me __ _ free.
}


%
% Riff/rhythm figures
%

StaffRiffs = \relative c'
{
        \set Voice.autoBeaming = ##f
%       \set Staff.instrument = #"Rhythm"
        \key a \major
        \override Staff.TimeSignature #'style = #'()
        \time 4/4 

        % Intro

        <e b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] |   % 1
        <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] |   % 2
        <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] |   % 3
        <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] |   % 4
\stopStaff

        s1*14 |   % 5 - 19

\startStaff
        <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] |   % 20
        <e' b>8 [ a, <e' b> a, ] <e' b> [ a, <e' b> a, ] |   % 21
\stopStaff
}


%
% Chord names
%

Chords = \chordmode
{
% Bah, can't we set this globally?
%       \popChords

        % Intro

        a1:sus2 |   % 1
        d1:6.9 |   % 2
        a1:sus2 |   % 3
        d2:6.9 e:sus4 |   % 4

        \repeat volta 4
        {
                % Verse

                a2 d |   % 5
                a4/e e:7 a2 |   % 6
                a2 d |   % 7
                a4/e f:dim7 fs2:m7 |   % 8
                a2/e e |   % 9
                b2:m7 fs:m7 |   % 10
                b2:m7 a/cs |   % 11
                d4:maj7 e a2 \bar "||"   % 12

                % Refrain

                \time 2/4

                e2/gs \bar "||"   % 13

                \time 4/4

                fs2:m7 e |   % 14
                b2:m7 fs:m7 |   % 15
                d4. a8/cs s2 |   % 16
                b4.:m7 fs8:m7 s2 |   % 17
                d4. a8/cs s2 |   % 18
        }
        \alternative
        {
                {
                        \time 2/4

                        b4:m7 e |   % 19

                        \time 4/4

                        a1:sus2 |   % 20
                        d2:6.9 e:sus4 |   % 21
                }
                {
                        b4:m7 e a2 \bar "||"   % 22
                }
                {
                        b4:m7 e a2 \bar "|." |   % 23
                }
        }
}


%
% Chord rhythms
%

% Use a RhythmicStaff on the chords instead of this?
% It almost works, but not quite. Doesn't collapse chords above to single 
notes...

StaffC = \relative c
{
        \set Voice.autoBeaming = ##f
%       \set Staff.instrument = #"Rhythm"
        \override Staff.TimeSignature #'style = #'()
        \time 4/4
        \override NoteHead #'style = #'slash

        % Intro

        c4 c c c |   % 1
        c4 c c c |   % 2
        c4 c c c |   % 3
        c4 c c c |   % 4

        \repeat volta 4
        {
                % Verse

                c4 c c c |   % 5
                c4 c c c |   % 6
                c4 c c c |   % 7
                c4 c c c |   % 8
                c4 c c c |   % 9
                c4 c c c |   % 10
                c4 c c c |   % 11
                c4 c c c \bar "||"   % 12

                % Refrain

                \time 2/4

                c4 c \bar "||"   % 13

                \time 4/4

                c4 c c c |   % 14
                c4 c c c |   % 15
                c4. c8 ~ c2 |   % 16
                c4. c8 ~ c2 |   % 17
                c4. c8 ~ c2 |   % 18
        }
        \alternative
        {
                {
                        \time 2/4

                        c4 c |   % 19

                        \time 4/4

                        c4 c c c |   % 20
                        c4 c c c |   % 21
                }
                {
                        c4 c c c \bar "||"   % 22
                }
                {
                        c4-\markup { \italic { rit. } } c c2-\fermata \bar "|." 
|   % 23
                }
        }
}


\score
{
        <<
                <<
                        \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
                        \new Lyrics \lyricsto "lead" \LeadVoxText
                >>

                \new Staff \with
                {
                        \remove "Time_signature_engraver"
                        \remove "Clef_engraver"
%Hmm, removing this screws up the formatting...
%                       \remove "Key_engraver"
                        fontSize = #-3.0
                        \override StaffSymbol #'staff-space = #(magstep -3.0)
                }
                \StaffRiffs

                \new ChoirStaff = "Rhythm"
                <<
                        \new ChordNames = "chords" \Chords
                        \new RhythmicStaff = "chordRhythm" \StaffC
                >>

                \set Score.melismaBusyProperties = #'()
        >>

        \layout
        {
%               \context { \RemoveEmptyStaffContext }
%               ragged-last-bottom = ##t
                ragged-last = ##t

                \context
                {
                        \Score
                        \remove "Timing_translator"
                        \remove "Default_bar_line_engraver"
                        \remove "Repeat_acknowledge_engraver"
                }
                \context
                {
%                       \Staff
                        \RemoveEmptyStaffContext
                        \consists "Timing_translator"
                        \consists "Default_bar_line_engraver"
                        \consists "Repeat_acknowledge_engraver"
                }
                \context
                {
                        \RhythmicStaff
                        \consists "Timing_translator"
                        \consists "Default_bar_line_engraver"
                        \consists "Repeat_acknowledge_engraver"
                }
%{
                \context
                {
                        \ChordNames
                        \consists "Timing_translator"
                        \consists "Default_bar_line_engraver"
                        \consists "Repeat_acknowledge_engraver"
                }
%}
        }
}


\paper
{
  #(define fonts (make-pango-font-tree
    "Times New Roman"
    "DomCasual BT"
    "Luxi Mono"
    (/ staffSize 20)))
}