Re: Markup à déplacer

[Valentin Villenave]

On 3/20/20, JMarc <address@hidden> wrote:
> Il dégaine Scheme direct, Valentin, c'est pas de jeu !

Euh… Mais au fait nom d’un petit bonhomme, c’est tout simplement un
StemTremolo qu’on veut obtenir, non ? Bernard ?

%%%%
{
  \override StemTremolo.stencil =
  #(lambda (grob)
     (let* ((dir (ly:grob-property grob 'direction))
            (stem (ly:grob-parent grob X))
            (stem-stil (ly:stem::print stem))
            (stem-Y (ly:stencil-extent stem-stil Y))
            (stem-len (- (cdr stem-Y) (car stem-Y))))
       (ly:grob-set-property!
        grob 'beam-width
        (* 1.33 (ly:stem-tremolo::calc-width grob)))
       (ly:stencil-translate
        (ly:stem-tremolo::print grob)
        (cons (* -.33 dir)
              (* stem-len -.6 dir)))))
  \stemUp
  <c' c''>2:8 <d' d''>: <e' e''>: <f' f''>:
  <g' g''>: <a' a''>: <b' b''>: <c'' c'''>:
  \stemDown
  <c' c''>2:8 <d' d''>: <e' e''>: <f' f''>:
  <g' g''>: <a' a''>: <b' b''>: <c'' c'''>:
  \stemUp
  <c' c'''>2:8 <d' d'''>: <e' e'''>: <f' f'''>:
  <g' g'''>: <a' a'''>: <b' b'''>: <c'' c''''>:
  \stemDown
  <c' c'''>2:8 <d' d'''>: <e' e'''>: <f' f'''>:
  <g' g'''>: <a' a'''>: <b' b'''>: <c'' c''''>:
}

%%%

V.