Hi Pierre,
Thanks for your answer. I did try that, but because of my file structure it
doesn't work. As soon as I use \bookpart anywhere in my master file, the
output is corrupted for some reason -- probably because I'm including
multiple files that use higher-level expressions and variables with the
same names. I could reorganize everything, but that's precisely the hassle
I'm trying to avoid.
I enclose a few files as an example. What I want to do is bring the systems
of 'All things bright and beautiful' closer together on the page. If I do
ragged-bottom = ##t they are too close together; I could insert some
\vspaces to move the whole piece down a bit, but the systems remain too
bunched-up for my liking. If I put the coding for that section into a
\bookpart block, the output is immediately corrupted, so I can't use a
separate \paper block to achieve what I want.
Any ideas on the best way to solve this?
Regards,
Brent.
On Fri, 1 May 2020 at 16:09, Pierre Perol-Schneider <
pierre.schneider.pa...@gmail.com> wrote:
> Hi Brent,
> You can put the paper bloc in a bookpart, e.g.:
>
> \version "2.20.0"
>
> music = { \repeat unfold 100 s1 }
>
> \book {
> \bookpart {
> \score { \music }
> \header { piece = \markup\bold\fontsize #5 \fill-line { "15" } }
> \paper { system-system-spacing.basic-distance = 15 }
> }
> \bookpart {
> \score { \music }
> \header { piece = \markup\bold\fontsize #5 \fill-line { "20" } }
> \paper { system-system-spacing.basic-distance = 20 }
> }
> \bookpart {
> \score { \music }
> \header { piece = \markup\bold\fontsize #5 \fill-line { "30" } }
> \paper { system-system-spacing.basic-distance = 30 }
> }
> }
>
> HTH,
> Cheers,
> Pierre
>
> Le ven. 1 mai 2020 à 05:32, Brent Annable <brentanna...@gmail.com> a
> écrit :
>
>> Hi all,
>>
>> I'm currently putting a whole bunch of separate pieces together into one
>> document, and occasionally I want to manually adjust the distance between
>> systems in one piece without affecting the spacing in the others. Because
>> of the file structure I've chosen, I can't include any top-level
>> instructions in \paper blocks without affecting all the other pieces in the
>> document. Is there a way of including an instruction within a \score block
>> (or below), or some other way to help adjust between-system spacing?
>>
>> Regards,
>>
>> Brent.
>>
>
arpOffIII = { \once \override PianoStaff.Arpeggio.extra-offset = #'(0.3 . 0.0)}
arpOffIV = { \once \override PianoStaff.Arpeggio.extra-offset = #'(0.4 . 0.0)}
arpOffV = { \once \override PianoStaff.Arpeggio.extra-offset = #'(0.5 . 0.0)}
arpOffVI = { \once \override PianoStaff.Arpeggio.extra-offset = #'(0.6 . 0.0)}
arpOffVII = { \once \override PianoStaff.Arpeggio.extra-offset = #'(0.7 . 0.0)}
arpOffVIII = { \once \override PianoStaff.Arpeggio.extra-offset = #'(0.8 . 0.0)}
arpOffIX = { \once \override PianoStaff.Arpeggio.extra-offset = #'(0.9 . 0.0)}
arpOffX = { \once \override PianoStaff.Arpeggio.extra-offset = #'(1.0 . 0.0)}
arpOffXI = { \once \override PianoStaff.Arpeggio.extra-offset = #'(1.1 . 0.0)}
arpOffXII = { \once \override PianoStaff.Arpeggio.extra-offset = #'(1.2 . 0.0)}
breatheSymbol = {\override BreathingSign.text = \markup {
\line {
\musicglyph #"scripts.lvarcomma"
}
}}
pcc = {\partcombineChords}
pca = {\partcombineApart}
pcau = {\partcombineAutomatic}
ssf = {\once \override Stem.length = 4.6}
ss = {
\once \override Stem.length =
#(lambda (grob) (- (ly:stem::calc-length grob) 1.5))
}
stemOff = {\once \hide Staff.Stem}
tsOff = {\once \override Score.TimeSignature.stencil = ##f}
ov = {\once \oneVoice}
ovo = {\once \voiceOne}
ovt = {\once \voiceTwo}
sd = {\once \stemDown}
su = {\once \stemUp}
tn = {\once \tieNeutral }
td = {\once \tieDown}
tu = {\once \tieUp}
pca = {\once \partcombineApart}
startParenthesis = {
\once \override ParenthesesItem.stencils = #(lambda (grob)
(let ((par-list (parentheses-item::calc-parenthesis-stencils grob)))
(list (car par-list) point-stencil )))
}
endParenthesis = {
\once \override ParenthesesItem.stencils = #(lambda (grob)
(let ((par-list (parentheses-item::calc-parenthesis-stencils grob)))
(list point-stencil (cadr par-list))))
}
parch = #(define-music-function (parser location gap) (number?)
#{
\once \override Arpeggio #'stencil = #(lambda (grob)
(ly:stencil-add
(ly:arpeggio::brew-chord-slur grob)
(ly:stencil-translate-axis
(ly:stencil-rotate (ly:arpeggio::brew-chord-slur grob) 180 0 0)
gap X)))
\once \override Arpeggio #'X-extent = #(lambda (grob)
(ly:stencil-extent (ly:arpeggio::brew-chord-slur grob) X))
\once \override Arpeggio #'positions = #(lambda (grob)
(interval-widen (ly:arpeggio::calc-positions grob) 0.5))
$(make-music 'EventChord 'elements (list (make-music 'ArpeggioEvent)))
#})
#(define-markup-command (openBracket layout props heitgh) (number?)
(interpret-markup layout props
(markup #:line (#:with-dimensions (cons 0 0) (cons 0 0)
(#:path 0.27
(list (list (quote moveto) 0 1)
(list (quote lineto) -1 0)
(list (quote lineto) -1 (* heitgh -1))
(list (quote lineto) 0 (* heitgh -1.08))))))))
#(define-markup-command (openBracketFar layout props heitgh) (number?)
(interpret-markup layout props
(markup #:line (#:with-dimensions (cons 0 0) (cons 0 0)
(#:path 0.27
(list (list (quote moveto) -0.5 1)
(list (quote lineto) -1.5 0)
(list (quote lineto) -1.5 (* heitgh -1))
(list (quote lineto) -0.5 (* heitgh -1.08))))))))
#(define-markup-command (closeBracket layout props heitgh) (number?)
(interpret-markup layout props
(markup #:line (#:with-dimensions (cons 0 0) (cons 0 0)
(#:path 0.27
(list (list (quote moveto) 1.3 1)
(list (quote lineto) 2.3 0)
(list (quote lineto) 2.3 (* heitgh -1))
(list (quote lineto) 1.3 (* heitgh -1.08))))))))
#(define-markup-command (closeBracketFar layout props heitgh) (number?)
(interpret-markup layout props
(markup #:line (#:with-dimensions (cons 0 0) (cons 0 0)
(#:path 0.27
(list (list (quote moveto) 3 1)
(list (quote lineto) 4 0)
(list (quote lineto) 4 (* heitgh -1))
(list (quote lineto) 3 (* heitgh -1.08))))))))
\version "2.19.65"
%{\header {
title = "All things bright and beautiful"
subtitle = "TIS 135"
composer = "Alan Collyer"
piece = \markup \bold \underline \large "Intonation"
tagline = ""
}
%}
% <<\voiceOne {} \new Voice {\voiceTwo } >>
% \override Stem.length = 4.6
% \once \override PianoStaff.Arpeggio.extra-offset = #'(0.9 . 0.0)
global = {
\key d \major
\time 4/4
\override BreathingSign.text = \markup {
\line {
\musicglyph #"scripts.lvarcomma"
}
}
}
rightOne = \relative c'' {
\global
%\partial 4
\voiceOne fis8 g a4 a e
d8 e fis4 fis4. c8
b cis d4 d4. fis8
e[ fis] e d cis[ b] a g \break
d'4 fis, g b
a4. fis8 d4 b'
a d fis,4. e8
d4. cis8 d8 e fis e
fis g a4 a b8 cis \break
d e fis4 fis4. c8
b8 cis d4 d4. c8
b8 cis d4 cis8 d e4 d1~-\tweak Y-offset 3.5^\markup {\italic "rall."}
d1\fermata
}
rightTwo = \relative c'' {
\global
%\partial 4
d8 e fis4 e8[ d] cis a
b cis d4 c8 b a4
g8 a b4 a8 g fis4
g8 a g4 a8 g fis e
fis e d4 d cis
a8 b cis2 e8 cis
cis d e g b, d cis4
d4. cis8 b cis d4
d8 e fis4 e8 fis g a
b cis d4 c8 b a4
g8 a b4 a8 g fis4
g8 a b8 g a4 a8 g
fis8 b a g fis g fis e
fis1\fermata
}
leftOne = \relative c' {
\global
s1*12
r4 cis8 b a b a g
a1 \fermata
} %}
leftTwo = \relative c {
\global
%\partial 4
\oneVoice d4 d' cis8 b a4
b, b' a8 g fis4
g,4 g' fis8 e d4
e2 a4 a,
d4. c8 b a g4
fis8 g a4 b8 a g4
fis4 g2 a4
b4 b' a g
fis8 e d4 cis8 b a4
b b' a8 g fis4
g,4 g' fis8 e d4
g, e a8 b cis a \voiceTwo d1~
d1\fermata
\bar "|."
}
\score { \header {piece = \markup \bold \underline \large "Intonation"}
\new PianoStaff <<
\set PianoStaff.connectArpeggios = ##t
\override PianoStaff.Arpeggio.stencil = #ly:arpeggio::brew-chord-bracket
\new Staff = "right" << \rightOne \\ \rightTwo >>
\new Staff = "left" { \clef bass << \leftOne \\
\leftTwo>> }
>>
\layout {}
}
%{
rightOneAlt = \relative c'' {
\global
\partial 4
\voiceOne
}
rightTwoAlt = \relative c' {
\global
\partial 4
}
leftOneAlt = \relative c' {
\global
\partial 4
\clef bass
}
leftTwoAlt = \relative c {
\global
\partial 4
\bar "|."
}
%{
\score {
\header {
piece = \markup \bold \underline \large "Alternative Harmonisation"
}
\new PianoStaff <<
\set PianoStaff.connectArpeggios = ##t
\override PianoStaff.Arpeggio.stencil = #ly:arpeggio::brew-chord-bracket
\new Staff = "right" << \rightOneAlt \\ \rightTwoAlt >>
\new Staff = "left" << \leftOneAlt \\ \leftTwoAlt >>
>>
\layout { }
}
%{
rightOneAltII = \relative c'' {
\global
\partial 4
\voiceOne
}
rightTwoAltII = \relative c' {
\global
\partial 4
}
leftOneAltII = \relative c' {
\global
\partial 4
\clef bass
}
leftTwoAltII = \relative c {
\global
\partial 4
\bar "|."
}
\score {
\header {
piece = \markup \bold \underline \large "Alternative Harmonisation"
}
\new PianoStaff <<
\set PianoStaff.connectArpeggios = ##t
\override PianoStaff.Arpeggio.stencil = #ly:arpeggio::brew-chord-bracket
\new Staff = "right" << \rightOneAltII \\ \rightTwoAltII >>
\new Staff = "left" << \leftOneAltII \\ \leftTwoAltII >>
>>
\layout { }
}
%}\version "2.18.65"
\paper {indent = 0}
rightOneAltII = \relative c' {
\key g\major
%\partial 4
\oneVoice R1
R1
s2 d8 e16 fis g a b c \break
\voiceOne d4. c8 b\arpeggio d c a \oneVoice
<g d b>2 <fis d a>4. g8--
g-- fis-- g-- a-- <g b d g>2\fermata
}
rightTwoAltII = \relative c'' {
\key g\major
s1 s1 s1
a4 gis e e
%\partial 4
}
leftOneAltII = \relative c' {
\key g\major
%\partial 4
\clef bass a4. b8 c b a4
b4. c8 d c b4
s1
b4 b c\arpeggio a
s1
s1
}
leftTwoAltII = \relative c {
\key g\major
%\partial 4
d4. g8 d g d4
g4. d8 g d g4
d8 e16 fis g a b c s2
f,4 e a, c
\oneVoice d-- e-- d4.-- g8--
g-- fis-- <g e>-- <a d,>-- <g, \parenthesize b'>2\fermata
\bar "|."
}
\score {
\header {
%piece = \markup \bold \underline \large "Cwm Rhondda"
}
\new PianoStaff <<
\set PianoStaff.connectArpeggios = ##t
\override PianoStaff.Arpeggio.stencil = #ly:arpeggio::brew-chord-bracket
\new Staff = "right" << \rightOneAltII \\ \rightTwoAltII >>
\new Staff = "left" << \leftOneAltII \\ \leftTwoAltII >>
>>
\layout { ragged-last = ##f}
}
\version "2.18.2"
\header {tagline = ##f}
\paper {ragged-bottom = ##f}
\markup {
\fill-line {
\center-column { %\vspace #2
\bold \fontsize #4.5 "Ar Hyd Y Nos"
\bold "TIS 168"
}
}
}
\markup {\fill-line {\vspace #1 \null "Alan Collyer"}}
\tocItem \markup "Ar Hyd Y Nos"
\include "Ar-Hyd-Y-Nos.ly"
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%\pageBreak
\markup {
\fill-line {
\center-column { %\vspace #2
\bold \fontsize #4.5 "All things bright and beautiful"
\bold "TIS 135"
}
}
}
\markup {\fill-line {\vspace #1 \null "Alan Collyer"}}
\tocItem \markup "All things bright and beautiful"
\include "All-Things-Bright-And-Beautiful.ly"
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\pageBreak
\markup {
\fill-line {
\center-column {
\bold \fontsize #4.5 "Cwm Rhondda"
\bold "LH 347; TIS 569"
}
}
}
\markup {\fill-line {\vspace #1 \null "Alan Collyer"}}
\tocItem \markup "Cwm Rhondda"
\include "Cwm-Rhondda.ly"
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\version "2.18.65"
rightOneAlt = \relative c'' {
\key g\major
%\partial 4
\voiceOne g4. fis8 e4 g
a4. g8 fis4 d
e2 fis4. fis8
<g d b>4 <a e c> <b fis d> <d b fis>
<c a e> <a e c> <b g d>2\fermata
}
rightTwoAlt = \relative c' {
\key g\major
s1 s1
d4 c b c
%\partial 4
}
leftOneAlt = \relative c' {
\key g\major
%\partial 4
\clef bass \oneVoice g4. fis8 e4 g4
a4. g8 fis4 d
\voiceOne g2 fis4 a
g2. d4
e f g2\fermata
}
leftTwoAlt = \relative c {
\key g\major
s1 s1
c2 d4. d8
g,1~
g1\fermata
%\partial 4
\bar "|."
}
\score {
\header {
piece = \markup \bold \underline \large "Intonation"
}
\new PianoStaff <<
\set PianoStaff.connectArpeggios = ##t
\override PianoStaff.Arpeggio.stencil = #ly:arpeggio::brew-chord-bracket
\new Staff = "right" << \rightOneAlt \\ \rightTwoAlt >>
\new Staff = "left" << \leftOneAlt \\ \leftTwoAlt >>
>>
\layout { ragged-right = ##f}
}
