patch::: 1.1.8.hwn1

[lilypond.git] / ps / lily.ps

diff --git a/ps/lily.ps b/ps/lily.ps
index 32c75a0f2564748ba541a681bc393e50ef5684d0..d8cf6e5e42281c624bde9043fb4edac70c34e594 100644 (file)
--- a/ps/lily.ps
+++ b/ps/lily.ps
@@ -1,5 +1,6 @@
 %!PS-Adobe-1.0: lily.ps
 
+% 2 setlanguagelevel %  hmm. auto_resize_dicts doesn't help either. 
 % round cappings
 1 setlinecap
 
@@ -16,7 +17,7 @@
         closepath fill
 } bind def
 
-/draw_decrescendo % cont height width
+/draw_decrescendo % width height cons
 {
        stafflinethickness setlinewidth
        /cresc_cont exch def
@@ -31,7 +32,7 @@
        stroke
 } bind def
 
-/draw_crescendo % cont height width
+/draw_crescendo % width height cons
 {
        stafflinethickness setlinewidth
        /cresc_cont exch def
@@ -76,6 +77,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