Re: How to join notes in markup?

[Thomas Morley]

2016-03-11 22:58 GMT+01:00 Thomas Morley <address@hidden>:
> 2016-03-11 11:21 GMT+01:00 tisimst <address@hidden>:
>
>> (though further suggestions for improvement
>> are welcome).
>>
>> Thanks,
>> Abraham
>
> Hi Abraham,
>
> just had a more thoroughly look at your snippet at
> http://lsr.di.unimi.it/LSR/Item?id=1029
>
> The biggest issue I see is how to change fontsize. I post my own
> commented suggestion below.
> Best would be that score-markup would respect \fontsize, not sure how
> to do that (if possible at all), though.
>
> #(define-markup-command (ezscore layout props mus) (ly:music?)
> ;; introduce a property to make overriding it possible
>   #:properties ((size 0))
>   (interpret-markup layout props
>     #{
>       \markup {
>         \score {
> ;; work on a copy of music! Hence $ not #
>           \new RhythmicStaff { $mus }
>           \layout {
>             \context {
>               \RhythmicStaff
>               \remove Clef_engraver
>               \remove Time_signature_engraver
> ;; Don't remove Staff_symbol_engraver, omit StaffSymbol.
> ;; (probably set line-count zero, alternatively)
> ;; In order to keep changes for fontSize/staff-space/thickness possible,
> ;; Stem/Beam etc rely on it for thickness, length etc
>
>               \omit StaffSymbol
>               fontSize = #size
>               \override StaffSymbol.staff-space = #(magstep size)
>               \override StaffSymbol.thickness = #(magstep size)
>             }
>             indent = 0
>           }
>         }
>       }
>     #}))
>
> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
>
> \markup {
>   Let's try something simple:
>   \note #"8" #UP + \note #"8" #UP =
>   % BEFORE USING EZNOTES...
>   \combine
>     \combine
> %% slightly simplified, here and below
>       \note #"4" #UP
>       \translate #'(1.25 . 2.8) \beam #3 #0 #.5
>     \concat {
>       \hspace #3
>       \note #"4" #UP
>     }
>   . Yikes! Not so easy by hand.
> }
>
> \markup {
>   Much easier:
>   \note #"8" #UP + \note #"8" #UP =
>   % AFTER USING EZNOTES...
>   \ezscore ##{ { c8[ c] } #}.
>   % LET'S DO SOMETHING HARDER NOW...
>   Now try constructing
> %% size-override applied
>   \override #'(size . -6)
>   \ezscore ##{
>     {
> %% spacing-incrementadjusted, according to the size-override.
>     \override Score.SpacingSpanner.spacing-increment = #1
>     \override TupletNumber.text =
>       #(tuplet-number::append-note-wrapper
>          (tuplet-number::non-default-tuplet-fraction-text 12 7) "8")
>     \tuplet 12/7 { c4. c c c }
>     }
>   #}
>   manually!
> }
>
> HTH, best
>   Harm


Approved with the tiny amendments as
http://lsr.di.unimi.it/LSR/Item?id=1029

Cheers,
  Harm