Improvements in vertical skyline approximations (issue 2148).

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

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 7c8a6ed39474fa5560002fb71f3744d4bf614047..497f197aebd80e4ab8e872bbf976655dbf28ba8d 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -112,12 +112,13 @@
 (define (embedded-ps string)
   string)
 
-(define (glyph-string postscript-font-name
+(define (glyph-string pango-font
+                      postscript-font-name
                      size
                      cid?
                      w-x-y-named-glyphs)
 
-  (define (glyph-spec w x y g)
+  (define (glyph-spec w h x y g) ; h not used
     (let ((prefix (if (string? g) "/" "")))
       (ly:format "~4f ~4f ~4f ~a~a"
                 w x y