patch::: 1.3.52.jcn1

[lilypond.git] / ps / lily.ps

diff --git a/ps/lily.ps b/ps/lily.ps
index b948ccff706d51dfdca8924d1d5351a50ad77b4f..0926c8fc5a1d26d6edfc94ab55f39edb10bcf139 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 
@@ -147,7 +159,7 @@
 %6 
        0 0 
 %5a 
-       arch_thick arch_height add half_height bracket_thick sub arch_width add 
+       bracket_thick arch_height add half_height arch_thick sub arch_width add 
        arch_angle arch_height -0.15 mul bracket_traject 
 %5b 
        1 half_height 
@@ -155,17 +167,17 @@
 %5c 
        0 half_height 
 %4a 
-       arch_thick half_height bracket_thick sub 
+       bracket_thick half_height arch_thick sub 
        0 arch_height 0.4 mul bracket_traject 
 %4b 
-       arch_thick arch_height add half_height bracket_thick sub arch_width add 
+       bracket_thick arch_height add half_height arch_thick sub arch_width add 
        arch_angle arch_height -0.25 mul bracket_traject 
 %4c 
-       arch_thick arch_height add half_height bracket_thick sub arch_width add 
+       bracket_thick arch_height add half_height arch_thick sub arch_width add 
 %3 
-       arch_thick half_height bracket_thick sub 
+       bracket_thick half_height arch_thick sub 
 %2 
-       arch_thick 0 
+       bracket_thick 0 
 %1 
        0 0 
 } bind def 
@@ -193,7 +205,7 @@
        /arch_width exch def
        /arch_angle exch def
 %
-       bracket_height 2 div arch_thick add /half_height exch def 
+       bracket_height 2 div bracket_thick add /half_height exch def 
 % urg: the only Level-2 PS, check effect in print 
 %      true setstrokeadjust 
        1 setlinecap