Deutsches Lilypond Forum (Archiv)

Allgemein => Fragen zu Funktionen => Thema gestartet von: banause am Montag, 11. August 2014, 15:53

Titel: Choralmesse in moderner Notation
Beitrag von: banause am Montag, 11. August 2014, 15:53

Hallo,

ich habe bisher eher einfachere Sachen mit Lilypond gesetzt, v.a. Kirchenlieder, teils auch Antiphonen. Nun bräuchte ich eine Choralmesse (De Angelis) in moderner Notation. Was man im Netz schon finden kann, fand ich eher hässlich. Auch die Hilfen im Lilypond-Handbuch fand ich nicht wirklich hilfreich. Die Übertragung im neuen Gotteslob find ich ganz nett und im Notfall könnte ich auch den Scan verwenden, aber mit Lilypond wärs natürlich schöner (und der Liedzettel einheitlicher).

Ich wollte deshalb fragen, ob sich jemand das angehängte Beispiel mal anschauen könnte und mir sagen könnte ob und wie man das mit Lilypond setzen kann (z.B. die nur gelegentlich gesetzten Notenhälse und gruppierten Notenköpfe). Am schönsten wär natürlich ein Code-Beispiel für diese Zeile, den Rest krieg ich dann sicher nach dem Muster hin. Vielen Dank für Eure Hilfe!

Gruß!

Titel: Re: Choralmesse in moderner Notation
Beitrag von: Pierre am Dienstag, 12. August 2014, 10:55

Hallo banause,

versuch mal:

Code: [Auswählen]

\version "2.18.2"

\paper {
  ragged-right = ##f
}

global = {
  \key f\major
  \cadenzaOn
}

myLyrics = \lyricmode {
  A - gnus
  \once\override LyricText.self-alignment-X = #RIGHT
  De -- i,
  qui tol -- lis pec -- cá -- ta
  \once\override LyricText.self-alignment-X = #RIGHT
  mun -- di:
}

myVoiceOne = \relative f' {
  \once\override Score.RehearsalMark.padding = #3.2
  \mark\markup\with-color #grey "K"
  \omit Stem
  f4
  \undo\omit Stem \stemDown g
  \omit Stem g f f
  \bar "'"
  \once\override Score.RehearsalMark.padding = #-2
  \mark\markup\with-color #grey "A"
  s f
  \undo\omit Stem f
  d \omit Stem d c d f f
  \once\override Staff.BarLine.bar-extent = #'(-1 . 1)
  \bar "|"
  s
}

myVoiceTwo = \relative g' {
  \omit Stem
  g4 f
  \once \override NoteColumn.force-hshift = #-.3
  a
  \once \override NoteColumn.force-hshift = #2
  f s s s
  \undo\omit Stem \stemUp
  \once\override NoteHead.stem-attachment = #'(-.8 . -.5)
  \once\override NoteColumn.force-hshift = #.7
  \once\override Stem.length = #3
  d \omit Stem c s s
  \once\override NoteColumn.force-hshift = #.7
  f
  \once \override NoteColumn.force-hshift = #2
  f
}

myVoiceThree = \relative f' {
  \omit Stem
  s4 s s
  \once \override NoteColumn.force-hshift = #-1.8
  g s s s s s s s s
  \once \override NoteColumn.force-hshift = #-1.8
  g
}

\score {
  <<
    \new Staff <<
      \global
      \context Voice = "Melody"  { \voiceOne << \myVoiceOne >> }
      \context Voice = "" { \voiceTwo << \myVoiceTwo >> }
      \context Voice = "" { \voiceThree << \myVoiceThree >> }
    >>
    \new Lyrics \lyricsto "Melody" \myLyrics
  >>
  \layout {
    indent = 0
    \context {
      \Lyrics
      %\override LyricSpace.minimum-distance = #5.0
    }
    \context {
      \Staff
      \omit TimeSignature
    }
    \context {
      \Score
      \override RehearsalMark.direction = #DOWN
    }
  }
}
HTH,
Pierre

Titel: Re: Choralmesse in moderner Notation
Beitrag von: banause am Dienstag, 12. August 2014, 11:26

Spontan: Fehlermeldung. Ich habe aber auch nur Lilypond 2.16.2 (Debian-Paket). Könnte es daran liegen? Dann versuch ichs mal aus den Quellen zu kompilieren ...
Vielen Dank aber schonmal für den umfangreichen Code!

Titel: Re: Choralmesse in moderner Notation
Beitrag von: Pierre am Dienstag, 12. August 2014, 11:51

Code: [Auswählen]

\version "2.16.2"

omitStem = \override Stem #'stencil = ##f
showStem = \revert Stem #'stencil

\paper {
  ragged-right = ##f
}

global = {
  \key f\major
  \cadenzaOn
}

myLyrics = \lyricmode {
  A - gnus
  \once\override LyricText #'self-alignment-X = #RIGHT
  De -- i,
  qui tol -- lis pec -- cá -- ta
  \once\override LyricText #'self-alignment-X = #RIGHT
  mun -- di:
}

myVoiceOne = \relative f' {
  \once\override Score.RehearsalMark #'padding = #3.2
  \once\override Score.RehearsalMark #'break-align-symbols = #'(time-signature)
  \mark\markup\with-color #grey "K"
  \omitStem
  f4
  \showStem \stemDown g
  \omitStem g f f
  \bar "'"
  \once\override Score.RehearsalMark #'padding = #-2
  \mark\markup\with-color #grey "A"
  s f
  \showStem f
  d \omitStem d c d f f
  \once\override Staff.BarLine #'bar-extent = #'(-1 . 1)
  \bar "|"
  s
}

myVoiceTwo = \relative g' {
  \omitStem
  g4 f
  \once\override NoteColumn #'force-hshift = #-.3
  a
  \once\override NoteColumn #'force-hshift = #2
  f s s s
  \showStem \stemUp
  \once\override NoteHead #'stem-attachment = #'(-.8 . -.5)
  \once\override NoteColumn #'force-hshift = #.7
  \once\override Stem #'length = #3
  d \omitStem c s s
  \once\override NoteColumn #'force-hshift = #.7
  f
  \once \override NoteColumn #'force-hshift = #2
  f
}

myVoiceThree = \relative f' {
  \omitStem
  s4 s s
  \once\override NoteColumn #'force-hshift = #-1.8
  g s s s s s s s s
  \once\override NoteColumn #'force-hshift = #-1.8
  g
}

\score {
  <<
    \new Staff <<
      \global
      \context Voice = "Melody"  { \voiceOne << \myVoiceOne >> }
      \context Voice = "" { \voiceTwo << \myVoiceTwo >> }
      \context Voice = "" { \voiceThree << \myVoiceThree >> }
    >>
    \new Lyrics \lyricsto "Melody" \myLyrics
  >>
  \layout {
    indent = 0
    \context {
      \Lyrics
      %\override LyricSpace #'minimum-distance = #5.0
    }
    \context {
      \Staff
      %\remove "Time_signature_engraver"
      \override TimeSignature #'transparent = ##t
    }
    \context {
      \Score
      \override RehearsalMark #'direction = #DOWN
    }
  }
}

Titel: Re: Choralmesse in moderner Notation
Beitrag von: banause am Dienstag, 12. August 2014, 11:54

Unfassbar! Hast du das Handbuch geschluckt? Nein, im Ernst, woher hast du so eine profunde Kenntnis des Programms? Sieht sehr gut aus. Vielen Dank! Ich werd mich an die Fortsetzung setzen!

Titel: Re: Choralmesse in moderner Notation
Beitrag von: banause am Dienstag, 12. August 2014, 16:56

Hallo Pierre,

ich gerate schon in der folgenden Zeile des Agnus Dei wieder an meine Lilypond-Grenzen. Vllt. vorab: Konntest du das schnell setzen? Oder ist das tatsächlich etwas aufwendig?

Dann: Gibt es einen Grund für diese Aufteilung der Stimmen? Bei Melismen mit 2 Noten hast du die Stimmen 1-2 (VoiceOne - VoiceTwo) verwendet, bei drei Noten 2-3-1 und dann jeweils geschoben. In der nächsten Zeile gibts eine Figur mit 4 oder 5 Noten (je nachdem, ob man die letzte noch dazu nimmt...) Brauch ich dann zwingend eine VoiceFour? Habs mit dreien probiert, und kann einen etwas zu großen Abstand nicht verhindern.

Bei einem 3er-Melisma in der nächsten Zeile funktioniert das zuvor angewandte Schema nicht ... Ich verzweifle echt an wenigen Noten. Warum steht das "K" nicht an der richtigen Stelle, wie in Zeile 1?

Vielen Dank bis dahin! Ich schick dir mal die bescheidene Fortsetzung deines Codes und die folgende Zeile. Fühl dich zu nichts genötigt, aber vllt. hast du ja nen Tipp.

Gruß

banause

Code: [Auswählen]

\version "2.16.2"

omitStem = \override Stem #'stencil = ##f
showStem = \revert Stem #'stencil

\language "deutsch"

\paper {
  ragged-right = ##f
}

global = {
  \key f\major
  \cadenzaOn
}

myLyrics = \lyricmode {
  A - gnus
  \once\override LyricText #'self-alignment-X = #RIGHT
  De -- i,
  qui tol -- lis pec -- cá -- ta
  \once\override LyricText #'self-alignment-X = #RIGHT
  mun -- di:
  mi -- se -- ré -- re _ _
  \once\override LyricText #'self-alignment-X = #RIGHT
  no -- bis.
  A -- gnus De _ -- i
}

myVoiceOne = \relative f' {
  \once\override Score.RehearsalMark #'padding = #3.2
  \once\override Score.RehearsalMark #'break-align-symbols = #'(time-signature)
  \mark\markup\with-color #grey "K"
  \omitStem
  f4
  \showStem \stemDown g
  \omitStem g f f
  \bar "'"
  \once\override Score.RehearsalMark #'padding = #-2
  \mark\markup\with-color #grey "A"
  s f
  \showStem f
  d \omitStem d c d f f
  \once\override Staff.BarLine #'bar-extent = #'(-1 . 1)
  \bar "|"
  f g a g
  \once\override NoteColumn #'force-hshift = #-3
  a a f f
  \bar "||"
  \break
  \once\override Score.RehearsalMark #'padding = #-3.2
  \mark\markup\with-color #grey "K"
  f a g c c
}

myVoiceTwo = \relative g' {
  \omitStem
  g4 f
  \once\override NoteColumn #'force-hshift = #-.3
  a
  \once\override NoteColumn #'force-hshift = #2
  f s s s
  \showStem \stemUp
  \once\override NoteHead #'stem-attachment = #'(-.8 . -.5)
  \once\override NoteColumn #'force-hshift = #.7
  \once\override Stem #'length = #3
  d \omitStem c s s
  \once\override NoteColumn #'force-hshift = #.7
  f
  \once \override NoteColumn #'force-hshift = #2
  f s s
  \once \override NoteColumn #'force-hshift = #1.6
  a  s
  \once \override NoteColumn #'force-hshift = #.7
  b s
  \once\override NoteColumn #'force-hshift = #-2
  g 
  \once \override NoteColumn #'force-hshift = #2
  f s
  s
  \once \override NoteColumn #'force-hshift = #.7
  c'
  \once \override NoteColumn #'force-hshift = #2
  \showStem \stemDown c
  s s
}

myVoiceThree = \relative f' {
  \omitStem
  s4 s s
  \once\override NoteColumn #'force-hshift = #-1.8
  g s s s s s s s s
  \once\override NoteColumn #'force-hshift = #-1.8
  g s s s s s s s
  \once\override NoteColumn #'force-hshift = #-1.8
  g s s s
  \once \override NoteColumn #'force-hshift = #-1.8
  a s s
}


\score {
  <<
    \new Staff <<
      \global
      \context Voice = "Melody"  { \voiceOne << \myVoiceOne >> }
      \context Voice = "" { \voiceTwo << \myVoiceTwo >> }
      \context Voice = "" { \voiceThree << \myVoiceThree >> }
      %\context Voice = "" { \voiceFour << \myVoiceFour >> }
    >>
    \new Lyrics \lyricsto "Melody" \myLyrics
  >>
  \layout {
    indent = 0
    \context {
      \Lyrics
      %\override LyricSpace #'minimum-distance = #5.0
    }
    \context {
      \Staff
      %\remove "Time_signature_engraver"
      \override TimeSignature #'transparent = ##t
    }
    \context {
      \Score
      \override RehearsalMark #'direction = #DOWN
    }
  }
}


Titel: Re: Choralmesse in moderner Notation
Beitrag von: Pierre am Mittwoch, 13. August 2014, 15:02

Ehrlich gesagt, denke ich, kann man die Abstände mit nur 2 Stimmen, - eine für die Melodie, die andere mit Integration der Zwischenstimmen, - die Abstände zwischen den Noten der Melismen vereinfachen und leichter regeln.

Ich rate folgenden :

Code: [Auswählen]

\version "2.16.2"
\language "deutsch"

\paper {
  left-margin = 20
}

omitStem = \override Stem #'stencil = ##f
showStem = \revert Stem #'stencil

notePos =
#(define-music-function (parser location note-column) (number?)
   #{
     \override NoteColumn #'force-hshift = #note-column
   #})

global = {
  \key f\major
  \cadenzaOn
}

myLyrics = \lyricmode {
  A - gnus De -- i,
  qui tol -- lis pec -- cá -- ta
  \once\override LyricText #'self-alignment-X = #RIGHT
  mun -- di:
  mi -- se -- re -- re _ no -- bis.
  A -- gnus De - i,
}

myVoiceOne = \relative f' {
  \once\override Score.RehearsalMark #'padding = #3.2
  \once\override Score.RehearsalMark #'break-align-symbols = #'(time-signature)
  \notePos #0
  \mark\markup\with-color #grey "K"
  \omitStem f4 \showStem \stemDown g \omitStem g f f
  \bar "'"
  \once\override Score.RehearsalMark #'padding = #-2
  \mark\markup\with-color #grey "A"
  s8
  f4 \showStem f d \omitStem d c d f f
  \once\override Staff.BarLine #'bar-extent = #'(-1 . 1)
  \bar "|"
  s8
  \bar "" \break
  \override Score.Clef #' stencil = ##f
  f4 g a g a f f
  \bar "||"
  \once\override Score.RehearsalMark #'padding = #-2
  \mark\markup\with-color #grey "K"
  s8 f4 a \showStem c \omitStem c c
  \bar "'"
  s8
}

myVoiceTwo = \relative g' {
  \notePos #.9 \omitStem g4 f a
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
  s4 s8 s4
  \showStem \stemUp
  \once\override NoteHead #'stem-attachment = #'(-.8 . -.5)
  \once\override Stem #'length = #3
  \notePos #.9 d4 \omitStem c s s f
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
  s8 s2 a4 s
  <<
    {
      \notePos #.9 \omitStem b
    } \\
    {
      \notePos #1.8 \omitStem a
    } \\
    {
      \notePos #2.7 \omitStem g
    }
  >>
  s
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
  s4 s8 s4 c'4
  <<
    {
      \notePos #.9 \omitStem a
    } \\
    {
      \notePos #1.8 \omitStem g
    }
  >>
}

\score {
  <<
    \new Staff <<
      \global
      \context Voice = "Melodie"    { \voiceOne << \myVoiceOne >> }
      \context Voice = "Vokalis" { \voiceTwo << \myVoiceTwo >> }
    >>
    \new Lyrics \lyricsto "Melodie" \myLyrics
  >>
  \layout {
    indent = 0
    \context {
      \Staff
      \override TimeSignature #'transparent = ##t
    }
    \context {
      \Score
      \override RehearsalMark #'direction = #DOWN
    }
  }
}
Was die "rehearsal mark" betrifft, musst Du unbedingt die Regulierungen von Hand vornehmen.

Gruß
Pierre

Titel: Re: Choralmesse in moderner Notation
Beitrag von: Pierre am Mittwoch, 13. August 2014, 15:27

Zitat von: Pierre am Mittwoch, 13. August 2014, 15:02

[...] Was die "rehearsal mark" betrifft, musst Du unbedingt die Regulierungen von Hand vornehmen. [...]

Oder mit : http://lsr.di.unimi.it/LSR/Item?id=737 (http://lsr.di.unimi.it/LSR/Item?id=737)

Code: [Auswählen]

\version "2.16.2"
\language "deutsch"

\paper {
  left-margin = 20
}

omitStem = \override Stem #'stencil = ##f
showStem = \revert Stem #'stencil

notePos =
#(define-music-function (parser location note-column) (number?)
   #{
     \override NoteColumn #'force-hshift = #note-column
   #})

left = {
  \once\override LyricText #'X-offset = #-4
}

global = {
  \key f\major
  \cadenzaOn
}

myLyrics = \lyricmode {
  \left\markup { \magnify #1.5 \with-color #(x11-color 'grey) "K " "A" }
  - gnus De -- i,
  \left\markup { \magnify #1.5 \with-color #(x11-color 'grey) "A " "qui" }
  tol -- lis pec -- cá -- ta
  mun -- di:
  mi -- se -- re -- re _ no -- bis.
  \left\markup { \magnify #1.5 \with-color #(x11-color 'grey) "K " "A" }
  -- gnus De - i,
}

myVoiceOne = \relative f' {
  \notePos #0
  \omitStem f4 \showStem \stemDown g \omitStem g f f
  \bar "'"
  \once\override Score.RehearsalMark #'padding = #-2
  f4 \showStem f d \omitStem d c d f f
  \once\override Staff.BarLine #'bar-extent = #'(-1 . 1)
  \bar "|"
  s8
  \bar "" \break
  \override Score.Clef #' stencil = ##f
  f4 g a g a f f
  \bar "||"
  f4 a \showStem c \omitStem c c
  \bar "'"
  s8
}

myVoiceTwo = \relative g' {
  \notePos #.9 \omitStem g4 f a
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
  s2
  \showStem \stemUp
  \once\override NoteHead #'stem-attachment = #'(-.8 . -.5)
  \once\override Stem #'length = #3
  \notePos #.9 d4 \omitStem c s s f
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
  s8 s2 a4 s
  <<
    {
      \notePos #.9 \omitStem b
    } \\
    {
      \notePos #1.8 \omitStem a
    } \\
    {
      \notePos #2.7 \omitStem g
    }
  >>
  s
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
  s2 c'4
  <<
    {
      \notePos #.9 \omitStem a
    } \\
    {
      \notePos #1.8 \omitStem g
    }
  >>
}

\score {
  <<
    \new Staff <<
      \global
      \context Voice = "Melodie"    { \voiceOne << \myVoiceOne >> }
      \context Voice = "Vokalis" { \voiceTwo << \myVoiceTwo >> }
    >>
    \new Lyrics \lyricsto "Melodie" \myLyrics
  >>
  \layout {
    indent = 0
    \context {
      \Staff
      \override TimeSignature #'transparent = ##t
    }
    \context {
      \Score
      \override RehearsalMark #'direction = #DOWN
    }
  }
}

Titel: Re: Choralmesse in moderner Notation
Beitrag von: banause am Montag, 18. August 2014, 10:12

So geht es jetzt sehr einfach, vielen Dank. Ich präsentiere mal das Ergebnis (by the way: Gibt es eine Standardplattform zum Teilen von Lilypond-Sheets?). Und: Das Atemzeichen in der dritten Zeile würde ich gern etwas vom Zeilenende wegrücken, wie geht das?

Code: [Auswählen]

\version "2.16.2"
\language "deutsch"

\paper {
  left-margin = 20
}

omitStem = \override Stem #'stencil = ##f
showStem = \revert Stem #'stencil

notePos =
#(define-music-function (parser location note-column) (number?)
   #{
     \override NoteColumn #'force-hshift = #note-column
   #})

left = {
  \once\override LyricText #'X-offset = #-4
}

global = {
  \key f\major
  \cadenzaOn
}

myLyrics = \lyricmode {
  \left\markup { \magnify #1.3 \with-color #(x11-color 'grey) "K " "A" }
  - gnus De -- i,
  \left\markup { \magnify #1.3 \with-color #(x11-color 'grey) "A " "qui" }
  tol -- lis pec -- cá -- ta
  mun -- di:
  mi -- se -- re -- re _ no -- bis.
  \left\markup { \magnify #1.3 \with-color #(x11-color 'grey) "K " "A" }
  -- gnus De - i,
  \left\markup { \magnify #1.3 \with-color #(x11-color 'grey) "A " "qui" }
  tol -- lis pec -- cá -- ta
  mun -- di:
  mi -- se -- re -- re _ no -- bis.
  \left\markup { \magnify #1.3 \with-color #(x11-color 'grey) "K " "A" }
  -- gnus De - i,
  \left\markup { \magnify #1.3 \with-color #(x11-color 'grey) "A " "qui" }
  tol -- lis pec -- cá -- ta
  mun -- di:
  do -- na no -- bis _ pa -- cem.
}

myVoiceOne = \relative f' {
  \notePos #0
  \omitStem f4 \showStem \stemDown g \omitStem g f f
  \bar "'"
  \once\override Score.RehearsalMark #'padding = #-2
  f4 \showStem f d \omitStem d c d f f
  \once\override Staff.BarLine #'bar-extent = #'(-1 . 1)
  \bar "|"
  s8
  \bar "" \break
  \override Score.Clef #' stencil = ##f
  f4 g a g a f f
  \bar "||"
  f4 a \showStem c \omitStem c c
  \bar "'"
  s8
  c4 \showStem a \omitStem f
  \bar "" \break
  g f g f f
  \once\override Staff.BarLine #'bar-extent = #'(-1 . 1)
  \bar "|"
  f4 g a
  g a f f
  \bar "||" 
  \omitStem f4 \showStem \stemDown g \omitStem g f f
  \bar "'" \break
  \once\override Score.RehearsalMark #'padding = #-2
  f4 \showStem f d \omitStem d c d f f
  \once\override Staff.BarLine #'bar-extent = #'(-1 . 1)
  \bar "|"
  s8
  \override Score.Clef #' stencil = ##f
  f4 g a g a f f
  \bar "||"
}

myVoiceTwo = \relative g' {
  \notePos #.9 \omitStem g4 f a
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
  s2
  \showStem \stemUp
  \once\override NoteHead #'stem-attachment = #'(-.8 . -.5)
  \once\override Stem #'length = #3
  \notePos #.9 d4 \omitStem c s s f
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
  s8 s2 a4 s
  <<
    {
      \notePos #.9 \omitStem b
    } \\
    {
      \notePos #1.8 \omitStem a
    } \\
    {
      \notePos #2.7 \omitStem g
    }
  >>
  s
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
  s2 c'4
  <<
    {
      \notePos #.9 \omitStem a
    } \\
    {
      \notePos #1.8 \omitStem g
    }
  >>
  s2 s8 s4
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem a
    }
  >>
  s4 s s a
   <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
  s4 s a s
  <<
    {
      \notePos #.9 \omitStem b
    } \\
    {
      \notePos #1.8 \omitStem a
    } \\
    {
      \notePos #2.7 \omitStem g
    }
  >>
  s4
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
  s4
  \notePos #.9 \omitStem g4 f a
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
  s2
  \showStem \stemUp
  \once\override NoteHead #'stem-attachment = #'(-.8 . -.5)
  \once\override Stem #'length = #3
  \notePos #.9 d4 \omitStem c s s f
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
  s8 s2 a4 s
  <<
    {
      \notePos #.9 \omitStem b
    } \\
    {
      \notePos #1.8 \omitStem a
    } \\
    {
      \notePos #2.7 \omitStem g
    }
  >>
  s
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
 
}

\score {
  <<
    \new Staff <<
      \global
      \context Voice = "Melodie"    { \voiceOne << \myVoiceOne >> }
      \context Voice = "Vokalis" { \voiceTwo << \myVoiceTwo >> }
    >>
    \new Lyrics \lyricsto "Melodie" \myLyrics
  >>
  \layout {
    indent = 0
    \context {
      \Staff
      \override TimeSignature #'transparent = ##t
    }
    \context {
      \Score
      \override RehearsalMark #'direction = #DOWN
    }
  }
}


Titel: Re: Choralmesse in moderner Notation
Beitrag von: trulli am Montag, 18. August 2014, 10:53

Zitat von: banause am Montag, 18. August 2014, 10:12

(by the way: Gibt es eine Standardplattform zum Teilen von Lilypond-Sheets?)

Schau mal hier rein: Mutopia-Projekt (http://www.mutopiaproject.org/).

Gruß

Titel: Re: Choralmesse in moderner Notation
Beitrag von: Pierre am Freitag, 22. August 2014, 20:15

Zitat von: banause am Montag, 18. August 2014, 10:12

[...] Das Atemzeichen in der dritten Zeile würde ich gern etwas vom Zeilenende wegrücken, wie geht das? [...]

versuch mal:

Code: [Auswählen]

\version "2.16.2"
\language "deutsch"

\paper {
  left-margin = 20
}

omitStem = \override Stem #'stencil = ##f
showStem = \revert Stem #'stencil

notePos =
#(define-music-function (parser location note-column) (number?)
   #{
     \override NoteColumn #'force-hshift = #note-column
   #})

left = {
  \once\override LyricText #'X-offset = #-4
}

global = {
  \key f\major
  \cadenzaOn
}

myLyrics = \lyricmode {
  \left\markup { \magnify #1.3 \with-color #(x11-color 'grey) "K " "A" }
  - gnus De -- i,
  \left\markup { \magnify #1.3 \with-color #(x11-color 'grey) "A " "qui" }
  tol -- lis pec -- cá -- ta
  mun -- di:
  mi -- se -- re -- re _ no -- bis.
  \left\markup { \magnify #1.3 \with-color #(x11-color 'grey) "K " "A" }
  -- gnus De - i,
  \left\markup { \magnify #1.3 \with-color #(x11-color 'grey) "A " "qui" }
  tol -- lis pec -- cá -- ta
  mun -- di:
  mi -- se -- re -- re _ no -- bis.
  \left\markup { \magnify #1.3 \with-color #(x11-color 'grey) "K " "A" }
  -- gnus De - i,
  \left\markup { \magnify #1.3 \with-color #(x11-color 'grey) "A " "qui" }
  tol -- lis pec -- cá -- ta
  mun -- di:
  do -- na no -- bis _ pa -- cem.
}

myVoiceOne = \relative f' {
  \notePos #0
  \omitStem f4 \showStem \stemDown g \omitStem g f f
  \bar "'"
  \once\override Score.RehearsalMark #'padding = #-2
  f4 \showStem f d \omitStem d c d f f
  \once\override Staff.BarLine #'bar-extent = #'(-1 . 1)
  \bar "|"
  s8
  \bar "" \break
  \override Score.Clef #' stencil = ##f
  f4 g a g a f f
  \bar "||"
  f4 a \showStem c \omitStem c c
  \bar "'"
  s8
  c4 \showStem a \omitStem f
  \bar "" \break
  g f g f f
  \once\override Staff.BarLine #'bar-extent = #'(-1 . 1)
  \bar "|"
  f4 g a
  g a f f
  \bar "||" 
  \omitStem f4 \showStem \stemDown g \omitStem g f f
  \once\override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible
  \once\override Score.RehearsalMark #'extra-offset = #'(-1 . 5.1)
  \mark\markup\draw-line #'(0 . 1)
  \bar "" \break
  \once\override Score.RehearsalMark #'padding = #-2
  f4 \showStem f d \omitStem d c d f f
  \once\override Staff.BarLine #'bar-extent = #'(-1 . 1)
  \bar "|"
  s8
  \override Score.Clef #' stencil = ##f
  f4 g a g a f f
  \bar "||"
}

myVoiceTwo = \relative g' {
  \notePos #.9 \omitStem g4 f a
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
  s2
  \showStem \stemUp
  \once\override NoteHead #'stem-attachment = #'(-.8 . -.5)
  \once\override Stem #'length = #3
  \notePos #.9 d4 \omitStem c s s f
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
  s8 s2 a4 s
  <<
    {
      \notePos #.9 \omitStem b
    } \\
    {
      \notePos #1.8 \omitStem a
    } \\
    {
      \notePos #2.7 \omitStem g
    }
  >>
  s
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
  s2 c'4
  <<
    {
      \notePos #.9 \omitStem a
    } \\
    {
      \notePos #1.8 \omitStem g
    }
  >>
  s2 s8 s4
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem a
    }
  >>
  s4 s s a
   <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
  s4 s a s
  <<
    {
      \notePos #.9 \omitStem b
    } \\
    {
      \notePos #1.8 \omitStem a
    } \\
    {
      \notePos #2.7 \omitStem g
    }
  >>
  s4
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
  s4
  \notePos #.9 \omitStem g4 f a
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
  s2
  \showStem \stemUp
  \once\override NoteHead #'stem-attachment = #'(-.8 . -.5)
  \once\override Stem #'length = #3
  \notePos #.9 d4 \omitStem c s s f
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
  s8 s2 a4 s
  <<
    {
      \notePos #.9 \omitStem b
    } \\
    {
      \notePos #1.8 \omitStem a
    } \\
    {
      \notePos #2.7 \omitStem g
    }
  >>
  s
  <<
    {
      \notePos #.9 \omitStem g
    } \\
    {
      \notePos #1.8 \omitStem f
    }
  >>
 
}

\score {
  <<
    \new Staff <<
      \global
      \context Voice = "Melodie"    { \voiceOne << \myVoiceOne >> }
      \context Voice = "Vokalis" { \voiceTwo << \myVoiceTwo >> }
    >>
    \new Lyrics \lyricsto "Melodie" \myLyrics
  >>
  \layout {
    indent = 0
    \context {
      \Staff
      \override TimeSignature #'transparent = ##t
    }
    \context {
      \Score
      \override RehearsalMark #'direction = #DOWN
    }
  }
}


Titel: Re: Choralmesse in moderner Notation
Beitrag von: banause am Donnerstag, 28. August 2014, 08:54

Vielen Dank. Bei normaler Kompilierung klappt das auch. Ich will das aber letztlich in ein Liedblatt einbinden und nutze deshalb lilypond-book. Dort wird von dem Atemzeichen alles weggeschnitten, was über die höchste Notenlinie hinaus geht. Sehr seltsam ...
Zumindest für die halb gezogenen Striche (die divisio minor) geht das. Gibts für die Atemzeichen eine Alternative? Sonst muss ich wohl damit leben. Oder richte Umbrüche so aus, dass keines davon am Zeilenende steht ...