Re: Appogiature double?

[Jean Abou Samra]

Bonjour Bernard,

Ça n'existe pas par défaut, mais je peux vous proposer une implémentation :

\version "2.24.2"

double-slash-padding = 0.4

startDoubleSlashedGraceMusic =  {
  \temporary \override Flag.stencil =
    #(lambda (grob)
       (let* ((stem (ly:grob-parent grob X))
              (dir (if (eqv? (ly:grob-property stem 'direction) UP) "u" "d"))
              (flag-stencil (retrieve-glyph-flag "" dir "" grob))
              (stroked (add-stroke-glyph flag-stencil grob dir "grace" ""))
              (moved (ly:stencil-translate-axis stroked double-slash-padding Y))
              (double-stroked (add-stroke-glyph moved grob dir "grace" ""))
              (moved-back
               (ly:stencil-translate-axis double-stroked (- double-slash-padding) Y)))
         moved-back))
}

stopDoubleSlashedGraceMusic =  {
  \revert Flag.stencil
}

doubleSlashedGrace =
#(def-grace-function startDoubleSlashedGraceMusic stopDoubleSlashedGraceMusic)



{
  \doubleSlashedGrace c'8 d'2 e'2
}

Cordialement,

Jean

signature.asc
Description: This is a digitally signed message part