Subject: Alonger une note

From: gerardk <[email-masked]>
Date: Tue, 2 May 2017 03:43:31 -0700 (MST)

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.

---

From: Pierre Perol-Schneider <[email-masked]>
Date: Tue, 2 May 2017 14:07:31 +0200

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 <[email-masked]> a écrit :

> View this message in context: http://lilypond-french-users.
> 1298960.n2.nabble.com/Alonger-une-note-tp7584865.html
> _______________________________________________
> liste de diffusion lilypond-user-fr
> [email-masked]
> https://lists.gnu.org/mailman/listinfo/lilypond-user-fr
>

---

From: gerardk <[email-masked]>
Date: Tue, 2 May 2017 05:29:36 -0700 (MST)

Bonjour Pierre

Je reprends la discussion ici, l'échange peut servir à d'autres personnes.

Tu redessines donc totalement la tête de note.

Tant que j'y suis, je me permet une autre question.

Comme j'ai la même situation à plusieurs endroits (21 exactement), est-il
possible de définir une fonction qui aurait en paramètre la longueur de la
note à dessiner, ce qui me simplifierait l'écriture de la partition.

je suis informaticien et j'ai l'habitude de simplifier le code des
programmes (et des partitions) en réemployant tout ce qui peut l'être.

Merci de passer du temps à répondre à mes questions.

Gérard

--
View this message in context: http://lilypond-french-users.1298960.n2.nabble.com/Allonger-une-note-tp7584865p7584867.html
Sent from the LilyPond French Users mailing list archive at Nabble.com.

---

From: Pierre Perol-Schneider <[email-masked]>
Date: Tue, 2 May 2017 15:01:34 +0200

Oui, c'est possible (cf. fichier joint).
Cordialement,
Pierre

Le 2 mai 2017 à 14:29, gerardk <[email-masked]> a écrit :

> 1298960.n2.nabble.com/Allonger-une-note-tp7584865p7584867.html

---

From: gerardk <[email-masked]>
Date: Tue, 2 May 2017 06:11:03 -0700 (MST)

Merci Pierre

C'est exactement ce que je voulais, je vais pouvoir terminer cette partition
sans problème.

Merci à tous ceux qui ont répondu à mes demandes.

Cordialement

Gérard

--
View this message in context: http://lilypond-french-users.1298960.n2.nabble.com/Allonger-une-note-tp7584865p7584869.html
Sent from the LilyPond French Users mailing list archive at Nabble.com.

---

From: Bertrand Monneret <[email-masked]>
Date: Tue, 2 May 2017 16:40:39 +0200

Bonjour,

Voilà comment je ferais pour allonger cette note:

\markup{   \scale #'(9 . 1) \musicglyph #"noteheads.sM3blackligmensural"}

A+