(ly:output-def-lookup paper 'output-scale))
(ly:bp 1)))
(landscape? (eq? (ly:output-def-lookup paper 'landscape) #t)))
- (format "%%DocumentMedia: ~a ~a ~a ~a ~a ~a\n"
- (ly:output-def-lookup paper 'papersizename)
- (round2 (if landscape? h w))
- (round2 (if landscape? w h))
- 80 ;; weight
- "()" ;; color
- "()" ;; type
+ (ly:format "%%DocumentMedia: ~a ~2f ~2f ~a ~a ~a\n"
+ (ly:output-def-lookup paper 'papersizename)
+ (if landscape? h w)
+ (if landscape? w h)
+ 80 ;; weight
+ "()" ;; color
+ "()" ;; type
)))
(display (procset "music-drawing-routines.ps") port)
(display (procset "lilyponddefs.ps") port)
- (if (not (ly:get-option 'point-and-click))
- (display "/mark_URI { pop pop pop pop pop } bind def\n" port))
-
(display "%%EndProlog\n" port)
(display "%%BeginSetup\ninit-lilypond-parameters\n%%EndSetup\n\n" port))
;; content-mangling is always bad.
;; MINGW hack: need to have "b"inary for embedding CFFs
(open-file filename "wb")
- "ps"))
+ 'ps))
(paper (ly:paper-book-paper book))
(systems (ly:paper-book-systems book))
(page-stencils (map page-stencil (ly:paper-book-pages book)))
;; content-mangling is always bad.
;; MINGW hack: need to have "b"inary for embedding CFFs
(open-file (format "~a.eps" filename) "wb")
- "ps"))
+ 'ps))
(port (ly:outputter-port outputter))
(rounded-bbox (to-bp-box bbox))
))
-(define (clip-system-EPSes basename paper-book)
+(define-public (clip-system-EPSes basename paper-book)
(define do-pdf (member "pdf" (ly:output-formats)))
(define (clip-score-systems basename systems)