* flower/file-path.cc (find): try to open directly as well, so we

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

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 2f585a767e4e91c2c069bcbc61ead9772b396c22..d36cb6a1d40142117e40887662f9cb1fbc83dba6 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -299,3 +299,15 @@
 
 (define (no-origin)
   "")
+
+(define-public (glyph-string psname items)
+  (apply
+   string-append
+   (cons
+    (format " /~a findfont setfont " psname)
+    (map (lambda  (item)
+          (format " ~a ~a rmoveto /~a glyphshow "
+                  (car item)
+                  (cadr item)
+                  (caddr item)))
+        items))))