[trivial patch] fix bracket padding

[Graham Percival]

Since this contains a patch, I forward it to lilypond-devel.  Does
anybody think it looks reasonable?

Cheers,
- Graham

On Mon, Jul 06, 2009 at 11:08:42PM +0000, Thomas Morgan wrote:
> Consider this input:
> 
>   \version "2.13.2"
>   \markup {
>     \column {
>       \concat { "a" \bracket { "b" } "c" }
>       "abc"                                   % For comparison.
>     }
>   }
> 
> The right bracket's padding causes the following "c" to move out
> of the way of the bracket.  But the left bracket's padding does not
> prevent the "a" and the left bracket from colliding.
> 
> Is this a bug?  If so, it could be fixed by the following patch.
> 
> (I also switched `lb' and `rb' having noticed that `lb' was actually
> the right bracket and `rb' was the left bracket.)
> 
> diff --git a/scm/stencil.scm b/scm/stencil.scm
> index 105f6f5..fcf5434 100644
> --- a/scm/stencil.scm
> +++ b/scm/stencil.scm
> @@ -62,12 +62,12 @@
>    "Add brackets around STIL, producing a new stencil."
>  
>    (let* ((ext (ly:stencil-extent stil axis))
> -      (lb (ly:bracket axis ext thick (- protusion)))
> -      (rb (ly:bracket axis ext thick protusion)))
> +      (lb (ly:bracket axis ext thick protusion))
> +      (rb (ly:bracket axis ext thick (- protusion))))
>      (set! stil
> -       (ly:stencil-combine-at-edge stil (other-axis axis) 1 lb padding))
> +       (ly:stencil-combine-at-edge stil (other-axis axis) 1 rb padding))
>      (set! stil
> -       (ly:stencil-combine-at-edge stil (other-axis axis) -1 rb padding))
> +       (ly:stencil-combine-at-edge lb (other-axis axis) 1 stil padding))
>      stil))
>  
>  (define-public (make-line-stencil width startx starty endx endy)
> 
> 
> 
> 
> _______________________________________________
> bug-lilypond mailing list
> address@hidden
> http://lists.gnu.org/mailman/listinfo/bug-lilypond