Re: Double hampe

Le 18 janvier 2017 à 15:08, Olivier Camelin <address@hidden> a écrit :

Bonjour Pierre,
Je vous prie de m'excuser d'avance d'utiliser votre adresse perso mais je ne retrouve pas le fil des messages privées d'hier dans le forum... C'est encore un autre problème.
En tout cas, merci pour ces explications presque limpides, vues de loin...
Alors, si je puis abuser de votre gentillesse, j'ai besoin d'une autre figure (la semi minima caudata) ; elle est presque identique à la précédente mais avec une boucle sur la hampe inférieure (voir l'image jointe).
J'ai écrit ce code qui fonctionne à moitié car je ne parviens à colorier en noir uniquement le losange et pas la boucle... j'arrive à ne rien colorier en changeant la variable "filled"... Auriez-vous une astuce ?
Merci d'avance,

Olivier

%%%%%
\version "2.18.2"

semi =
#'((moveto 0 0)(lineto .53 .76)(lineto 1.07 0)(lineto .53 -0.76)(closepath)
(moveto .53 .70)(lineto .53 3.3)(moveto .53 -.70)(lineto .53 -3.3)
(curveto -0.25 -4 -2 -2 1 -2)
)

\markup {
\path #0.25 #semi
}

%%%% SEMI MINIMA CAUDATA %%%%
Smc =
\markup {
\override #'(filled . #t)
\path #0.25 #semi
}


\relative c''
\new Voice {
\time 9/4
\override NoteHead.style = #'blackpetrucci
\override Rest.style = #'mensural
\clef "mensural-g"
\override Staff.TimeSignature #'style = #'mensural

g\breve b
\override NoteHead.stencil = #(lambda (grob)(grob-interpret-markup grob Smc))
\override Stem.stencil = ##f
g4. a b c a d
\revert NoteHead.stencil
\revert Stem.stencil
g,4 b
}

Le 18 janvier 2017 à 09:10, Pierre Perol-Schneider <address@hiddencom> a écrit :
Bonjour Olivier,

Les explications :
1. contours du nouveau glyphe (sans entrer dans les détails, j'ai utilisé le glyphe 'noteheads.s2petrucci - dispo ici http://lilypond.org/doc/v2.18/Documentation/notation/the-feta-font#petrucci-glyphs - comme canevas et relevé ses coordonnées)
2. je créé le glyphe en utilisant l'outil de dessin 'path dispo ici : http://lilypond.org/doc/v2.18/Documentation/notation/graphic ; il combine en fait deux dessins, l'un - rempli - représentant un losange, avec un trait d'épaisseur 0.05 et l'autre deux traits verticaux d'une épaisseur 0.13 (l'épaisseur des hampes) :
\markup
\combine
\override #'(filled . #t)
\path #0.05 #'((moveto 0 0)(lineto .53 .76)(lineto 1.07 0)(lineto .53 -0.76)(closepath))
\path #0.13 #'((moveto .53 .70)(lineto .53 3.3)(moveto .53 -.70)(lineto .53 -3.3))
3. À l'endroit approprié, je demande à LilyPond d'échanger ses têtes de note avec mon nouveau glyphe et de supprimer les hampes :
   \override NoteHead.stencil = #(lambda (grob)(grob-interpret-markup grob doubleStemNotehead-old))
   \override Stem.stencil = ##f
4. Enfin, retour à l'écriture standard :
   \revert NoteHead.stencil
   \revert Stem.stencil

Et voilà !

Cordialement,
Pierre

Le 17 janvier 2017 à 22:16, Pierre Perol-Schneider <address@hiddencom> a écrit :
Oui, bien sûr :

\version "2.18.2"

doubleStemNotehead =
\markup
\combine
\override #'(filled . #t)
\path #0.05 #'((moveto 0 0)(lineto .53 .76)(lineto 1.07 0)(lineto .53 -0.76)(closepath))
\path #0.13 #'((moveto .53 .70)(lineto .53 3.3)(moveto .53 -.70)(lineto .53 -3.3))


\relative c''
\new Voice {
\time 9/4
\override NoteHead.style = #'blackpetrucci
\override Rest.style = #'mensural
\clef "mensural-g"
\override Staff.TimeSignature #'style = #'mensural

   g\breve b
   \override NoteHead.stencil = #(lambda (grob)(grob-interpret-markup grob doubleStemNotehead))
   \override Stem.stencil = ##f
   g4. a b c a d
   \revert NoteHead.stencil
   \revert Stem.stencil
   g,4 b
}

Cordialement,
Pierre

Le 17 janvier 2017 à 20:29, Olivier C <address@hidden> a écrit :
Bonsoir Pierre,
Merci de votre réponse. Oui, je suis complètement nouveau sur ce forum et
novice avec Lilypond, et je ne connais pas encore les us et coutumes.
J'ai essayé votre code qui fonctionne très bien. En tout cas, j'obtiens bien
les figures souhaitées mais les losanges sont plus petits que la normal.
Est-il possible d'avoir la même taille que les autres ?

Voici l'exemple :
%%%
\version "2.18.2"

doubleStemNotehead =
\markup
\override #'(filled . #t)
\path #0.05
#'((moveto 0 0) (lineto .25 .5) (lineto .5 0) (lineto .25 -.5)
(closepath)
(moveto .25 .5) (lineto .25 3.5) (closepath)
(moveto .25 .5) (lineto .25 -3.5) (closepath))

\relative c''
\new Voice {
\time 9/4
\override NoteHead.style = #'blackpetrucci
\override Rest.style = #'mensural
\clef "mensural-g"
\override Staff.TimeSignature #'style = #'mensural

g\breve b
\override NoteHead.stencil = #(lambda (grob)(grob-interpret-markup grob
doubleStemNotehead))
\override Stem.stencil = ##f
g4. a b c a d
\revert NoteHead.stencil
\revert Stem.stencil
g,4 b
}
%%%

Merci d'avance,
Cordialement,

Olivier

--
View this message in context: http://lilypond-french-users.1298960.n2.nabble.com/Double-hampe-tp7584500p7584503.html

Sent from the LilyPond French Users mailing list archive at Nabble.com.

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

From:	Pierre Perol-Schneider
Subject:	Re: Double hampe
Date:	Wed, 18 Jan 2017 15:39:06 +0100