*** empty log message ***

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

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 8f937d79d8ff3a9395caee065564e03121219b54..a6b13dc07912a56ba67ed3037b454ef5ccb142c0 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -27,6 +27,7 @@
             bracket
             dashed-slur
             char
+            named-glyph
             dashed-line
             zigzag-line
             ez-ball
@@ -115,6 +116,11 @@
     (ps-font-command font) " setfont " 
    "(\\" (ly:inexact->string i 8) ") show" ))
 
+(define (named-glyph font glyph)
+  (string-append 
+    (ps-font-command font) " setfont " 
+   "/" glyph " glyphshow "))
+
 (define (dashed-line thick on off dx dy)
   (string-append 
    (ly:number->string dx) " "
@@ -215,7 +221,7 @@
       ;; ugh, we should find a better way to
       ;; extract the hsbw for /space from the font.
       
-      ((space-length (cdar (ly:text-dimension font "t"))) 
+      ((space-length (cdar (ly:text-dimension font " "))) 
        (commands '())
        (add-command (lambda (x) (set! commands (cons x commands)))) )
 
@@ -243,7 +249,7 @@
 
 (define (new-text font s)
   (let*
-      ((space-length (cdar (ly:text-dimension font "t")))
+      ((space-length (cdar (ly:text-dimension font " ")))
        (space-move (string-append (number->string space-length) " 0.0 rmoveto "))
        
        (input-enc (assoc-get 'input-name
@@ -265,7 +271,8 @@
        out-vec)))
      )))
 
-(define text old-text)
+;(define text old-text)
+(define text new-text)
 
 (define (white-text scale s)
    (let ((mystring (string-append "(" s  ") " (number->string scale)   " /Helvetica-bold "