[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: jazz articulations
From: |
Rune Zedeler |
Subject: |
Re: jazz articulations |
Date: |
Mon, 14 Oct 2002 16:15:57 +0200 |
User-agent: |
Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.0.0) Gecko/20020529 |
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 }
}