On 19.12.2016 11:51, Peter Toye wrote:
I'm trying to engrave the attached score fragment, but can't work out how to get it right. I agree with LP that it's not beautiful, but that's what the composer wrote.

The method used in that engraving is nice, but difficult to get right and rarely used. It’s not a good idea to go exactly with that in computer engraving, so I’d rather do something like the attached.

Best, Simon
\version "2.19.52"

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%% http://lsr.di.unimi.it/LSR/Item?id=792
%% see also http://lilypond.org/doc/v2.18/Documentation/notation/displaying-pitches

% Append markup in the text property to the grob
#(define (append-markup grob old-stencil)
  (ly:stencil-combine-at-edge
    old-stencil X RIGHT (ly:text-interface::print grob)))

trebleToBass = {
  \clef bass
  % Fake staff clef appearance
  \once \override Staff.Clef.glyph-name = #"clefs.G"
  \once \override Staff.Clef.Y-offset = #-1
  % Append change clef to the time signature
  \once \override Staff.TimeSignature.text = \markup {
    \hspace #1.2
    \raise #1
    \musicglyph #"clefs.F_change"
  }
  \once \override Staff.TimeSignature.stencil = #(lambda (grob)
    (append-markup grob (ly:time-signature::print grob)))
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\language "english"

toRH = { \change Staff = "rh" \voiceTwo }
toLH = { \change Staff = "lh" \voiceOne }

\score {
  \new PianoStaff {
    <<
      \set PianoStaff.instrumentName = #"Piano"
      \new Staff = "rh" \relative {
        \time 3/4
        \key gs \minor
        \trebleToBass
        <<
          \new Voice {
            \voiceOne
            <b f~>4( <cs f,> <d f,>) |
            <d g,>( b <d g,>) |
          }
          \new Voice {
            f,=8 \toLH b,~ b b \toRH f' \toLH b,
            \toRH g' \toLH d~ d \toRH g~ g \toLH d
          }
        >>
      }

      \new Staff = "lh" {
        \time 3/4
        \key gs \minor
        \clef bass
        \relative {
          \voiceTwo
          g,2 g4 |
          <f b>2 <e b'>4 |
        }
      }
    >>
  }
  \layout {
    \context {
      \Voice
      \override Tie.minimum-length = 3
    }
  }
}
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to