Re: Parenthesis/bracket/brace questions

[Thomas Morley]

2018-05-21 17:09 GMT+02:00 Thomas Morley <address@hidden>:
> 2018-05-21 15:03 GMT+02:00 Brent Annable <address@hidden>:
>> Hey Andrew,
>>
>> Wow, this looks like exactly like my score! Thank you very much, I managed
>> to tweak the values of this code to get exactly the shape I needed.
>>
>> On a side note, in my searches I noticed it's now possible to define
>> different barline types, and the bracket type looks like it would also do
>> the job very well here... but I can't get the brace to span both staves
>> without having 'horns' (there seems to be some weird spanning behaviour
>> too):
>>
>> \version "2.19.65"
>>
>> \defineBarLine "[" #'("" "[" ".")
>> \defineBarLine "]" #'("]" "" ".")
>>
>> upper = {
>>   c''4 \bar "[" 4 4 \bar "]" 4
>> }
>>
>> lower = {
>>   \clef bass
>>   c4 4 4 4
>> }
>>
>> \score {
>>   \new PianoStaff <<
>>     \new Staff {
>>       \upper
>>     }
>>     \new Staff {
>>       \lower
>>     }
>>   >>
>> }
>>
>> Any ideas? I'm stumped.
>>
>> Brent.
>
> Hi Brent,
>
> (1)
> thanks for spotting a bug in the definition of `make-bracket-bar-line'.
> It will need further testings, before I can think of putting up a
> patch, but I propose the fix below:
>
> #(define ((make-bracket-bar-line dir) grob extent)
>   "Draw a bracket-style bar line. If @var{dir} is set to @code{LEFT}, the
> opening bracket will be drawn, for @code{RIGHT} we get the closing bracket."
>   (let* ((thick-stil (make-thick-bar-line grob extent))

;; To test in a local file replace above with:
;;   (not needed if the fix is done in bar-line.scm):
(thick-stil ((@@ (lily) make-thick-bar-line) grob extent))

>          (brackettips-up (ly:font-get-glyph (ly:grob-default-font grob)
>                                             "brackettips.up"))
>          (brackettips-down (ly:font-get-glyph (ly:grob-default-font grob)
>                                               "brackettips.down"))
>          ;; the x-extent of the brackettips must not be taken into account
>          ;; for bar line constructs like "[|:", so we set new bounds:
>          (tip-up-stil (ly:make-stencil (ly:stencil-expr brackettips-up)
>                                        (cons 0 0)
>                                        (ly:stencil-extent brackettips-up Y)))
>          (tip-down-stil (ly:make-stencil (ly:stencil-expr brackettips-down)
>                                          (cons 0 0)
>                                          (ly:stencil-extent
> brackettips-down Y)))
>          (stencil (ly:stencil-add
>                    thick-stil
>                    (ly:stencil-translate-axis tip-up-stil
>                                               (interval-end extent)
>                                               Y)
>                    (ly:stencil-translate-axis tip-down-stil
>                                               (interval-start extent)
>                                               Y))))
>
>     (if (eqv? dir LEFT)
>         stencil
>         ;(ly:stencil-scale stencil -1 1)
>         (flip-stencil X stencil)
>         )))
>
> #(add-bar-glyph-print-procedure "[" (make-bracket-bar-line LEFT))
> #(add-bar-glyph-print-procedure "]" (make-bracket-bar-line RIGHT))
>
>
> %% Example
>
> #(define-bar-line "[" "|" "[" ".")
> #(define-bar-line "]" "]" #f ".")
>
>
> #(define-bar-line "[|:" "|" "[|:" ".|")
> #(define-bar-line ":|]" ":|]" #f " |.")
> #(define-bar-line ":|][|:" ":|]" "[|:" " |..|")
>
> upper = {
>   c''4 \bar "[" 4 4 \bar "]" 4
>   c''4 \bar "[|:" 4 \bar ":|][|:" 4 \bar ":|]" 4
> }
>
> lower = {
>   \clef bass
>   c4 4 4 4
>   c4 4 4 4
> }
>
> \score {
>   \new PianoStaff <<
>     \new Staff {
>       \upper
>     }
>     \new Staff {
>       \lower
>     }
>   >>
> }
>
> (2) You will always get those brackettips for every staff. It's a
> limitation, caused by the way LilyPond prints BarLines/SpanBars.
>
> As workaround two LSR-snippets are available:
> http://lsr.di.unimi.it/LSR/Item?id=1032
> http://lsr.di.unimi.it/LSR/Item?id=991
>
>
>
> Cheers,
>   Harm