\version "2.17.96"

\include "shapeII-definition.ily"

\markup {
  Default output
}

{   \clef "G"
    \key f \major
    \time 3/4

    \relative c'' {
        r4 r4 c8( c'8
      | bes8 a g f e f)

      | r4 r4 c8( c'8
      \mark \default
      | bes8 a g f e f)
    }
}

\markup  {
  With shapeII: the first slur is ok but the second goes up
}

{   \clef "G"
    \key f \major
    \time 3/4

    \relative c'' {      
      | \shapeII #'((h)(p 80 0.4)(p 25 0.15)()) Slur
        r4 r4 c8( c'8
      | bes8 a g f e f)
      
      | r4 r4 c8( c'8
      \mark \default
      | bes8 a g f e f)
    }
}

\layout {
  indent = 0\mm
  ragged-right = ##t
}