> I use a solution as below.
Oops! Here the complete e-mail.
Werner
======================================================================
#(define-public (pt-to-ss size)
"Convert from points to staff space units."
;; The value `output-scale' gives the size (in mm) of the staff space at
;; the global staff size. By definition, the staff space for a staff
;; size of 20pt is 20pt / 4 = 5pt.
(let* ((5pt (ly:pt 5))
(output-scale (ly:output-def-lookup $defaultpaper 'output-scale 1))
(factor (/ output-scale 5pt))
(staff-space (* 5 factor)))
(/ size staff-space)))
#(define-markup-command (abs-baseline-skip layout props size arg)
(number? markup?)
#:category font
"Use @var{size} as the absolute value for @code{baseline-skip} (in
points)."
(interpret-markup layout
(cons `((baseline-skip . ,(pt-to-ss size)))
props)
arg))
\paper {
line-width = 170.0\mm
top-margin = 15.0\mm
bottom-margin = 15.0\mm
indent = 20.0\mm
top-markup-spacing = #`((basic-distance . ,(pt-to-ss 30))
(minimum-distance . ,(pt-to-ss 30))
(padding . 0)
(stretchability . 0))
...
}
bookTitleMarkup = \markup {
\abs-baseline-skip #20 {
\column {
\fill-line {
\abs-fontsize #18 \bold
\fromproperty #'header:title
}
...
}
}
}
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
