(get_option_parser):

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

diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps
index 64bd1bf56afe42cac3cba210877347f0c3cbb2b4..82b06c7c704bd2b85bffd61974ed77e4aecf6e66 100644 (file)
--- a/ps/music-drawing-routines.ps
+++ b/ps/music-drawing-routines.ps
@@ -2,8 +2,9 @@
 %
 % Functions for direct and embedded PostScript
 
+% Don't use double % as comment prefix. These are interpreted as DSC comments.
 
-%% TODO: use dicts or prefixes to prevent namespace pollution.
+% TODO: use dicts or prefixes to prevent namespace pollution.
 
 /pdfmark where
 {pop} {userdict /pdfmark /cleartomark load put} ifelse
@@ -62,7 +63,7 @@
     /llx exch def
     [
        /Rect [ llx lly urx ury ]
-       /Border [ 0 0 0 0 ]
+       /Border [ 0 0 0 ]
 
         /Action
            <<
@@ -149,33 +150,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
@@ -250,7 +224,7 @@ bind def
 } bind def
 
 
-%%%% JUNKME. use color & circle. 
+% JUNKME. use color & circle. 
 /draw_white_dot % x1 y2 R
 {
 %      0 360 arc fill stroke
@@ -263,7 +237,7 @@ grestore
 } bind def
 
 
-%% JUNKME: Use color.  
+% JUNKME: Use color.  
 /draw_white_text  % text scale font
 {
   %font