[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: LSR-snippet 1046
From: |
Thomas Morley |
Subject: |
Re: LSR-snippet 1046 |
Date: |
Sun, 9 Oct 2016 11:57:58 +0200 |
2016-10-03 19:47 GMT+02:00 Pierre Perol-Schneider
<address@hidden>:
> Hi Harm,
> No problem, please do so.
> Cheers,
> Pierre
>
> 2016-10-03 13:29 GMT+02:00 Thomas Morley <address@hidden>:
>>
>> Hi,
>>
>> I had a closer look at the currently unapproved LSR-snippet
>> http://lsr.di.unimi.it/LSR/Item?u=1&id=1046
>> It is tagged docs.
>>
>> I'm not realy happy with the new markups created there. Why not set
>> font-size directly?
>> Leading to:
>>
>> \version "2.18.0"
>>
>> InstrumentNameFontSize =
>> #(define-music-function (parser location font-size-pair)(pair?)
>> "Sets the @code{font-size} of @code{InstrumentName}.
>> The font-size for the initial @code{instrumentName} is taken from the
>> first
>> value in @var{font-size-pair}. @code{shortInstrumentName} will get the
>> second
>> value of @var{font-size-pair}.
>> "
>>
>> ;; This code could be changed/extended to set different values for each
>> ;; occurance of `shortInstrumentName'
>>
>> #{
>> \override InstrumentName.after-line-breaking =
>> #(lambda (grob)
>> (let* ((orig (ly:grob-original grob))
>> (siblings (if (ly:grob? orig)
>> (ly:spanner-broken-into orig)
>> '())))
>> (if (pair? siblings)
>> (begin
>> (ly:grob-set-property!
>> (car siblings)
>> 'font-size
>> (car font-size-pair))
>> (for-each
>> (lambda (g)
>> (ly:grob-set-property! g 'font-size (cdr
>> font-size-pair)))
>> (cdr siblings))))))
>> #})
>>
>> \layout {
>> \context {
>> \Staff
>> \InstrumentNameFontSize #'(6 . -3)
>> }
>> }
>>
>> \new StaffGroup <<
>> \new Staff
>> \with {
>> instrumentName = "Flute"
>> shortInstrumentName = "Fl."
>> }
>> { c''1 \break c'' \break c'' }
>> \new Staff
>> \with {
>> instrumentName = "Violin"
>> shortInstrumentName = "Vl."
>> }
>> { c''1 \break c'' \break c'' }
>> >>
>>
>> Pierre, I know it is your snippet. What do you think?
>>
>> @all
>> Are there any problems with my proposal, that I didn't consider?
>>
>> Cheers,
>> Harm
>
>
Done.
Approved as
"Different font size settings for instrumentName and shortInstrumentName"
http://lsr.di.unimi.it/LSR/Item?id=1046
Cheers,
Harm