Re: Alonger une note

[Pierre Perol-Schneider]

Bonjour Gérard,

Essaie :

recit =
{
  \once  \override NoteHead.stencil = #ly:text-interface::print
%  \once \override NoteHead.size = #15.0
%  \once \override NoteHead.text = \markup{\musicglyph #"noteheads.sM3blackligmensural"}
  \once \override NoteHead.text = \markup\concat {
    \vcenter\override #'(thickness . 2)\draw-line #'(0 . 2)
    \hspace #-.13
    \override #'(thickness . 5)\draw-line #'(36 . 0) %% <= à ajuster !!
    \hspace #-.13
    \vcenter\override #'(thickness . 2)\draw-line #'(0 . 2)
  }
}

Cordialement,

Pierre

Le 2 mai 2017 à 12:43, gerardk <address@hidden> a écrit :

Bonjour

je voudrais refaire la partition dont une image est jointe.
j'ai déjà créé ce début de partition :
\version "2.18.2"
\language "français"
saut =
{
  \bar "|" \break
}
\paper
{
  indent = 0\mm
  oddFooterMarkup=##f
  ragged-last-bottom = ##t
  paper-width = 190\mm
  paper-height = 260\mm
  top-margin = 0\mm
  bottom-margin = 0\mm
  left-margin = 4\mm
  right-margin = 1\mm
  print-page-number = ##f
}
% -----
noire =
{
  \override NoteHead.stencil = #ly:text-interface::print
  \override NoteHead.text = \markup {\musicglyph #"noteheads.s2la"}
}
blanche =
{
  %% Place deux 'noteheads.s2la côte-à-côte :
  \once \override NoteHead.stencil = #ly:text-interface::print
  % \once \override NoteHead.text = \markup {\musicglyph
#"noteheads.s1laThin"}
  \once \override NoteHead.text = \markup {
    \musicglyph #"noteheads.s2la"
    \musicglyph #"noteheads.s2la"
  }
}
recit =
{
  \once  \override NoteHead.stencil = #ly:text-interface::print
%  \once \override NoteHead.size = #15.0
  \once \override NoteHead.text = \markup{\musicglyph
#"noteheads.sM3blackligmensural"}
}
chorI = ^\markup
{
  \smallCaps  "Chor I"
}
chorII = ^\markup
{
  \smallCaps  "Chor II"
}
chorC = ^\markup
{
  \smallCaps  "Chor I-II"
}
% -----
notes = \relative do'
{
  \clef treble
  \key do \major
  \time 4/4
  % Supprime les clef en début de ligne
  \override Staff.Clef #'stencil = ##f
  % Affiche la clé sur la première portée
  \once \override  Staff.Clef #'stencil = #ly:clef::print
  % Imprime des barres de mesure au début de chaque ligne
  \override Score.SystemStartBar #'collapse-height = 1
  % Indication des numéros de mesure
  \override Score.BarNumber.break-visibility = ##(#f #t #t)
  %
  \noire % Vakeur pas défaut de toutes les notes
  fa4 \chorI sol la la |
  \recit fa8 \chorII
  sol sol4 fa \blanche sol |
}
% -----
police =
{
  \override LyricText #'font-name = #"Adobe Jenson Pro Disp"
  \override LyricText #'font-size = #4
}
texteGauche =
{
  \once \override LyricText.self-alignment-X = #LEFT
}
texte = \lyricmode
{
  \police
  <<
    {
      Sei uns gnä -- dig,
      \texteGauche "ver - schon    uns, lie" -- ber, her -- re Gott.
    }
    \new Lyrics = "reprise" \with
    {
      associatedVoice = "one"
      alignBelowContext = "one"
    }
    {
      \police
      Sei uns gnä -- dig,
      \texteGauche "hilf  uns,                   lie" -- ber, her -- re
Gott.
    }
  >>
}
% -----
\score{
  <<
    \new Voice = "one"
    {
      \autoBeamOff
      \notes
    }
    \new Lyrics \lyricsto "one" \texte
  >>
  \layout
  {
    \context
    {
      \Staff
      \remove "Time_signature_engraver"
      \override SpacingSpanner.base-shortest-duration = #(ly:make-moment
1/16)
      \hide Stem
    }
  }
}



--
View this message in context: http://lilypond-french-users.1298960.n2.nabble.com/Alonger-une-note-tp7584865.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