suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Scribble Latex image support (missed an earlier commit)

Browse Source
This commit is contained in:
Matthew Flatt 2010-11-28 07:46:23 -07:00
parent f88735ef20
commit cc82d37285
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/scribble/latex-render.rkt
View File

@ -249,15 +249,13 @@
(image-element-scale e) fn))] (image-element-scale e) fn))]
[(and (convertible? e) [(and (convertible? e)
(not (disable-images)) (not (disable-images))
(convert e 'pdf-bytes)) (let ([ftag (lambda (v suffix) (and v (list v suffix)))])
=> (lambda (bstr) (or (ftag (convert e 'pdf-bytes) ".pdf")
(let ([fn (install-file "pict.pdf" bstr)]) (ftag (convert e 'eps-bytes) ".ps")
(printf "\\includegraphics{~a}" fn)))] (ftag (convert e 'png-bytes) ".png"))))
[(and (convertible? e) => (lambda (bstr+suffix)
(not (disable-images)) (let ([fn (install-file (format "pict.~a" (cadr bstr+suffix))
(convert e 'png-bytes)) (car bstr+suffix))])
=> (lambda (bstr)
(let ([fn (install-file "pict.png" bstr)])
(printf "\\includegraphics{~a}" fn)))] (printf "\\includegraphics{~a}" fn)))]
[else [else
(parameterize ([rendering-tt (or tt? (rendering-tt))]) (parameterize ([rendering-tt (or tt? (rendering-tt))])