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
incipitExample.ly