lilypond-user
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Merge upStem quarter with downStem 16th

From: Kevin Barry
Subject: Re: Merge upStem quarter with downStem 16th
Date: Tue, 3 Feb 2015 18:24:40 +0000
This is a hackish solution (it involves a hshift that will need tweaking once the score is filled up) but it seems to do what you want.

\version "2.18.2"
\language "english"

upperStaffTop = \relative c' {
  <cs \tweak transparent ##t d>4 <cs' cs'> <cs' cs'> |
}

upperStaffBottom = \relative c' {
  \once \override NoteHead.transparent = ##t
  \once \override NoteColumn.force-hshift = #1.3
  d16
  d fs gs cs d fs gs cs gs fs d |
}

lowerStaffTop = \relative c {
  <<
    \new Voice {
      \voiceThree \crossStaff { cs4 } s2 |
    }
    \new Voice {
      \voiceFour cs16 d fs gs \stemUp cs \clef treble d fs gs cs gs fs d |
    }
  >>  
}

lowerStaffBottom = \relative c,, {
  <cs cs'>4 <cs'' cs'> \clef treble <cs' cs'> |
}

% --- Biolerplate

global = {
  \key a \major
  \time 3/4
}

upperStaff = {
  \clef treble
  \global
  <<
    \new Voice { \voiceOne \upperStaffTop }
    \new Voice { \voiceTwo \upperStaffBottom }
  >>
}

lowerStaff = {
  \clef bass
  \global
  <<
    \new Voice { \voiceThree \lowerStaffTop }
    \new Voice { \voiceFour \lowerStaffBottom }
  >>
}

\score {
  \new PianoStaff {
    <<
      \new Staff \upperStaff 
      \new Staff \lowerStaff  
    >>
  }
  \layout {
    \context {
      \PianoStaff
      \consists #Span_stem_engraver
    }
  }
}
reply via email to
[Prev in Thread] Current Thread [Next in Thread]