LEFT | RIGHT |
1 ;;;; This file is part of LilyPond, the GNU music typesetter. | 1 ;;;; This file is part of LilyPond, the GNU music typesetter. |
2 ;;;; | 2 ;;;; |
3 ;;;; Copyright (C) 2004--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> | 3 ;;;; Copyright (C) 2004--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> |
4 ;;;; | 4 ;;;; |
5 ;;;; LilyPond is free software: you can redistribute it and/or modify | 5 ;;;; LilyPond is free software: you can redistribute it and/or modify |
6 ;;;; it under the terms of the GNU General Public License as published by | 6 ;;;; it under the terms of the GNU General Public License as published by |
7 ;;;; the Free Software Foundation, either version 3 of the License, or | 7 ;;;; the Free Software Foundation, either version 3 of the License, or |
8 ;;;; (at your option) any later version. | 8 ;;;; (at your option) any later version. |
9 ;;;; | 9 ;;;; |
10 ;;;; LilyPond is distributed in the hope that it will be useful, | 10 ;;;; LilyPond is distributed in the hope that it will be useful, |
(...skipping 524 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
535 (if (ly:get-option 'gs-never-embed-fonts) | 535 (if (ly:get-option 'gs-never-embed-fonts) |
536 (begin | 536 (begin |
537 (display "\nsystemdict /DEVICE known\n" port) | 537 (display "\nsystemdict /DEVICE known\n" port) |
538 (display " { systemdict /DEVICE get (pdfwrite) eq {\n" port) | 538 (display " { systemdict /DEVICE get (pdfwrite) eq {\n" port) |
539 (display ".setpdfwrite << /NeverEmbed [" port) | 539 (display ".setpdfwrite << /NeverEmbed [" port) |
540 (display (string-concatenate | 540 (display (string-concatenate |
541 (map (lambda (f) (string-append " /" f)) | 541 (map (lambda (f) (string-append " /" f)) |
542 never-embed-font-list)) port) | 542 never-embed-font-list)) port) |
543 (display " ] >> setdistillerparams\n" port) | 543 (display " ] >> setdistillerparams\n" port) |
544 (display " } if } if\n" port))) | 544 (display " } if } if\n" port))) |
545 (if (ly:get-option 'music-font-encodings) | 545 (if (ly:get-option 'use-cid-fonts) |
546 (display (procset "encodingdefs.ps") port)) | 546 (display (procset "encodingdefs.ps") port)) |
547 (display (setup-variables paper) port) | 547 (display (setup-variables paper) port) |
548 | 548 |
549 ;; adobe note 5002: should initialize variables before loading routines. | 549 ;; adobe note 5002: should initialize variables before loading routines. |
550 (display (procset "music-drawing-routines.ps") port) | 550 (if (ly:get-option 'gs-load-fonts) |
551 (display (procset "lilyponddefs.ps") port) | 551 (display (string-concatenate '( |
| 552 "lilypond-datadir (/ps/music-drawing-routines.ps) " |
| 553 "concatstrings (r) file run\n" |
| 554 "lilypond-datadir (/ps/lilyponddefs.ps) " |
| 555 "concatstrings (r) file run\n")) port) |
| 556 (begin |
| 557 (display (procset "music-drawing-routines.ps") port) |
| 558 (display (procset "lilyponddefs.ps") port))) |
552 (display "%%EndProlog\n" port) | 559 (display "%%EndProlog\n" port) |
553 (display "%%BeginSetup\ninit-lilypond-parameters\n%%EndSetup\n\n" port)) | 560 (display "%%BeginSetup\ninit-lilypond-parameters\n%%EndSetup\n\n" port)) |
554 | 561 |
555 (define (ps-quote str) | 562 (define (ps-quote str) |
556 (fold | 563 (fold |
557 (lambda (replacement-list result) | 564 (lambda (replacement-list result) |
558 (string-join | 565 (string-join |
559 (string-split | 566 (string-split |
560 result | 567 result |
561 (car replacement-list)) | 568 (car replacement-list)) |
(...skipping 324 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
886 | 893 |
887 lilypond -dbackend=eps FILE | 894 lilypond -dbackend=eps FILE |
888 | 895 |
889 If you have cut & pasted a lilypond fragment from a webpage, be sure | 896 If you have cut & pasted a lilypond fragment from a webpage, be sure |
890 to only remove anything before | 897 to only remove anything before |
891 | 898 |
892 %% **************************************************************** | 899 %% **************************************************************** |
893 %% Start cut-&-pastable-section | 900 %% Start cut-&-pastable-section |
894 %% **************************************************************** | 901 %% **************************************************************** |
895 "))) | 902 "))) |
LEFT | RIGHT |