* Documentation/user/instrument-notation.itely (String number

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

diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps
index c7c0956e4473fed219cf4a98207bd6115b5ccb50..3bcfa3a45f2bf8746448c5e67730024be06c7ea5 100644 (file)
--- a/ps/music-drawing-routines.ps
+++ b/ps/music-drawing-routines.ps
@@ -3,12 +3,15 @@
 % Functions for direct and embedded PostScript
 
 
+%% TODO: use dicts or prefixes to prevent namespace pollution.
+
 /pdfmark where
 {pop} {userdict /pdfmark /cleartomark load put} ifelse
 
 
-% llx lly urx ury command
-/mark_file_line
+
+% llx lly urx ury URI
+/mark_URI
 {
     /command exch def
     /ury exch def
@@ -258,6 +261,14 @@ bind def
        0 360 arc closepath fill stroke
 } bind def
 
+/draw_circle % R T
+{
+       setlinewidth
+       dup 0 moveto
+       0 exch 0 exch
+       0 360 arc closepath stroke
+} bind def
+
 /draw_white_dot % x1 y2 R
 {
 %      0 360 arc fill stroke