summaryrefslogtreecommitdiff
path: root/ps/lilyponddefs.ps
diff options
context:
space:
mode:
authorJan Nieuwenhuizen <janneke@gnu.org>1998-11-14 01:51:46 +0100
committerJan Nieuwenhuizen <janneke@gnu.org>1998-11-14 01:51:46 +0100
commite590acdf36f87d36f68b322c08246664c9a7297a (patch)
tree7204448abb4e44b9766fab2eb6c9338b3de7266d /ps/lilyponddefs.ps
parentf87b1df0f78838d1cd2d4dc7d576e4b9aa1035ef (diff)
patch::: 1.1.5.jcn2: extender
pl5.jcn2 - extender-*, see input/test/extender.ly - bf: half-beam length (urg) - fixes: standchen, star
Diffstat (limited to 'ps/lilyponddefs.ps')
-rw-r--r--ps/lilyponddefs.ps11
1 files changed, 10 insertions, 1 deletions
diff --git a/ps/lilyponddefs.ps b/ps/lilyponddefs.ps
index 48b4bfb7b7..2641a26ab9 100644
--- 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