* make/lilypond.fedora.spec.in (Group): remove

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

diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps
index 85434be8a8dca4d61e6ccdadcd5fce60d119647c..fff7dfd7528b822a22710fa9003a823011b41a1f 100644 (file)
--- a/ps/music-drawing-routines.ps
+++ b/ps/music-drawing-routines.ps
@@ -231,6 +231,33 @@ bind def
 } bind def
 
 
+%%%% JUNKME. use color & circle. 
+/draw_white_dot % x1 y2 R
+{
+%      0 360 arc fill stroke
+       0 360 arc closepath % fill stroke
+gsave
+ 1 setgray fill
+grestore
+%      0 360 arc closepath % fill stroke
+  0.05 setlinewidth 0 setgray stroke
+} bind def
+
+
+%% JUNKME: Use color.  
+/draw_white_text  % text scale font
+{
+  %font
+  findfont
+  %scale
+  exch scalefont setfont
+  1 setgray
+  0 0 moveto
+  %-0.05 -0.05 moveto
+  % text
+  show
+} bind def
+
 
 /draw_dashed_line % dash thickness dx dy
 {