Re: Incipit alignment

[David Kastrup]

Martin Baker <martinbake...@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