Deutsches Lilypond Forum (Archiv)

Allgemein => Fragen zu Funktionen => Thema gestartet von: Joei am Samstag, 9. März 2013, 10:33

Titel: "automatischer"Klavierauszug
Beitrag von: Joei am Samstag, 9. März 2013, 10:33

Moin :)

ich hab mich gefreut, als ich das nette Template für Chor SATB mit automatischem Klavierauszug fand... aber... wie werde ich die überflüssigen Dynamik- und Ausdruckszeichen los?

Code: [Auswählen]

\version "2.16.2"
\include "deutsch.ly"

\paper {
  %#(set-paper-size "a4")
  annotate-spacing = ##f
  two-sided = ##t
  inner-margin = 17\mm
  outer-margin = 18\mm
  top-margin = 15\mm
  bottom-margin = 17\mm
  ragged-bottom = ##f
 
  indent = 2.0\cm  % space for instrumentName
  short-indent = 1.5\cm  % space for shortInstrumentName
  first-page-number = 1
}

\header {
  title = "Go, Song of Mine"
  composer = "Edward Elgar"
  opus = "Op. 57"
  tagline = \markup {
    Engraved at
    \simple #(strftime "%Y-%m-%d" (localtime (current-time)))
    with \with-url #"http://lilypond.org/"
    \line { LilyPond \simple #(lilypond-version) (http://lilypond.org/) }
  }
}




global = {
  \key d \major
  \time 4/4
}
sopranoMusic = \relative c' {
  \clef "treble"
  \autoBeamOff \partial 2 r4^ \markup \italic "Lento solenne." r8 fis8\p fis4 --  fis4~fis8 r8 fis8\pp fis fis2 g4-> ^\markup \italic "cresc."~g8-|r
}
sopranoWords = \lyricmode {
 Di -- shev -- ell'd and in tears, go,
}
altoIMusic = \relative a {
  \clef "treble"
   \autoBeamOff \partial 2 r4 r8
 d8\p d4 -- d4~d8 r d\pp d d2 d4->^\markup \italic "cresc."~d8-|r
}
altoIWords = \sopranoWords


altoIIMusic = \relative a {
  \clef "treble"
   \autoBeamOff \partial 2 r4 r8
h8\p h4 -- h~h8 r h\pp h h2 h4->^\markup \italic "cresc."~h8-|r
}
altoIIWords = \sopranoWords


tenorIMusic = \relative c {
  \clef "G_8"
   \autoBeamOff \partial 2 r4 r8
fis8\p fis4 --  fis4~fis8 r8 fis8\pp fis fis2 g4-> ^\markup \italic "cresc."~g8-|r
}
tenorIWords = \sopranoWords


tenorIIMusic = \relative c {
  \clef "G_8"
   \autoBeamOff \partial 2 r4 r8
 d8\p d4 -- d4~d8 r d\pp d d2 d4->^\markup \italic "cresc."~d8-|r
}
tenorIIWords = \sopranoWords



bassMusic = \relative c {
  \clef "bass"
  \autoBeamOff \partial 2 r4 r8
  h8\p h4 -- h~h8 r h\pp h h2 h4->^\markup \italic "cresc."~h8-|r
}
bassWords = \sopranoWords




upper = \relative a' {
  \clef "treble"
  \global
  \autoBeamOff \partial 2 r4

}

lower = \relative c, {
  \clef "bass"
  \global

}



\score {
  <<  % combine ChoirStaff and PianoStaff in parallel
    \new ChoirStaff <<
      \new Staff = "sopranos" <<
        \set Staff.instrumentName = #"Soprano"
        \new Voice = "sopranos" {
          \global
          \sopranoMusic
        }
      >>
      \new Lyrics \lyricsto "sopranos" {
        \sopranoWords
      }
      \new Staff = "altos" <<
        \set Staff.instrumentName = #"1st Alto"
        \new Voice = "altos" {
          \global
          \altoIMusic
        }
      >>
      \new Lyrics \lyricsto "altos" {
        \altoIWords
      }
      \new Staff = "altosII" <<
        \set Staff.instrumentName = #"2nd Alto"
        \new Voice = "altosII" {
          \global
          \altoIIMusic
        }
      >>
      \new Lyrics \lyricsto "altos" {
        \altoIIWords
      }
      \new Staff = "tenors" <<
        \set Staff.instrumentName = #"1st Tenor"
        \new Voice = "tenors" {
          \global
          \tenorIMusic
        }
      >>
      \new Lyrics \lyricsto "tenors" {
        \tenorIWords
      }
          \new Staff = "tenorsII" <<
        \set Staff.instrumentName = #"2nd Tenor"
        \new Voice = "tenorsII" {
          \global
          \tenorIIMusic
        }
      >>
      \new Lyrics \lyricsto "tenorsII" {
        \tenorIIWords
      }
     
      \new Staff = "basses" <<
        \set Staff.instrumentName = #"Bass"
        \new Voice = "basses" {
          \global
          \bassMusic
        }
      >>
      \new Lyrics \lyricsto "basses" {
        \bassWords
      }
    >>  % end ChoirStaff

       \new PianoStaff <<
     
     \new Staff <<
        \set Staff.printPartCombineTexts = ##f
        \partcombine
        << \global \sopranoMusic >>
        << \global \altoIMusic >>
        << \global  \altoIIMusic >>
     >>
     
      \new Staff <<
        \clef bass
        \set Staff.printPartCombineTexts = ##f
        \partcombine
        << \global \tenorIMusic >>
        << \global \tenorIIMusic>>
        << \global \bassMusic >>
      >>
    >>
  >>
  \layout {\context {
      \Score
      \override SpacingSpanner
        #'base-shortest-duration = #(ly:make-moment 1 32)
    }}
  \midi {   }
}



Ich käme jetzt nur auf die Idee die Notentexte zu kopieren und zu bereinigen bevor ich sie zum Klavierauszug vereine
- dann gäbe es aber keine automatischen Änderungen mehr... geht da was??? Kann mann evtl. die Dynamic-Engraver (wenns sowas gibt)
teilweise deaktivieren?

Dank & Gruß
Joei

Titel: Re: "automatischer"Klavierauszug
Beitrag von: prott am Samstag, 9. März 2013, 13:07

Du könntest nur die Dynamik in eine eigene Stimme auslagern, deren "Noten"text aus s besteht:
s2 s4\f s4*15 s2< s4*3 s4\!

Ich weiß aber nicht, ob das nicht andere (unerwünschte) Nebeneffekte, wie eine veränderte Anordnung von Textanmerkungen, hervorruft.