* lily/font-select.cc (properties_to_font_size_family): Fix

[lilypond.git] / ps / music-drawing-routines.ps

diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps
index 75d7bbaa424de3195e07ffe6af41550aa31acf75..39374dae2176cb367932fd987dbaa60ef9256aee 100644 (file)
--- a/ps/music-drawing-routines.ps
+++ b/ps/music-drawing-routines.ps
@@ -2,12 +2,15 @@
 %
 % Functions for direct and embedded PostScript
 
+
 /blot-diameter { lilypondpaperblotdiameter } bind def
 
 /set_tex_dimen {
        cvr def     
 } bind def
 
+
+
 /euclidean_length  
 { 
        1 copy mul exch 1 copy mul add sqrt 
@@ -87,14 +90,9 @@
 } bind def
 
 % Nice beam with rounded corners
-/draw_beam % slope width thick 
+/draw_beam % slope width thick  blot
 {
-       currentdict /testing known {
-               %% real thin lines for testing
-               /blot 0.005 def
-       }{
-               /blot blot-diameter def
-       } ifelse
+       /blot exch def 
        blot setlinewidth
 
        0 setlinecap
@@ -211,12 +209,15 @@
 
 % this is for drawing slurs. 
 /draw_bezier_sandwich  % thickness controls 
-{ 
+{
+    % round ending and round beginning
+    1 setlinejoin 1 setlinecap
        setlinewidth 
        moveto 
        curveto 
        lineto 
-       curveto 
+       curveto
+       closepath
        gsave 
        fill 
        grestore 
@@ -375,3 +376,4 @@
        stroke 
 } bind def 
 
+%end music-drawing-routines.ps