From: Carl Sorensen <c_sorensen@byu.edu>
Date: Mon, 8 Mar 2010 22:37:45 +0000 (-0700)
Subject: Add white padding to angle brackets in tablature harmonic
X-Git-Tag: release/2.13.16-1~39^2~4
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=832ea349119e9e606eb7411913bd041218501048;p=lilypond.git

Add white padding to angle brackets in tablature harmonic
---

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 67b325ea95..8e17401477 100644
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -464,6 +464,7 @@ and duration-log @var{log}."
          (half-thickness 0.05) ; should it be a property?
          (width 0.5) ; should it be a property?
          (angularity 1.5)  ; makes angle brackets
+         (white-padding 0.1) ; should it be a property?
 	 (lp (ly:stencil-aligned-to
                  (ly:stencil-aligned-to
                    (make-parenthesis-stencil y-extent
@@ -472,6 +473,8 @@ and duration-log @var{log}."
                                              angularity)
                    Y CENTER)
                  X RIGHT))
+         (lp-x-extent
+           (interval-widen (ly:stencil-extent lp X) white-padding))
 	 (rp (ly:stencil-aligned-to
                  (ly:stencil-aligned-to
                    (make-parenthesis-stencil y-extent
@@ -479,8 +482,15 @@ and duration-log @var{log}."
                                              width
                                              angularity)
                    Y CENTER)
-                 X LEFT)))
-
+                 X LEFT))
+          (rp-x-extent
+            (interval-widen (ly:stencil-extent rp X) white-padding)))
+    (set! lp (ly:make-stencil (ly:stencil-expr lp)
+                              lp-x-extent
+                              (ly:stencil-extent lp Y)))
+    (set! rp (ly:make-stencil (ly:stencil-expr rp)
+                              rp-x-extent
+                              (ly:stencil-extent rp Y)))
     (list (stencil-whiteout lp)
           (stencil-whiteout rp))))