From 4e1a3fd67b5aaba50e78fb33086efbf00b5d12b2 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sun, 22 Jan 2006 20:24:17 +0000 Subject: [PATCH] (with-dimensions): with-dimensions markup command. --- ChangeLog | 3 +++ scm/define-markup-commands.scm | 8 ++++++++ 2 files changed, 11 insertions(+) diff --git a/ChangeLog b/ChangeLog index 45a5a2dc27..48dc685a44 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2006-01-22 Han-Wen Nienhuys + * scm/define-markup-commands.scm (with-dimensions): + with-dimensions markup command. + * input/test/font-table.ly: use it. * lily/open-type-font.cc (glyph_list): new function. diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm index 23a0bd15fc..7e405f0f19 100644 --- a/scm/define-markup-commands.scm +++ b/scm/define-markup-commands.scm @@ -633,6 +633,14 @@ alignment accordingly." (ly:stencil-aligned-to m X dir))) + +(def-markup-command (with-dimensions layout props x y arg) (number-pair? number-pair? markup?) + "Set the dimensions of @var{arg} to @var{x} and @var{y}." + + (let* ((m (interpret-markup layout props arg))) + (ly:make-stencil (ly:stencil-expr m) x y))) + + (def-markup-command (pad-around layout props amount arg) (number? markup?) "Add padding @var{amount} all around @var{arg}. " -- 2.39.2