OLD | NEW |
1 ;;;; backend-library.scm -- helpers for the backends. | 1 ;;;; backend-library.scm -- helpers for the backends. |
2 ;;;; | 2 ;;;; |
3 ;;;; source file of the GNU LilyPond music typesetter | 3 ;;;; source file of the GNU LilyPond music typesetter |
4 ;;;;· | 4 ;;;;· |
5 ;;;; (c) 2005--2009 Jan Nieuwenhuizen <janneke@gnu.org> | 5 ;;;; (c) 2005--2009 Jan Nieuwenhuizen <janneke@gnu.org> |
6 ;;;; Han-Wen Nienhuys <hanwen@xs4all.nl> | 6 ;;;; Han-Wen Nienhuys <hanwen@xs4all.nl> |
7 | 7 |
8 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;· | 8 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;· |
9 ;; backend helpers. | 9 ;; backend helpers. |
10 | 10 |
(...skipping 67 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
78 (let* ((pdf-name (string-append | 78 (let* ((pdf-name (string-append |
79 (dir-basename name ".ps" ".eps") | 79 (dir-basename name ".ps" ".eps") |
80 ".pdf")) | 80 ".pdf")) |
81 (is-eps (string-match "\\.eps$" name)) | 81 (is-eps (string-match "\\.eps$" name)) |
82 (paper-size-string (if is-eps | 82 (paper-size-string (if is-eps |
83 "-dEPSCrop" | 83 "-dEPSCrop" |
84 (ly:format "-dDEVICEWIDTHPOINTS=~$\ | 84 (ly:format "-dDEVICEWIDTHPOINTS=~$\ |
85 -dDEVICEHEIGHTPOINTS=~$" | 85 -dDEVICEHEIGHTPOINTS=~$" |
86 paper-width paper-height))) | 86 paper-width paper-height))) |
87 | 87 |
88 » (cmd (simple-format #f | 88 » (cmd (ly:format |
89 "~a\ | 89 "~a\ |
90 ~a\ | 90 ~a\ |
91 ~a\ | 91 ~a\ |
92 ~a\ | 92 ~a\ |
93 -dCompatibilityLevel=1.4\ | 93 -dCompatibilityLevel=1.4\ |
94 -dNOPAUSE\ | 94 -dNOPAUSE\ |
95 -dBATCH\ | 95 -dBATCH\ |
96 -r1200\ | 96 -r1200\ |
97 -sDEVICE=pdfwrite\ | 97 -sDEVICE=pdfwrite\ |
98 -sOutputFile=~S\ | 98 -sOutputFile=~S\ |
(...skipping 107 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
206 (missing-stencil-expression x))) | 206 (missing-stencil-expression x))) |
207 (set! missing-stencil-list (append (list x) | 207 (set! missing-stencil-list (append (list x) |
208 missing-stencil-list))))) | 208 missing-stencil-list))))) |
209 (ly:all-stencil-commands))) | 209 (ly:all-stencil-commands))) |
210 | 210 |
211 (define-public (remove-stencil-warnings output-module) | 211 (define-public (remove-stencil-warnings output-module) |
212 (for-each | 212 (for-each |
213 (lambda (x) | 213 (lambda (x) |
214 (module-remove! output-module x)) | 214 (module-remove! output-module x)) |
215 missing-stencil-list)) | 215 missing-stencil-list)) |
OLD | NEW |