inv = { \property Voice.NoteHead \override #'transparent = ##t	
	\property Voice.Rest \override #'transparent = ##t
        \property Voice.Stem \override #'transparent = ##t
	\property Voice.Dots \override #'transparent = ##t }
unv = { \property Voice.NoteHead \revert #'transparent
       \property Voice.Rest \revert #'transparent
	\property Voice.Stem \revert #'transparent
	\property Voice.Dots \revert #'transparent }

sing = { \property Voice.NoteHead \set #'style = #'diamond }

play = { \property Voice.NoteHead \set #'style = #'default }

xHed = { \property Voice.NoteHead \set #'style = #'cross }

dSlur = { \property Score.Slur \set #'dashed = #'6 }

nSlur = { \property Score.Slur \revert #'dashed }

\include "paper20.ly"
\score {
    \notes \relative c, {
	\property Staff.TimeSignature \override #'transparent = ##t
	\clef F
	\cadenzaOn
	%% Line one
	a2\fermata( \dSlur )bes'8( \breathe \sing \nSlur )bes4( \dSlur )ges'( \play )ges8( \nSlur
	\sing [)ges8.( )e!] \breathe \play e4( \sing gis \play )g,8 ~ g4 
	\breathe \xHed [d16 d d d d d] \breathe \bar ""
	\break
	%% Line two
	<{s4 \sing c'1 \breathe c8 d1 s16 s8 dis'16 ~ dis2\fermata \breathe dis4\fermata}\\{f,,4 ~ f1 f8 d'2.( )cis4 r16 b!8 b16 ~ b2_\fermata \slurUp [b8( )ais_\fermata]}> \bar ""
	\break
	%% Line three
	<{\play\stemDown [g,,!8 bes, s4 es,8 c' d \inv d d \unv f8 \inv f f \unv b,] \inv b } \\ {s4 \stemUp [cis'8( )e, s4. a'8( )fis \inv fis \unv gis, b,] ~ \inv b ]}> \dSlur \play \breathe \grace{\stemDown d''-.->} \stemUp \sing  d4( \fermata \bar ""
	\break
	%% Line four, and the problem is that the \nSlur v-here-v doesn't seem to work.
	\stemDown )d8( \stemUp \sing )d4( \stemDown \play \nSlur [)d8( )cis] \breathe \stemUp\sing cis!4( \stemDown \nSlur \play )cis!8( )f! \stemUp \sing f4 \breathe <{\sing [f8( )es,] ~ \play \stemDown es8 \sing \stemUp  es4 ~ es r } \\ {s2 c,!8( )b4 ~ b}> \bar ""

    }
    \paper {indent = 0 }
}