(white-text): comment out Helvetica font,

which is broken for my GS install.

diff --git a/ChangeLog b/ChangeLog
index 98deccd202c23745b4d7a401734e63b8cf8ea770..0e784c0b65314a9fb6c14be810d439ae2553b421 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2005-01-08  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+       * scm/output-ps.scm (white-text): comment out Helvetica font,
+       which is broken for my GS install.
+
        * lily/pango-font.cc (pango_item_string_stencil): use ink_rect,
        which provides a tighter bbox.
 

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index c56fe21a3fc4af4cec0a4a77ec4c397b1c188c37..8c415713ecef1ce4a85d19b01e20f31aa9fabf5b 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -156,13 +156,16 @@
 (define (embedded-ps string)
   string)
 
+;; FIXME. 
 (define (ez-ball ch letter-col ball-col)
   (string-append
    " (" ch ") "
    (ly:numbers->string (list letter-col ball-col))
    ;; FIXME: barf
    " /Helvetica-Bold "
-   " draw_ez_ball"))
+   " draw_ez_ball")
+  
+  "")
 
 ;; FIXME: use draw_round_box
 (define (filledbox breapth width depth height)
@@ -242,7 +245,7 @@
   (let* ((space-length (cdar (ly:text-dimension font " ")))
         (space-move (string-append (number->string space-length)
                                    " 0.0 rmoveto "))
-        (input-enc 'latin1)
+        (input-enc "latin1")
         (out-vec (decode-byte-string input-enc s)))
 
     (string-append
@@ -263,7 +266,12 @@
                   "(" s  ") " (number->string scale)
                   " /Helvetica-Bold "
                   " draw_white_text")))
-    mystring))
+    mystring
+
+
+    ;; FIXME: broken with user install of GS 8.x
+    ""
+    ))
 
 (define (unknown) 
   "\n unknown\n")