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

fix Scribble Latex/PDF handling of images w/o bounding boxes

Browse Source
This commit is contained in:
Matthew Flatt 2011-03-15 07:20:36 -06:00
parent 2f907afde6
commit 3207efddb0
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -249,11 +249,12 @@
(image-element-scale e) fn))]
[(and (convertible? e)
(not (disable-images))
(let ([ftag (lambda (v suffix) (and v (list v suffix)))])
(let ([ftag (lambda (v suffix) (and v (list v suffix)))]
[xlist (lambda (v) (and v (list v #f #f #f #f)))])
(or (ftag (convert e 'pdf-bytes+bounds) ".pdf")
(ftag (list (convert e 'pdf-bytes) #f #f #f #f) ".pdf")
(ftag (list (convert e 'eps-bytes) #f #f #f #f) ".ps")
(ftag (list (convert e 'png-bytes) #f #f #f #f) ".png"))))
(ftag (xlist (convert e 'pdf-bytes)) ".pdf")
(ftag (xlist (convert e 'eps-bytes)) ".ps")
(ftag (xlist (convert e 'png-bytes)) ".png"))))
=> (lambda (bstr+info+suffix)
(let* ([bstr (list-ref (list-ref bstr+info+suffix 0) 0)]
[suffix (list-ref bstr+info+suffix 1)]