* scm/output-gnome.scm: remove beam routine.

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

diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps
index 64bd1bf56afe42cac3cba210877347f0c3cbb2b4..b8f36aa208343c15912a4fba124bccc9f760d954 100644 (file)
--- a/ps/music-drawing-routines.ps
+++ b/ps/music-drawing-routines.ps
@@ -149,33 +149,6 @@ bind def
        } ifelse
 } bind def
 
-% Nice beam with rounded corners
-/draw_beam % slope width thick  blot
-{
-       /blot exch def
-       blot setlinewidth
-
-       0 setlinecap
-       1 setlinejoin
-
-       blot sub /t exch def
-       blot sub /w exch def
-       w mul /h exch def
-
-       blot 2 div t 2 div neg moveto
-       w h rlineto
-       0 t rlineto
-       w neg h neg rlineto
-       0 t neg rlineto
-
-       currentdict /testing known {
-               %% outline only, for testing:
-               stroke
-       }{
-               closepath gsave stroke grestore fill
-       } ifelse
-} bind def
-
 /draw_polygon % x(n) y(n) x(n-1) y(n-1) ... x(1) y(1) n blot fill
 {
        /fillp exch def