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 <d...@gnu.org> wrote:
>
> 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
