release: 1.1.28

[lilypond.git] / ps / lily.ps

diff --git a/ps/lily.ps b/ps/lily.ps
index 6ea6920d23c9d4b469145cac2b4e3e704401f4cf..9c1710e3b2175cc08ff9e88a6c83f6bb782fa81e 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
 
@@ -51,14 +52,14 @@
        1 copy mul exch 1 copy mul add sqrt
 } bind def
 
-/draw_tuplet
+/draw_tuplet % dx dy thick dir
 {
-       tuplet_t setlinewidth
 % urg: the only Level-2 PS, check effect in print
 %      true setstrokeadjust
+       /dir exch def
+       setlinewidth
        1 setlinecap
        1 setlinejoin
-       /dir exch def
        /tuplet_dy exch def
        /tuplet_dx exch def
        staffheight 2 div /tuplet_gapx exch def
@@ -76,12 +77,16 @@
        stroke
 } bind def
 
-/draw_volta % w last
+/draw_volta % w thick last
 {
        /last exch def
+       setlinewidth
        /volta_w exch def
        staffheight 2 div /volta_h exch def
-       volta_t setlinewidth
+% urg: the only Level-2 PS, check effect in print
+%      true setstrokeadjust
+       1 setlinecap
+       1 setlinejoin
        0 0 moveto
        0 volta_h lineto
        volta_w volta_h lineto
@@ -91,7 +96,8 @@
        stroke
 } bind def
 
-/draw_slur
+% this is for drawing slurs.
+/draw_bezier_sandwich 
 {
        stafflinethickness setlinewidth
        moveto
@@ -110,6 +116,7 @@
        1 setlinejoin
        setdash
        setlinewidth
+       8 -2 roll
        moveto
        curveto
        stroke