- (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"
-
- "/~a ~a output-scale div selectfont
-~a
-~a print_glyphs")
- postscript-font-name
- size
- (string-join (map (lambda (x) (apply glyph-spec x))
- (reverse w-x-y-named-glyphs)) "\n")
- (length w-x-y-named-glyphs)))
-
+ (ly:format "~4f ~4f ~4f ~a~a" w x y prefix g)))
+ (define (emglyph-spec w h x y g) ; h not used
+ (if (and (= x 0) (= y 0))
+ (ly:format "currentpoint ~a moveto ~4f 0 rmoveto" g w)
+ (ly:format "currentpoint ~4f ~4f rmoveto ~a moveto ~4f 0 rmoveto" x y g w)))
+ (if cid?
+ (ly:format
+ "/~a /CIDFont findresource ~a output-scale div scalefont setfont\n~a\n~a print_glyphs"
+ postscript-font-name size
+ (string-join (map (lambda (x) (apply glyph-spec x))
+ (reverse w-x-y-named-glyphs)) "\n")
+ (length w-x-y-named-glyphs))
+ (if (and (ly:bigpdfs) (string-startswith postscript-font-name "Emmentaler"))
+ (ly:format "/~a-O ~a output-scale div selectfont\n~a"
+ postscript-font-name size
+ (string-join (map (lambda (x) (apply emglyph-spec x))
+ w-x-y-named-glyphs) "\n"))
+ (ly:format "/~a ~a output-scale div selectfont\n~a\n~a print_glyphs"
+ postscript-font-name size
+ (string-join (map (lambda (x) (apply glyph-spec x))
+ (reverse w-x-y-named-glyphs)) "\n")
+ (length w-x-y-named-glyphs)))))