* scm/fret-diagrams.scm (draw-dots): default values for dot size

[lilypond.git] / scm / output-ps.scm

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 4f352a68c1bd159c2b79180328bc37be932d69a2..f453bd2c8f5c464d4ca7bcfbf2864fe1ad6234cf 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -39,6 +39,7 @@
             filledbox
             round-filled-box
             text
+            white-text
             tuplet
             polygon
             draw-line
@@ -251,6 +252,11 @@
      (string-join (reverse commands)))
     ))
   
+
+(define (white-text s)
+   (let ((mystring (string-append "(" s ")" " /Helvetica-bold" " draw_white_text")))
+  mystring))
+
 (define (unknown) 
   "\n unknown\n")
 
@@ -270,4 +276,4 @@
   "")
 
 (define (no-origin)
-  "")
\ No newline at end of file
+  "")