\version "2.18.0"

\include "slur-attach-definition.ily"
% Author:Janek Warchol
% http://lilypond.1069038.n5.nabble.com/attachment/154366/0/slur-attachments.ly

\markup{Default Lilypond}
{ \override TextScript.baseline-skip = #1.5
  \time 3/4
  \relative f'' {
    r2 f4~^\markup{ties}
    f2.-\tweak #'color #red ~ 
    f4 r g~_\markup{\teeny \column {"why is the tie" "between the heads"}}
    g2.~
    g4 r a~
    a2.-\tweak #'color #red ~
    a4 r r
    \break
    f2.-\tweak #'color #red (^\markup{shallow slurs} 
    d4) r r
    g2.(
    e4) r r
    a2.-\tweak #'color #red (
    f4) r r
    \break
    f2.-\tweak #'color #red (^\markup{steep slurs} 
    d,4) r r
    g'2.-\tweak #'color #red (_\markup{\teeny \column {"default slur" "head - head"}}
    e,4) r r
    a'2.-\tweak #'color #red (
    f,4) r r
  }
}

\markup{Tweaked Lilypond}
{ \override TextScript.baseline-skip = #1.5
  \time 3/4
  \relative f'' {
    \override Dots.Y-extent = #'(-0.1 . 0.1)
    r2 f4~^\markup{ties - ignore the dots}
    f2.-\tweak #'color #blue ~
    f4 r g~
    g2.~
    g4 r a~
    a2.-\tweak #'color #blue ~
    a4 r r
    \break
    f2.-\tweak #'color #blue (^\markup{shallow slurs - ignore the dots} 
    d4) r r
    g2.(
    e4) r r
    a2.-\tweak #'color #blue (
    f4) r r
    \break
    \revert Dots.Y-extent
    \attach #'(head stem) Slur
    f2.-\tweak #'color #blue (^\markup{steep slurs - force slur from head to stem}
                              _\markup{\teeny {Is the slur attachment point to the stem correct?}}
    d,4) r r
    g'2.-\tweak #'color #blue (
    e,4) r r
    a'2.-\tweak #'color #blue (
    f,4) r r
  }
}

\paper
{ 
  indent = #0
  ragged-right=##t 
}