X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=blobdiff_plain;f=ps%2Flily.ps;h=6ea6920d23c9d4b469145cac2b4e3e704401f4cf;hb=bd0a24bfd5968f97b8817f6e1442403a35ebcdf6;hp=32c75a0f2564748ba541a681bc393e50ef5684d0;hpb=b43644c1ad4631d566a6b3a6cdfd0e89800a2f69;p=lilypond.git

diff --git a/ps/lily.ps b/ps/lily.ps
index 32c75a0f25..6ea6920d23 100644
--- a/ps/lily.ps
+++ b/ps/lily.ps
@@ -16,7 +16,7 @@
         closepath fill
 } bind def
 
-/draw_decrescendo % cont height width
+/draw_decrescendo % width height cons
 {
 	stafflinethickness setlinewidth
 	/cresc_cont exch def
@@ -31,7 +31,7 @@
 	stroke
 } bind def
 
-/draw_crescendo % cont height width
+/draw_crescendo % width height cons
 {
 	stafflinethickness setlinewidth
 	/cresc_cont exch def
@@ -76,6 +76,21 @@
 	stroke
 } bind def
 
+/draw_volta % w last
+{
+	/last exch def
+	/volta_w exch def
+	staffheight 2 div /volta_h exch def
+	volta_t setlinewidth
+	0 0 moveto
+	0 volta_h lineto
+	volta_w volta_h lineto
+	last 0 eq {
+		volta_w 0 lineto
+	} if
+	stroke
+} bind def
+
 /draw_slur
 {
 	stafflinethickness setlinewidth