Gets vertical skylines from grob stencils

scm/output-ps.scm

 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
 ;;;; Copyright (C) 1998--2012 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;;                 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
 ;;;; the Free Software Foundation, either version 3 of the License, or
 ;;;; (at your option) any later version.
 ;;;;
@@ skipping 94 matching lines @@
   (ly:format
    "~a ~4f ~4f ~4f draw_ellipse"
    (if fill
      "true"
      "false")
    x-radius y-radius thick))
 
 (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
                  prefix g)))
 
   (ly:format
    (if cid?
 "/~a /CIDFont findresource ~a output-scale div scalefont setfont
 ~a
 ~a print_glyphs"
@@ skipping 160 matching lines @@
      thickness
      (convert-path-exps exps)
      (if fill? "fill" ""))))
 
 (define (setscale x y)
   (ly:format "gsave ~4l scale\n"
               (list x y)))
 
 (define (resetscale)
   "grestore\n")