Oops, yes. Now attached.

On Sun, Dec 15, 2013 at 7:31 AM, Urs Liska <[email protected]> wrote:

> Am 14.12.2013 05:28, schrieb Alex Loomis:
>
>  To test out the new slurs I typeset this monstrosity:
>> http://leadingtone.tumblr.com/post/69867321191/adventures-
>> in-engraving-vaughan-williams-the
>> The code isn't pretty, but lilypond will do it just fine. In fact, between
>> dashed slurs and moving the hairpin above the staff, it's actually more
>> readable than the example.
>>
>>
> Hi Alex,
>
> was this intended to have an attachment?
>
> Urs
>
>
> _______________________________________________
> lilypond-user mailing list
> [email protected]
> https://lists.gnu.org/mailman/listinfo/lilypond-user
>
\version "2.17.95"
#(ly:set-option 'clip-systems)

\layout {
    clip-regions = #(list
      (cons
       (make-rhythmic-location 2 0 1)
       (make-rhythmic-location 4 0 1))
    )
}

\new PianoStaff <<
  \new Staff = "up" <<
    \new Voice {
      \relative c {
        \clef bass
        \time 3/4
        <a~ e'~ f~>2.
        \phrasingSlurUp
        \shape #'((0.8 . -0.5) (3 . -0.5) (0 . -6.3) (-0.4 . -8.5)) PhrasingSlur
        \shape #'((0 . 0) (0 . 0) (-1 . 1) (-1 . 1)) Slur
        \shape #'((0 . 9.2) (-1 . 5) (0 . 10) (0 . 2)) Tie
        \once \override
          Slur.dash-definition = #'((0 0.3 1 1)
                                    (0.3 0.65 0.4 0.75)
                                    (0.65 1.0 1 1))
          <a e'~ f>2.(\( |
          \change Staff = "down"
          q)\)
      }
    }
    \new Voice { \override Hairpin #'staff-padding = #0.0
                 \override Hairpin #'extra-offset = #'(0 . -3)
                 s2.^\> s2. s8 s s s s s\! }
  >>
  \new Staff = "down" <<
    \override Score.StaffSymbol.layer = #4
    \new Voice {
      \relative c, {
        \clef bass
        \voiceOne
        s2.
        \shape #'((0.2 . -1.6) (2 . 4) (-1 . 2.5) (-0.5 . -0.2)) PhrasingSlur
        f8\( ais c
        \shape #'((0.3 . -2) (4 . -0.5) (-10 . -14) (-0.8 . -4)) Slur
        \slurDashed
        e( f ais |
        \change Staff = "up"
        \override Staff.Clef.layer = #3
        \once \override Staff.Clef.whiteout = ##t
        \clef treble
        \oneVoice
        c e f ais c e)\)
        c1
      }
    }
    \new Voice {
      \relative c, {
        \voiceTwo
        <f~ c~>2.
        \shape #'((0.6 . 0) (0 . 0) (0 . 0) (-0.4 . 0)) Tie
        <f~ c~>2. |
        q
        \clef treble
        c
      }
    }
    \new Voice {
      \relative c, {
        c4\sustainOn s s |
        s2. |
        s8 s s s s s\sustainOff
      }
    }
  >>
>>
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to