release: 1.1.28

[lilypond.git] / ps / lily.ps

diff --git a/ps/lily.ps b/ps/lily.ps
index 56745b521bfa85d6790625680d154dde5ab46275..9c1710e3b2175cc08ff9e88a6c83f6bb782fa81e 100644 (file)
--- a/ps/lily.ps
+++ b/ps/lily.ps
@@ -1,10 +1,9 @@
 %!PS-Adobe-1.0: lily.ps
-%
-%staffrulethickness /stafflinethickness exch def
-%
+
+% 2 setlanguagelevel %  hmm. auto_resize_dicts doesn't help either. 
 % round cappings
 1 setlinecap
-%
+
 /draw_beam % width slope thick
 {
         2 div /beam_thick exch def
@@ -17,14 +16,14 @@
         0 beam_thick lineto
         closepath fill
 } bind def
-%
-/draw_decrescendo % cont height width
+
+/draw_decrescendo % width height cons
 {
        stafflinethickness setlinewidth
        /cresc_cont exch def
        /cresc_ht exch def
        /cresc_wd exch def
-%
+
        cresc_wd cresc_cont moveto
        0 cresc_ht lineto
        stroke
@@ -32,14 +31,14 @@
        0 cresc_ht neg lineto
        stroke
 } bind def
-%
-/draw_crescendo % cont height width
+
+/draw_crescendo % width height cons
 {
        stafflinethickness setlinewidth
        /cresc_cont exch def
        /cresc_ht exch def
        /cresc_wd exch def
-%
+
        0 cresc_cont moveto
        cresc_wd cresc_ht lineto
        stroke
@@ -47,27 +46,26 @@
        cresc_wd cresc_ht neg lineto
        stroke
 } bind def
-%
+
 /lily_distance 
 {
        1 copy mul exch 1 copy mul add sqrt
 } bind def
-%
-stafflinethickness 1.2 mul /tuplet_t exch 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
        tuplet_dy tuplet_dx div tuplet_gapx mul /tuplet_gapy exch def
        staffheight 4 div dir mul /tuplet_h exch def
-%
+
        0 0 moveto
        0 tuplet_h lineto 
        tuplet_dx tuplet_gapx sub 2 div 
@@ -78,8 +76,28 @@ stafflinethickness 1.2 mul /tuplet_t exch def
        tuplet_dx tuplet_dy lineto
        stroke
 } bind def
-%
-/draw_slur
+
+/draw_volta % w thick last
+{
+       /last exch def
+       setlinewidth
+       /volta_w exch def
+       staffheight 2 div /volta_h exch def
+% 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
+       last 0 eq {
+               volta_w 0 lineto
+       } if
+       stroke
+} bind def
+
+% this is for drawing slurs.
+/draw_bezier_sandwich 
 {
        stafflinethickness setlinewidth
        moveto
@@ -91,20 +109,21 @@ stafflinethickness 1.2 mul /tuplet_t exch def
        grestore
        stroke
 } bind def
-%
+
 /draw_dashed_slur
 {
        1 setlinecap
        1 setlinejoin
        setdash
        setlinewidth
+       8 -2 roll
        moveto
        curveto
        stroke
 } bind def
-%
-staffheight 4 div /interline exch def
-%
+
+
+
 /bracket_traject
 {
   /traject_ds exch def
@@ -114,14 +133,9 @@ staffheight 4 div /interline exch def
   traject_ds traject_alpha cos mul add
   exch
 } bind def
-%
-interline 3 div /bracket_b exch def
-interline 2 mul /bracket_w exch def
-stafflinethickness 2 mul /bracket_t exch def
-interline 1.5 mul /bracket_v exch def
-bracket_v /bracket_u exch def
-50 /bracket_alpha exch def
-%
+
+
+
 /half_bracket
 {
 %6
@@ -149,7 +163,7 @@ bracket_v /bracket_u exch def
 %1
        0 0
 } bind def
-%
+
 /draw_half_bracket {
        moveto
        lineto
@@ -161,7 +175,7 @@ bracket_v /bracket_u exch def
        fill
        grestore
 } bind def
-%
+
 /draw_bracket % height
 {
        2 div bracket_b add /bracket_h exch def
@@ -181,4 +195,4 @@ bracket_v /bracket_u exch def
        draw_half_bracket
        stroke
 } bind def
-%
+