Bien vu Jean-Pierre,Le fil que je n'ai pas retrouvé ce matin :http://lilypond.1069038.n5.nabble.com/Rootless-slash-chords-2017-edition-td201634.htmlEt le snippet concerné :http://lsr.di.unimi.it/LSR/Item?id=776Cordialement,Pierre2018-01-12 14:28 GMT+01:00 achard <address@hidden>:Voilà la réponse pour ceux que ça intéresse. #(define (rootless-chord-names in-pitches bass inversion context) (ignatzek-chord-names `(,(ly:make-pitch 0 0 0) ,(ly:make-pitch 0 0 0)) bass inversion context)) #(define (empty-namer pitch lower?) (make-simple-markup "")) retainChordNoteNamer = \applyContext #(lambda (context) (let ((rn (ly:context-property context 'chordRootNamer))) (ly:context-set-property! context 'chordNoteNamer rn))) rootless = { \retainChordNoteNamer \once \set chordNameFunction = #rootless-chord-names \once \set chordRootNamer = #empty-namer } After that, one can use \rootless as follows: fis2:m7.9 \rootless fis4:m7.9/f \rootless fis4:m7.9/e \rootless fis1:m7.9/dis Cordialement JPierre _______________________________________________ liste de diffusion lilypond-user-fr address@hidden https://lists.gnu.org/mailman/listinfo/lilypond-user-fr
Voilà la réponse pour ceux que ça intéresse. #(define (rootless-chord-names in-pitches bass inversion context) (ignatzek-chord-names `(,(ly:make-pitch 0 0 0) ,(ly:make-pitch 0 0 0)) bass inversion context)) #(define (empty-namer pitch lower?) (make-simple-markup "")) retainChordNoteNamer = \applyContext #(lambda (context) (let ((rn (ly:context-property context 'chordRootNamer))) (ly:context-set-property! context 'chordNoteNamer rn))) rootless = { \retainChordNoteNamer \once \set chordNameFunction = #rootless-chord-names \once \set chordRootNamer = #empty-namer } After that, one can use \rootless as follows: fis2:m7.9 \rootless fis4:m7.9/f \rootless fis4:m7.9/e \rootless fis1:m7.9/dis Cordialement JPierre _______________________________________________ liste de diffusion lilypond-user-fr address@hidden https://lists.gnu.org/mailman/listinfo/lilypond-user-fr