From 1fdae3d2ecca0991e490ccf1556a34774953d2af Mon Sep 17 00:00:00 2001 From: Reinhold Kainhofer 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)))) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -- 2.11.4.GIT