Re: Dessiner la ronde comme une tête de blanche

[Pierre Perol-Schneider]

Un premier essai :

\version "2.18.0"

\layout {
  \context {
    \Score
    %% Resserrer les notes :
    \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1 1)

    %% Changer les rondes :
    \override NoteHead.stencil =
      #(lambda (grob)
         (let ((duration (ly:grob-property grob 'duration-log)))
           (case duration
             ((0) (grob-interpret-markup grob (markup #:musicglyph "noteheads.s1")))
             (else (ly:note-head::print grob)))))
    \override Rest.stencil =
      #(lambda (grob)
         (let ((duration (ly:grob-property grob 'duration-log)))
           (case duration
             ((0)(ly:stencil-scale (ly:rest::print grob) 0.8 1)) ;; <= réduction à 80%
             ((1)(ly:stencil-scale (ly:rest::print grob) 0.8 1)) ;; <= réduction à 80%
             (else (ly:rest::print grob)))))
      
  }
}

{
  \time 2/1
  c''1 r2 c'' r1 r R1*2
}

Cordialement,

Pierre

Le 13 octobre 2016 à 08:14, Olivier Miakinen <address@hidden> a écrit :

Bonjour Pierre,

Le 13/10/2016 06:58, Pierre Perol-Schneider a écrit :
>
> Peux-tu nous envoyer un exemple minimal, je n'arrive pas à reproduire ton
> problème.

Voilà :

--------------------
\version "2.18.0"

\layout {
  \context {
    \Score
    %% Resserrer les notes :
    \override SpacingSpanner.common-shortest-duration = #(ly:make-moment
1 1)

    %% Changer les rondes :
    \override NoteHead.stencil =
    #(lambda (grob)
       (let ((duration (ly:grob-property grob 'duration-log)))
         (case duration
           ((0) (grob-interpret-markup grob (markup #:musicglyph
"noteheads.s1")))
           (else (ly:note-head::print grob)))))
  }
}

{
  \time 2/1
  c''1 r2 c''
}
--------------------

La largeur horizontale de la demi-pause est au moins aussi grande que
celle de la ronde. Sur la partition ancienne dont j'ai donné le lien,
elle me semble plus courte (certes pas de beaucoup, mais ça me semble
suffisant).