Re: Incipit alignment

[David Kastrup]

Martin Baker <martinbaker32@mac.com> writes:

> Ah, I thought I’d deleted everything unnecessary, but missed the
> “system-spacing = “ line. Code re-pasted below.

Well, I outcommented it.  You could try doing it in this manner:

\version "2.22.2"
\language "english"

incipitwidth = 5

global = 
        {
        \key g \major
        }

SopranoOne = 
        \relative c''
        {
        e1 |
        }

AltoOne = 
        \relative c''
        {
        R1 |
        }

TenorOne = 
        \relative c'
        {
        R1 |
        }

BassOne = 
        \relative c'
        {
        R1 |
        }

incipitCantus = \markup {
        \score
                {
                        {
                        \set Staff.instrumentName = "Cantus"
                        \override NoteHead.style = #'neomensural
                        \override Rest.style = #'neomensural
                        \override Staff.TimeSignature.style = #'neomensural
                        \clef "petrucci-c1"
                        \key f \major
                        \time 4/4
                        d''1
                        }
                \layout {
                line-width=\incipitwidth
                indent = 0
                                }
                        }
                }

incipitAltus = \markup {
        \score
                {
                        {
                        \set Staff.instrumentName = "Altus"
                        \override NoteHead.style = #'neomensural
                        \override Rest.style = #'neomensural
                        \override Staff.TimeSignature.style = #'neomensural
                        \clef "petrucci-c3"
                        \key f \major
                        \time 4/4
                        g'1
                        }
                \layout {
                line-width=\incipitwidth
                indent = 0
                                }
                        }
                }

incipitTenor = \markup {
        \score
                {
                        {
                        \set Staff.instrumentName = "Tenor"
                        \override NoteHead.style = #'neomensural
                        \override Rest.style = #'neomensural
                        \override Staff.TimeSignature.style = #'neomensural
                        \clef "petrucci-c4"
                        \key f \major
                        \time 4/4
                        d'1
                        }
                \layout {
                line-width=\incipitwidth
                indent = 0
                                }
                        }
                }

incipitBassus = \markup {
        \score
                {
                        {
                        \set Staff.instrumentName = "Bassus"
                        \override NoteHead.style = #'neomensural
                        \override Rest.style = #'neomensural
                        \override Staff.TimeSignature.style = #'neomensural
                        \clef "petrucci-f4"
                        \key f \major
                        \time 4/4
                        g1
                        }
                \layout {
                line-width=\incipitwidth
                indent = 0
                                }
                        }
                }

incipitWith = \with
{
  \override InstrumentName.self-alignment-X = #RIGHT
  \override InstrumentName.self-alignment-Y = ##f
}

\score {
<<
\new ChoirStaff
<<
        \new Staff \with \incipitWith <<
        \global
        \set Staff.instrumentName = \incipitCantus
        \clef "G"
        \new Voice="v1" {
        \SopranoOne
                }
                >>
        
        \new Staff \with \incipitWith <<
        \global
        \set Staff.instrumentName = \incipitAltus
        \clef "G"
        \new Voice="v2" {
        \AltoOne
                }
                >>
        
        \new Staff \with \incipitWith <<
        \global
        \set Staff.instrumentName = \incipitTenor
        \clef "G_8"
        \new Voice="v3" {
        \TenorOne
                }
                >>
        
        \new Staff \with \incipitWith <<
        \global
        \set Staff.instrumentName = \incipitBassus
        \clef "F"
        \new Voice="v4" {
        \BassOne
                }
                >>
>>

>>
}


\paper{
        indent = 3.5\cm
%       system-system-spacing =
}

Not fond of that indentation but not willing to invest time fixing it,
either.

I think there is an \incipit command that can help with the task but I
am too lazy to read up on it right now.  But it should be documented
somewhere.  At any rate, your code just needs working with the
self-alignment-X and self-alignment-Y settings of the outer
InstrumentName .

-- 
David Kastrup