From: Nicolas Sceaux <nicolas.sceaux@free.fr>
Date: Sat, 28 Jun 2008 16:35:05 +0000 (+0200)
Subject: Markup commands: define \abs-fontsize command
X-Git-Tag: release/2.11.50-1~12^2~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b96671f4d9cacdcfa3bd7426dd60a3025b84e721;p=lilypond.git

Markup commands: define \abs-fontsize command
---

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