patch::: 1.1.5.jcn2: extender

[lilypond.git] / ps / lilyponddefs.ps

diff --git a/ps/lilyponddefs.ps b/ps/lilyponddefs.ps
index 48b4bfb7b7f883b57b42d245ab448500a5a4f0fb..2641a26ab94a2eb634fa352945d2b12479b46050 100644 (file)
--- a/ps/lilyponddefs.ps
+++ b/ps/lilyponddefs.ps
@@ -5,7 +5,7 @@
 
 /xoffset 30 def
 /yoffset 700 def
-/staffrulethickness 1 def
+/stafflinethickness 1 def
 /staffheight 20 def
 
 /placebox
@@ -68,6 +68,15 @@
        grestore
 } bind def
 
+/extender % width
+{
+       gsave
+       0 0 moveto
+       stafflinethickness 0.8 mul setlinewidth
+       0 lineto stroke
+       grestore
+} bind def
+
 /widthbar % height width
 {
        gsave