Hi,
I'm trying to redefine abs-fontsize from define-markup-commands.scm, so that
baseline-skip is also absolute. Current behavior is that with abs-fontsize,
baseline-skip scales to global-staff-size, which I don't like. I know that
there was attempt made by Nicolas Sceaux
(http://lilypond.1069038.n5.nabble.com/Markup-in-absolute-font-size-td34087.html),
but no solution there. Here's original code:
#(define-markup-command (abs-fontsize layout props size arg)
(number? markup?)
#:category font
(let* ((ref-size (ly:output-def-lookup layout 'text-font-size 12))
(text-props (list (ly:output-def-lookup layout 'text-font-defaults)))
(ref-word-space (chain-assoc-get 'word-space text-props 0.6))
(ref-baseline (chain-assoc-get 'baseline-skip text-props 3))
(magnification (/ size ref-size)))
(interpret-markup
layout
(cons
`((baseline-skip . ,(* magnification ref-baseline))
(word-space . ,(* magnification ref-word-space))
(font-size . ,(magnification->font-size magnification)))
props)
arg)))
If you have any ideas, please share! Perhaps something like abs-baseline-skip
is needed?
--Karol
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
