X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fframework-tex.scm;h=c119578c520303cde030401ffe444d34e7e830dd;hb=fa9f7fa41cb803a0b5df62640ddd51238f581270;hp=24cffa36f804922fe268743087b087c0b9be6d44;hpb=304a884cb1a5679650edbb0c908c3fd029e55851;p=lilypond.git diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm index 24cffa36f8..c119578c52 100644 --- a/scm/framework-tex.scm +++ b/scm/framework-tex.scm @@ -5,9 +5,8 @@ ;;;; (c) 2004 Han-Wen Nienhuys (define-module (scm framework-tex) - #:export (output-framework-tex - output-classic-framework-tex -)) + #:export (output-framework-tex + output-classic-framework-tex)) (use-modules (ice-9 regex) (ice-9 string-fun) @@ -23,11 +22,11 @@ ;; \lyitem{089.5557}{-15.3109}{\hbox{\magfontUGQLomTVo{}bla$\backslash${$\backslash$}}}% ;; --jcn (define-public (sanitize-tex-string s) - (if (ly:get-option 'safe) - (regexp-substitute/global #f "\\\\" - (regexp-substitute/global #f "([{}])" "bla{}" 'pre "\\" 1 'post ) - 'pre "$\\backslash$" 'post) - + (if (ly:get-option 'safe) + (regexp-substitute/global + #f "\\\\" + (regexp-substitute/global #f "([{}])" "bla{}" 'pre "\\" 1 'post ) + 'pre "$\\backslash$" 'post) s)) (define (symbol->tex-key sym) @@ -50,7 +49,6 @@ (define (font-load-command paper font) (let* ((coding-alist (ly:font-encoding-alist font)) (font-encoding (assoc-get 'output-name coding-alist))) - (string-append "\\font\\lilypond" (tex-font-command font) "=" (ly:font-filename font) @@ -66,13 +64,11 @@ " \\lilypondfontencoding{T1}" " ") "\\lilypond" (tex-font-command font) - "}%\n" - ))) - + "}%\n"))) (define (define-fonts paper) (string-append - ;; UGH. FIXME. + ;; UGH. FIXME. "\\def\\lilypondpaperunit{mm}%\n" (tex-number-def "lilypondpaper" 'outputscale (number->string (exact->inexact @@ -102,15 +98,13 @@ (newline (current-error-port)) "") -(define (output-scopes scopes fields basename) +(define (output-scopes scopes fields basename) (define (output-scope scope) (apply string-append (module-map (lambda (sym var) - (let ((val (if (variable-bound? var) (variable-ref var) "")) - ) - + (let ((val (if (variable-bound? var) (variable-ref var) ""))) (if (and (memq sym fields) (string? val)) (header-to-file basename sym val)) "")) @@ -129,7 +123,6 @@ (ly:output-def-lookup paper 'papersizename) "paper")) (landscape? (eq? #t (ly:output-def-lookup paper 'landscape)))) - (string-append "% Generated by LilyPond " (lilypond-version) "\n" @@ -147,8 +140,8 @@ (ly:number->string (* scale (ly:output-def-lookup paper 'linewidth)))) "\\def\\lilyponddocumentclassoptions{" texpaper - (if landscape? ",landscape" "") - "}%\n" + (if landscape? ",landscape" "") + "}%\n" (tex-string-def "lilypondpaper" 'interscoreline (ly:number->string @@ -172,25 +165,26 @@ (define (dump-page putter page last? with-extents?) (ly:outputter-dump-string putter - (format "\\vbox to ~a\\outputscale{%\n\\leavevmode\n\\lybox{0}{0}{0}{0}{%\n" + (format "\\lybox{~a}{~a}{%\n" + (if with-extents? + (interval-start (ly:stencil-extent page X)) + 0.0) (if with-extents? (- (interval-start (ly:stencil-extent page Y))) - 0.0 - ))) + 0.0))) (ly:outputter-dump-stencil putter page) (ly:outputter-dump-string putter (if last? - "}\\vss\n}\n\\vfill\n" - "}\\vss\n}\n\\vfill\\lilypondpagebreak\n"))) + "}%\n\\vfill\n" + "}%\n\\vfill\n\\lilypondpagebreak\n"))) (define-public (output-framework outputter book scopes fields basename ) (let* ((paper (ly:paper-book-paper book)) (pages (ly:paper-book-pages book)) (last-page (car (last-pair pages))) (with-extents - (eq? #t (ly:output-def-lookup paper 'dump-extents))) - ) + (eq? #t (ly:output-def-lookup paper 'dump-extents)))) (for-each (lambda (x) (ly:outputter-dump-string outputter x)) @@ -198,17 +192,22 @@ (header paper (length pages) #f) (define-fonts paper) (header-end))) - (ly:outputter-dump-string outputter "\\lilypondnopagebreak") + (ly:outputter-dump-string outputter "\\lilypondnopagebreak\n") (for-each - (lambda (page) (dump-page outputter page (eq? last-page page) with-extents)) + (lambda (page) + (dump-page outputter page (eq? last-page page) with-extents)) pages) (ly:outputter-dump-string outputter "\\lilypondend\n"))) (define (dump-line putter line last?) (ly:outputter-dump-string putter - (string-append "\\leavevmode\n\\lybox{0}{0}{0}{" - (ly:number->string (interval-length (ly:paper-system-extent line Y))) + (string-append "\\lybox{" + (ly:number->string + (interval-length (ly:paper-system-extent line X))) + "}{" + (ly:number->string + (interval-length (ly:paper-system-extent line Y))) "}{%\n")) (ly:outputter-dump-stencil putter (ly:paper-system-stencil line)) @@ -238,7 +237,6 @@ (lambda (line) (dump-line outputter line (eq? line last-line))) lines) (ly:outputter-dump-string outputter "\\lilypondend\n"))) - (define-public (output-preview-framework outputter book scopes fields basename ) (let* ((paper (ly:paper-book-paper book)) @@ -257,18 +255,17 @@ (dump-line outputter (car lines) #t) (ly:outputter-dump-string outputter "\\lilypondend\n"))) - (define-public (convert-to-pdf book name) (let* ((defs (ly:paper-book-paper book)) (papersizename (ly:output-def-lookup defs 'papersizename))) - (postscript->pdf (if (string? papersizename) papersizename "a4") - (string-append (basename name ".tex") ".ps")))) + (string-append + (basename name ".tex") + ".ps")))) (define-public (convert-to-png book name) (let* ((defs (ly:paper-book-paper book)) (resolution (ly:output-def-lookup defs 'pngresolution))) - (postscript->png (if (number? resolution) resolution 90) (string-append (basename name ".tex") ".ps")))) @@ -279,27 +276,26 @@ (papersizename (ly:output-def-lookup paper 'papersizename)) (landscape? (eq? #t (ly:output-def-lookup paper 'landscape))) (cmd (string-append "dvips " - (if preview? " -E " (string-append " -t " papersizename)) - - (if landscape? " -t landscape " " ") + (if landscape? + " -t landscape " + " ") " -u+ec-mftrace.map -u+lilypond.map -Ppdf " (basename name ".tex")))) - (display (format #f (_ "Invoking ~S") cmd) (current-error-port)) (newline (current-error-port)) (system cmd))) (define-public (convert-to-dvi book name) - (let* ((curr-extra-mem (string->number - (regexp-substitute/global - #f " *%.*\n?" - (ly:kpathsea-expand-variable "$extra_mem_top") - 'pre "" 'post))) - (cmd (string-append "latex \\\\nonstopmode \\\\input " name))) - + (let* ((curr-extra-mem + (string->number + (regexp-substitute/global + #f " *%.*\n?" + (ly:kpathsea-expand-variable "$extra_mem_top") + 'pre "" 'post))) + (cmd (string-append "latex \\\\nonstopmode \\\\input " name))) (setenv "extra_mem_top" (number->string (max curr-extra-mem 1024000))) (newline (current-error-port)) (display (format #f (_ "Invoking ~S") cmd) (current-error-port)) @@ -308,9 +304,8 @@ ;; fixme: set in environment? (if (ly:get-option 'safe) (set! cmd (string-append "openout_any=p " cmd))) - + (system cmd))) (define-public (convert-to-tex book name) #t) -