Re: Incipit alignment

[Martin Baker]

Thanks, David, that’s very helpful and certainly an improvement. I’ll keep 
working along the lines you suggest. M

> On 19 Apr 2022, at 14:41, David Kastrup <dak@gnu.org> wrote:
> 
> 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