From b96671f4d9cacdcfa3bd7426dd60a3025b84e721 Mon Sep 17 00:00:00 2001 From: Nicolas Sceaux Date: Sat, 28 Jun 2008 18:35:05 +0200 Subject: [PATCH] Markup commands: define \abs-fontsize command --- scm/define-markup-commands.scm | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm index 0170938077..4abfbc311f 100644 --- a/scm/define-markup-commands.scm +++ b/scm/define-markup-commands.scm @@ -1420,6 +1420,31 @@ any sort of property supported by @rinternals{font-interface} and (cons '((font-size . -5) (font-encoding . fetaNumber)) props) arg)) +(define-builtin-markup-command (abs-fontsize layout props size arg) + (number? markup?) + font + ((word-space 1) + (baseline-skip 2)) + "Use @var{size} as the absolute font size to display @var{arg}. +Adjust baseline skip and word space accordingly. +@lilypond[verbatim,quote] +\\markup { + default text font size + \\hspace #2 + \\abs-fontsize #16 { text font size 16 } + \\hspace #2 + \\abs-fontsize #12 { text font size 12 } +} +@end lilypond" + (let* ((ref-size (ly:output-def-lookup layout 'text-font-size 12)) + (magnification (/ size ref-size))) + (interpret-markup layout + (cons `((baseline-skip . ,(* magnification baseline-skip)) + (word-space . ,(* magnification word-space)) + (font-size . ,(magnification->font-size magnification))) + props) + arg))) + (define-builtin-markup-command (fontsize layout props increment arg) (number? markup?) font -- 2.39.5