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 }
}

Reply via email to