Jens Haug wrote:
> That's why I'm so keen
> on having zigzag lines for this purpose.
Hov about this?
-Rune
raise = #"\\embeddedps{0.2 setlinewidth 0.2 -0.2 moveto 0 -1 -0.7 -1.8 -1.2 -2
rcurveto stroke}"
fall = #"\\embeddedps{0.2 setlinewidth -0.2 -0.2 moveto 0.5 -0.2 1.2 -1 1.2 -2
rcurveto stroke}"
raisez = #"\\embeddedps{0.1 setlinewidth 0.4 -0.2 moveto 1 1 5 { -0.7 0.1 rlineto 0.5
-0.5 rlineto } for stroke}"
fallz = #"\\embeddedps{0.1 setlinewidth -0.4 -0.2 moveto 1 1 5 { 0.7 0.1 rlineto -0.5
-0.5 rlineto } for stroke}"
bend = #"\\embeddedps{0.2 setlinewidth -0.5 0.3 moveto 0.8 -0.5 1.6 -0.5 2.4 0
rcurveto stroke}"
sleft = {
\once \property Voice.scriptHorizontal = ##t
\once \property Voice.TextScript \override #'direction = #-1
\once \property Voice.TextScript \override #'X-extent-callback = ##f
}
sright = {
\once \property Voice.scriptHorizontal = ##t
\once \property Voice.TextScript \override #'direction = #1
}
\score {
\notes \relative c'' {
\sleft a-\raise
\sright a-\fall
a^\bend
\sleft a-\raisez
\sright a-\fallz
}
\paper { linewidth = -1 }
}