X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-ps.scm;h=d36cb6a1d40142117e40887662f9cb1fbc83dba6;hb=98ba77f9a972c75e431f29a47df18676c3d65621;hp=2f585a767e4e91c2c069bcbc61ead9772b396c22;hpb=e229b2f3917fef9f19d33e1b4129b70efd802923;p=lilypond.git

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 2f585a767e..d36cb6a1d4 100644
--- 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))))