lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Extra padding between ChordNames and custom headers


From: Aaron Hill
Subject: Re: Extra padding between ChordNames and custom headers
Date: Sat, 17 Jul 2021 02:48:19 -0700
User-agent: Roundcube Webmail/1.4.9

On 2021-07-17 2:24 am, Robin Bannister wrote:
Robin Bannister wrote:
And the put-mm [1] version of this would be

Forget that!

Sorry for the noise.  Missing Nabble's Classic overview.

On the contrary, it led me to this variation:

%%%%
\version "2.22.0"

song =
<< \new ChordNames \chordmode { c2 d:7 | g1 }
   \new Voice \fixed c' { g2 a4 fis | g1 } >>

#(define-markup-command
  (header-pad-below layout props arg)
  (markup?)
  (let ((padding (chain-assoc-get 'header:pad-below props 0)))
   (interpret-markup layout props
    (markup #:put-adjacent Y DOWN arg
     #:with-dimensions '(0 . 0) `(0 . ,padding) #:null))))

\paper {
  indent = 0 line-width = 2\in ragged-right = ##f
  scoreTitleMarkup = \markup \header-pad-below \scoreTitleMarkup
}

\score { \header { piece = "Duis blandit lorem" } \song }
\score { \header { piece = "Curabitur condimentum" pad-below = 2 } \song }
\score { \header { opus = "Integer sit amet" pad-below = 1 } \song }
\score { \header { pad-below = 3 } \song }
%%%%


-- Aaron Hill

Attachment: markup-chord-spacing-2.cropped.png
Description: PNG image


reply via email to

[Prev in Thread] Current Thread [Next in Thread]