From 5aebcea16d8fd927dff2fea16f80aa3ca1ddc330 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sat, 8 Jan 2005 16:26:53 +0000 Subject: [PATCH] (white-text): comment out Helvetica font, which is broken for my GS install. --- ChangeLog | 3 +++ scm/output-ps.scm | 14 +++++++++++--- 2 files changed, 14 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 98deccd202..0e784c0b65 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2005-01-08 Han-Wen Nienhuys + * 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 c56fe21a3f..8c415713ec 100644 --- 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") -- 2.39.5