From 1fdae3d2ecca0991e490ccf1556a34774953d2af Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Tue, 20 Nov 2012 22:55:38 +0100
Subject: [PATCH] Add pad-y markup command
---
orchestrallily.ily | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/orchestrallily.ily b/orchestrallily.ily
index 37194ec..154df4f 100644
--- a/orchestrallily.ily
+++ b/orchestrallily.ily
@@ -1238,6 +1238,14 @@ addArticulation = #(define-music-function (parser location type music)
(add-articulation music type))
+#(define-markup-command (pad-y layout props amount arg)
+ (number? markup?)
+ #:category align
+ (let* ((m (interpret-markup layout props arg))
+ (x (ly:stencil-extent m X))
+ (y (ly:stencil-extent m Y)))
+ (ly:make-stencil (ly:stencil-expr m) x
+ (interval-widen y amount))))
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--
GitLab