;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 2004--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
(define-module (scm framework-ps))
(scm clip-region)
(lily))
-(define (format dest . rest)
- (if (string? dest)
- (apply simple-format (cons #f (cons dest rest)))
- (apply simple-format (cons dest rest))))
+(define format ergonomic-simple-format)
(define framework-ps-module (current-module))
(define (write-preamble paper load-fonts? port)
-
- (define (load-font-via-GS font-name-filename)
- (define (ps-load-file name)
- (format
- (if (string? name)
- "(~a) (r) file .loadfont\n"
- "% cannot find font file: ~a\n")
- name))
+ (define (internal-font? file-name)
+ (or (string-startswith file-name "Emmentaler")
+ (string-startswith file-name "emmentaler")
+ (string-startswith file-name "aybabtu")
+ (string-startswith file-name "Aybabtu")))
+ (define (load-font-via-GS font-name-filename)
+ (define (ps-load-file file-name)
+ (if (string? file-name)
+ (if (string-contains file-name (ly:get-option 'datadir))
+ (begin
+ (set! file-name (ly:string-substitute (ly:get-option 'datadir) "" file-name))
+ (format "lilypond-datadir (~a) concatstrings (r) file .loadfont" file-name))
+
+ (format "(~a) (r) file .loadfont\n" file-name))
+ (format "% cannot find font file: ~a\n" file-name)))
(let* ((font (car font-name-filename))
(name (cadr font-name-filename))
(if (mac-font? bare-file-name)
(handle-mac-font name bare-file-name)
(cond
- ((or (string-startswith file-name "Emmentaler")
- (string-startswith file-name "emmentaler")
- (string-startswith file-name "aybabtu")
- (string-startswith file-name "Aybabtu"))
+ ((internal-font? file-name)
(ps-load-file (ly:find-file
(format "~a.otf" file-name))))
((string? bare-file-name)
(define (load-fonts paper)
(let* ((fonts (ly:paper-fonts paper))
+
+ ;; todo - doc format of list.
(all-font-names
(map
(lambda (font)
(sort (apply append all-font-names)
(lambda (x y) (string<? (cadr x) (cadr y))))))
- (font-loader (if (ly:get-option 'gs-load-fonts)
- load-font-via-GS
- load-font))
+ ;; slightly spaghetti-ish: deciding what to load where
+ ;; is smeared out.
+ (font-loader (lambda (name)
+ (cond
+ ((ly:get-option 'gs-load-fonts)
+ (load-font-via-GS name))
+ ((ly:get-option 'gs-load-lily-fonts)
+ (if (or
+ (string-contains (caddr name) (ly:get-option 'datadir))
+ (internal-font? (caddr name)))
+
+ (load-font-via-GS name)
+ (load-font name)))
+ (else (load-font name)))))
(pfas (map font-loader font-names)))
pfas))
(display "%%BeginProlog\n" port)
+
+ (format port
+ "/lilypond-datadir where {pop} {userdict /lilypond-datadir (~a) put } ifelse"
+ (ly:get-option 'datadir))
+
(if load-fonts?
(for-each
(lambda (f)
(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))
(ly:error (_ "\nThe PostScript backend does not support the system-by-system
output. For that, use the EPS backend instead,
- lilypond -b eps <file>
+ lilypond -dbackend=eps FILE
If have cut & pasted a lilypond fragment from a webpage, be sure
to only remove anything before
%% ****************************************************************
%% Start cut-&-pastable-section
%% ****************************************************************
-
")))