* 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 b54622b3bb3c9f3af5da3e1082babf173fddacae..3bcfa3a45f2bf8746448c5e67730024be06c7ea5 100644 (file)
--- a/ps/music-drawing-routines.ps
+++ b/ps/music-drawing-routines.ps
@@ -3,14 +3,17 @@
 % 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
 {
-    /editorcommand exch def
+    /command exch def
     /ury exch def
     /urx exch def
     /lly exch def
@@ -18,18 +21,20 @@
     [
        /Rect [ llx lly urx ury ]
        /Border [ 0 0 0 0 ]
-       /Action 
-       <<
-           /Subtype /Launch
-           /File editorcommand
-       >>
+
+        /Action
+           <<
+               /Subtype /URI
+               /URI command
+           >>
         /Subtype /Link
     /ANN
     pdfmark
 }
 bind def
 
-/set_tex_dimen {
+/set_tex_dimen
+{
        cvr def
 } bind def
 
@@ -256,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