\version "2.22.2"

global = 
{
	\key g \dorian
}

SopranoOne = 
\relative d''
{
	d1 |
}

AltoOne = 
\relative c''
{
	R1 |
}

TenorOne = 
\relative c'
{
	R1 |
}

BassOne = 
\relative c'
{
	R1 |
}

cantusNotes =
<<
	\global
	\SopranoOne
>>

altoNotes =
<<
	\global
	\AltoOne
>>

tenorNotes =
<<
	\global
	\TenorOne
>>

bassusNotes =
<<
	\global
	\BassOne
>>

incipitCantus =
\relative d''
{
	\clef "petrucci-c1"
	\key g \dorian
	\time 4/4
	d1
}

incipitAltus =
\relative g'
{
	\clef "petrucci-c3"
	\key g \dorian
	\time 4/4
	g1
}

incipitTenor =
\relative d'
{
	\clef "petrucci-c4"
	\key g \dorian
	\time 4/4
	d1
}

incipitBassus =
\relative g
{
	\clef "petrucci-f4"
	\key g \dorian
	\time 4/4
	g1
}

instrumentNameFieldWidth = #15/2

\score {
	%\keepWithTag #'score
	\transpose c d % score transposition
	<<
		\new StaffGroup
		<<
			%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
			\new Staff = "cantusStaff" \with {
				instrumentName =
				\markup
				\overlay
				{
					\hspace #instrumentNameFieldWidth
					"Cantus"
				}
				shortInstrumentName = ""
			}
			{
				\new Voice = "cantusVoice"
				\incipit \incipitCantus
				\clef "treble"
				\cantusNotes
			}
			%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
			\new Staff = "altusStaff" \with {
				instrumentName =
				\markup
				\overlay
				{
					\hspace #instrumentNameFieldWidth
					"Altus"
				}
				shortInstrumentName = ""
			}
			{
				\new Voice = "altusVoice"
				\incipit \incipitAltus
				\clef "treble"
				\altoNotes
			}
			%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
			\new Staff = "tenorStaff" \with {
				instrumentName =
				\markup
				\overlay
				{
					\hspace #instrumentNameFieldWidth
					"Tenor"
				}
				shortInstrumentName = ""
			}
			{
				\new Voice = "tenorVoice"
				\incipit \incipitTenor
				\clef "treble_8"
				\tenorNotes
			}
			%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
			\new Staff = "bassusStaff" \with {
				instrumentName =
				\markup
				\overlay
				{
					\hspace #instrumentNameFieldWidth
					"Bassus"
				}
				shortInstrumentName = ""
			}
			{
				\new Voice = "bassusVoice"
				\incipit \incipitBassus
				\clef "bass"
				\bassusNotes
			}
			%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
		>>
	>>
	\layout {
		\context {
			\Staff
			\override InstrumentName.extra-offset = #'(-1/2 . 0)
			%\override InstrumentName.self-alignment-X = #LEFT
		}
		\context {
			\Voice
			\consists "Ambitus_engraver"
		}
		\context {
			\MensuralStaff
			\override TimeSignature.style = #'neomensural
			\override InstrumentName.extra-offset = #'(-1/2 . 0)
		}
		\context {
			\MensuralVoice
			\override Stem.neutral-direction = #up
			\override NoteHead.style = #'neomensural
			\override Rest.style = #'neomensural
		}
	}
}

\paper{
	indent = 40
}