Re: Ornements musique française

[Éditions IN NOMINE]

Un simple x dans la police voulue ferait l'affaire je pense. Merci à Valentin au passage, je vais bientôt archi user de cette fonction dans du Marais !

JMarc

On 21/10/2010 03:05, Valentin Villenave wrote:

2010/10/21 Valentin Villenave <address@hidden>:

Je l'utilise pour indiquer des pizz du pouce :

Ah, j'avais zappé le "devant la note". Dans ce cas, c'est un peu plus subtil :

#(define (add-cross music)
 (if
  (equal? (ly:music-property music 'name) 'EventChord)
  (let ((note (car (ly:music-property music 'elements))))
    (set! (ly:music-property note 'articulations)
          (append (ly:music-property note 'articulations)
                  (list
                   (let ((obj (make-music 'FingeringEvent)))
                     (set! (ly:music-property obj 'tweaks)
                           (acons 'stencil (lambda (grob)
                              (grob-interpret-markup grob
                                (markup
                                  #:rotate 45
                                  #:fontsize 6
                                  #:musicglyph "scripts.stopped")))
                              (ly:music-property obj 'tweaks)))
                     obj)))))
  music))

addCross =
#(define-music-function (parser location music) (ly:music?)
     #{ \once \set fingeringOrientations = #'(left)
        \once \override Fingering #'X-extent = #'(-2.0 . 0.5)
        $(add-cross music) $music #})

{ \addCross a }

(Mais ça évoque franchement trop un double-dièze à mon avis.)

Si vous avez un exemple scanné à nous montrer, on pourra peaufiner le
code puis l'ajouter au LSR voire à Lily :-)

Cordialement,
Valentin.

_______________________________________________
liste de diffusion lilypond-user-fr
address@hidden
http://lists.gnu.org/mailman/listinfo/lilypond-user-fr