release: 1.3.31

[lilypond.git] / ps / lily.ps

diff --git a/ps/lily.ps b/ps/lily.ps
index 265789d1d704f75ae5585b02e53eefb38e553f2e..72da29ec209cd9cc8f4f57e64fe1a6dc94d8541b 100644 (file)
--- a/ps/lily.ps
+++ b/ps/lily.ps
@@ -4,7 +4,8 @@
 % round cappings 
 1 setlinecap 
 % 
-% 
+% scm/lily.scm should allow blank lines, now
+%
 /draw_beam % width slope thick 
 { 
         2 div /beam_thick exch def 
@@ -103,7 +104,7 @@
 } bind def 
 % 
 % this is for drawing slurs. 
-/draw_bezier_sandwich  % thickness  
+/draw_bezier_sandwich  % thickness controls 
 { 
        setlinewidth 
        moveto 
@@ -116,7 +117,18 @@
        stroke 
 } bind def 
 % 
-/draw_dashed_slur 
+/draw_dashed_line % dash thickness width
+{ 
+       1 setlinecap 
+       1 setlinejoin 
+       setdash 
+       setlinewidth 
+       0 0 moveto
+       0 lineto
+       stroke 
+} bind def 
+%
+/draw_dashed_slur % dash thickness controls
 { 
        1 setlinecap 
        1 setlinejoin 
@@ -142,30 +154,30 @@
 % 
 % 
 % 
-/half_bracket 
+/half_bracket
 { 
 %6 
        0 0 
 %5a 
-       bracket_b bracket_v add bracket_h bracket_t sub bracket_u add 
-       bracket_alpha bracket_v -0.15 mul bracket_traject 
+       arch_thick arch_height add half_height bracket_thick sub arch_width add 
+       arch_angle arch_height -0.15 mul bracket_traject 
 %5b 
-       1 bracket_h 
-       0 bracket_v 0.5 mul bracket_traject 
+       1 half_height 
+       0 arch_height 0.5 mul bracket_traject 
 %5c 
-       0 bracket_h 
+       0 half_height 
 %4a 
-       bracket_b bracket_h bracket_t sub 
-       0 bracket_v 0.4 mul bracket_traject 
+       arch_thick half_height bracket_thick sub 
+       0 arch_height 0.4 mul bracket_traject 
 %4b 
-       bracket_b bracket_v add bracket_h bracket_t sub bracket_u add 
-       bracket_alpha bracket_v -0.25 mul bracket_traject 
+       arch_thick arch_height add half_height bracket_thick sub arch_width add 
+       arch_angle arch_height -0.25 mul bracket_traject 
 %4c 
-       bracket_b bracket_v add bracket_h bracket_t sub bracket_u add 
+       arch_thick arch_height add half_height bracket_thick sub arch_width add 
 %3 
-       bracket_b bracket_h bracket_t sub 
+       arch_thick half_height bracket_thick sub 
 %2 
-       bracket_b 0 
+       arch_thick 0 
 %1 
        0 0 
 } bind def 
@@ -182,10 +194,18 @@
        grestore 
 } bind def 
 % 
-/draw_bracket % height 
+/draw_bracket % arch_angle arch_width arch_height bracket_width bracket_height arch_thick bracket_thick
 { 
-       2 div bracket_b add /bracket_h exch def 
-       bracket_t setlinewidth 
+       % urg
+       /bracket_thick exch def
+       /arch_thick exch def
+       /bracket_height exch def
+       /bracket_width exch def
+       /arch_height exch def
+       /arch_width exch def
+       /arch_angle exch def
+%
+       bracket_height 2 div arch_thick add /half_height exch def 
 % urg: the only Level-2 PS, check effect in print 
 %      true setstrokeadjust 
        1 setlinecap