Re: Horizontal line between hymn verses

[Valentin Petzel]

Hello Kira,

I’ve found that this version messes up Stanza Number alignment between above 
and blow the line. This different approach fixes that.

Cheers,
Valentin
%%% MIGHT AS WELL PUT THIS INTO AN INCLUDE FILE
#(define dashlength 10)
#(define dashindent 2)
#(define dashthickness 0.17)

lineSep =
#(define-music-function (lyr) (ly:music?)
   #{
\new Lyrics \with { 
    \override VerticalAxisGroup.staff-affinity = #CENTER
    clefPosition = 0
    \override Clef.X-offset = #dashindent
    \override Clef.X-extent = #'(0 . 0)
    \override Clef.stencil = #(lambda (grob) (make-line-stencil dashthickness 0 0 dashlength 0))
    \override VerticalAxisGroup.nonstaff-nonstaff-spacing = #'((basic-distance . 0)
                                                               (minimum-distance . 0)
                                                               (padding . 0.5))
    \consists "Bar_engraver"
    \override BarLine.stencil = ##f
    \consists "Clef_engraver"
    \remove "Extender_engraver"
    \remove "Hyphen_engraver"
    \remove "Stanza_number_engraver"
    \remove "Instrument_name_engraver"
    \remove "Font_size_engraver"
    \override LyricText.stencil = ##f
} $lyr
   #})

adjustLyricsAboveSeparator = \with {
  \override VerticalAxisGroup.nonstaff-nonstaff-spacing = #'((basic-distance . 0)
                                                             (minimum-distance . 0)
                                                             (padding . 0.5))
}
%%%


\header {
   title = ""
   subtitle = ""
   fsHymnal = ""
   fsHymnNumber = ""
   fsTextCredit = \markup { \wordwrap { Text credits go here. } }
   note = ""
}

StanzaOne = \lyricmode {
  \set stanza = "1"  
  This is an ex -- am -- ple
}

StanzaTwo = \lyricmode {
  \set stanza = "2"
  to show -- case the lyr -- ics
}

StanzaThree = \lyricmode {
  \set stanza = "3"
  dash __ _ se -- pa -- ra -- tion
}

StanzaFour = \lyricmode {
  \set stanza = "4" 
  mech --  an -- _ _ nics
}

DescantLyrics = \lyricmode {
  \set stanza = ""

}

% delete the following two variables if they will not be used
FinalRefrainLyrics = \lyricmode {

}

FinalRefrainDescantLyrics = \lyricmode {

}

%add variables from the Reponse text template here


\language "english"

hasChords     = ##f
hasDescant    = ##f

\header{
   fsTuneCredit = \markup { \wordwrap { Tune credits go here. } }
}

keyTime = {
    \time 4/4
    \numericTimeSignature
    \key c \major
    \partial 4
}

Soprano = \relative c' {
  \voiceOne
  \keyTime
    \repeat unfold 5 a' \break a'
  | 
 \bar "|."
}


Alto = \relative c' {
  \voiceTwo
  \keyTime
    
  | 
 \bar "|."
}

Tenor = \relative c {
  \voiceOne
  \keyTime
    
  | 
 \bar "|."
}

Bass = \relative c {
  \voiceTwo
  \keyTime
    
  | 
 \bar "|."
}



% delete the following if not being used
Chords = \relative c' {
  \chords {
  
    }
  }

Descant = \relative c'' {
  \keyTime
}

%
% Full score, with vocal markup
%
#(use-modules (guile-user))
\include "definitions.ly"


chordMarkup = {
%    \Chords 
%    \AccompChords
}

%{descantMarkup = {
    \new Staff \with
    { \override NoteHead #'font-size = #-2
      \override Stem #'font-size = #-2
      \override Rest #'font-size = #-2
      \override Accidental #'font-size = #-2
      \override Clef #'font-size = #-3
      \override KeySignature #'font-size = #-3
      \override TimeSignature #'font-size = #-3
      \override StaffSymbol #'staff-space = #(magstep -3)
    }
    <<
      \clef "treble"
      \new Voice = "DescantVoice" \Descant
      \lyricsto DescantVoice \new Lyrics = "DescantLyrics" \DescantLyrics
    >>
} %}

\score 
{
  <<
    $(if hasDescant descantMarkup)

    $(if hasChords chordMarkup)

    \new Staff 
    <<
      \clef "treble"
      \new Voice = "SopranoVoice" \Soprano 
      \new Voice = "AltoVoice" \Alto 
%      \new Lyrics = "SopranoResponse" \with { alignAboveContext = "staff" } { \lyricsto "SopranoVoice" { \SopranoResponse } }
%      \lyricsto AltoVoice \new Lyrics = "AltoResponse" \AltoResponse
      \new Lyrics \lyricsto SopranoVoice \StanzaOne
      \new Lyrics = "lyricsmiddle" \with \adjustLyricsAboveSeparator \lyricsto SopranoVoice \StanzaTwo
      \lineSep \StanzaOne
      \new Lyrics \lyricsto SopranoVoice \StanzaThree
      \new Lyrics \lyricsto SopranoVoice \StanzaFour
    >>
    \new Staff 
    <<
      \clef "bass"
      \new Voice = "TenorVoice" \Tenor 
      \new Voice = "BassVoice" \Bass 
%      \new Lyrics \with { alignAboveContext = "staff" } { \lyricsto TenorVoice  \TenorResponse }
%      \lyricsto BassVoice \new Lyrics \BassResponse
    >>
%    \Keyboard 
  >>
}

signature.asc
Description: This is a digitally signed message part.