Comment allonger la queue de la hampe des longas
Je n'ai rien trouvé qui marche (version "2.24.0")
Marc L.
Bonjour,
Effectivement, je n'ai pas trouvé tout seul.
je me suis fait aidé par ChatGPT (si si) qui n'y arrive pas vraiment non plus.
mais avec son aide voici une piste pour y remédier
\version "2.24.4"
#(define (longa-notehead grob)
(grob-interpret-markup grob
(markup #:musicglyph "noteheads.sM1neomensural"))) % glyphe genre longa dans la police Feta
longastem = {
\once \override NoteHead.stencil = #longa-notehead
\once \override Stem.length = 8 %exagéré pour l'exemple
\once \override Stem.thickness = 2
%si style mensural déplacer en x la queue
% \once\override NoteHead.stem-attachment = #'(0.9 . 0)
}
\relative c' {
\override Staff.BarLine.stencil = ##f
\clef treble
\time 1/1
% \clef "mensural-c2"
\override NoteHead.style = #'baroque %mensural
\longastem c2*8
c\longa
}
Cordialement
Merci beaucoup, le mieux que j'avais essayé
long = { \once \override NoteHead.style = #'petrucci \maxima *1/2 }%longa
\score {
<<
\relative c {
\override NoteHead.style = #'baroque
\time 4/1
\long c'' f,\longa f\breve e
}
}
Donne le bon aspect. Malheureusement fait une note fantôme avant.
je vais creuser avec ce que tu as trouvé.
Cordialement Marc L.
Voici ce que je propose pour ne pas avoir à écrire la durée
\version "2.24.4"
#(define (longa-notehead grob)
(grob-interpret-markup grob
(markup ; si style mensural
; #:scale '(0.5 . 1)
#:musicglyph "noteheads.sM1neomensural"
))) % glyphe genre longa dans la police Feta
mylonga =#(define-music-function (pitch) (ly:pitch?)
#{
\once \override NoteHead.stencil = #longa-notehead
\once \override Stem.length = 8 %exagéré pour l'exemple
\once \override Stem.thickness = 1.8
%si style mensural déplacer en x la queue
%\once\override NoteHead.stem-attachment = #'(01 . -1)
$pitch 2*8
#})
\relative c' {
\override Staff.BarLine.stencil = ##f
\clef treble
\time 1/1
% \clef "mensural-c2"
\override NoteHead.style = #'baroque
\mylonga g'
%longa normal
e\longa
}
Bravo cela marche parfaitement ! Je vais rendre plus visibles la centaine de longas de cette messe de Tournus.....
Merci beaucoup
Marc L.
Bonjour,
on pouvait faire plus simple :
% fonction :
mylonga = #(define-music-function (pitch) (ly:pitch?)
#{
% \tweak NoteHead.style #'()
\tweak Stem.length 9 %exagéré pour l'exemple
\tweak Stem.thickness 0.5
% if style mensural ------------
%\once \override Staff.NoteHead.stem-attachment = #'(0.8 . -0.5)
%--------------------------------
\once \override Staff.NoteHead.stencil = #ly:text-interface::print
\tweak NoteHead.text \markup {
% if style mensural --------
% \scale #'(0.5 . 1)
%------
\musicglyph "noteheads.sM1neomensural"
}
$pitch 2*8 #})
%--usage
{
% \clef "mensural-c2"
\time 4/1
\omit Staff.TimeSignature
\mylonga g'^"longa long stem" \mylonga c''
\override Staff.NoteHead.style = #'baroque
c'\longa^"normal longa"
}
Cordialement
Le dernier perfectionnement serait d'avoir la hampe à droite, qu'elle monte ou qu'elle descende.
Bravo encore
Marc L.
(message supprimé par son auteur)
Pour moment en mettant une condition.
mylonga = #(define-music-function (dir pitch) (boolean? ly:pitch?)
#{
% \tweak NoteHead.style #'()
\tweak Stem.length 9 %exagéré pour l'exemple
\tweak Stem.thickness 0.5
#(if dir
#{ \once \override Staff.NoteHead.stem-attachment = #'(0.87 . -0.5) #}
#{ #})
%--------------------------------
\once \override Staff.NoteHead.stencil = #ly:text-interface::print
\tweak NoteHead.text \markup {
\musicglyph "noteheads.sM1neomensural"
}
$pitch 2*8 #})
%--usage
{
\time 4/1
\omit Staff.TimeSignature
\mylonga ##f c'
\mylonga ##t c''
}
C'est déjà impressionnant
Il n'y a pas besoins de test 
%function
mylonga = #(define-music-function (pitch) (ly:pitch?)
#{
\tweak Stem.length 9 %exagéré pour l'exemple
\tweak Stem.thickness 0.5
\once \override Staff.NoteHead.stem-attachment = #'(0.87 . -0.5)
\once \override Staff.NoteHead.stencil = #ly:text-interface::print
\tweak NoteHead.text \markup {
\musicglyph "noteheads.sM1neomensural"
}
$pitch 2*8 #})
%--usage
\relative c' {
\time 4/1
\omit Staff.TimeSignature
\mylonga c
\mylonga c'
\mylonga e,
\mylonga e'
}
Parfait, à mettre sur le LSR
Encore merci
Marc L.
j'ai déjà monté, la 1er version.
Je peux savoir pourquoi la queue à droite ?
ce n'est pas parfait, il y a un décalage sur la queue en haut (ou en bas selon le réglage)
Pour faire propre
mylongaU = #(define-music-function (pitch) (ly:pitch?)
#{
% \once \override Staff.Stem.length = 9 %exagéré pour l'exemple
%\once \override Staff.Stem.thickness = 1
\once \override Staff.NoteHead.stem-attachment = #'(1 . -0.5)
\once \override Staff.NoteHead.stencil = #ly:text-interface::print
\tweak NoteHead.text \markup {
\musicglyph "noteheads.sM1neomensural"
}
$pitch 2*8 #})
mylongaD = #(define-music-function (pitch) (ly:pitch?)
#{
%\once \override Staff.Stem.length = 9 %exagéré pour l'exemple
\once \override Staff.Stem.thickness = 1.3
\once \override Staff.NoteHead.stem-attachment = #'(0.87 . -0.5)
\once \override Staff.NoteHead.stencil = #ly:text-interface::print
\tweak NoteHead.text \markup {
\musicglyph "noteheads.sM1neomensural"
}
$pitch 2*8 #})
%--usage
\relative c' {
\time 4/1
\omit Staff.TimeSignature
\mylongaU c
\mylongaD c'
\mylongaU e,
\mylongaD e'
}
Hampes à gauche ou à droite.
Suivant les époques, il peut y avoir une confusion (par exemple maxima ou longa), demander à un spécialiste.....