(with-dimensions):

with-dimensions markup command.

diff --git a/ChangeLog b/ChangeLog
index 45a5a2dc27d7c6b324b7f004066a2616861367fc..48dc685a44f7802738e1106e17ded7c9922fdd40 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2006-01-22  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+       * 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 23a0bd15fc822ad08add36bcad5e284ecfc07836..7e405f0f19ccf13313777427c8ded5ae92a51561 100644 (file)
--- 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}. "