release: 1.3.2

[lilypond.git] / ps / lily.ps

diff --git a/ps/lily.ps b/ps/lily.ps
index 265789d1d704f75ae5585b02e53eefb38e553f2e..b948ccff706d51dfdca8924d1d5351a50ad77b4f 100644 (file)
--- a/ps/lily.ps
+++ b/ps/lily.ps
@@ -142,30 +142,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 +182,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