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

scribble: fix PDF rendering for image without bounding-box info

Browse Source 
Merge to v6.1

original commit: 09b4445c7a28b1d8fc3feb2d4ab7a64e9a991a8a
This commit is contained in:
Matthew Flatt 2014-07-18 06:59:20 +01:00
parent 1558ad5532
commit ee3af7611f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/scribble-pkgs/scribble-lib/scribble/latex-render.rkt
View File

@ -399,7 +399,8 @@
(- (+ (list-ref (list-ref bstr+info+suffix 0) 3) (- (+ (list-ref (list-ref bstr+info+suffix 0) 3)
(- (ceiling height) height)) (- (ceiling height) height))
pad-bottom))] pad-bottom))]
[width (- (list-ref (list-ref bstr+info+suffix 0) 1) pad-left pad-right)] [width (let ([w (list-ref (list-ref bstr+info+suffix 0) 1)])
(and w (- w pad-left pad-right)))]
[fn (install-file (format "pict~a" suffix) bstr)]) [fn (install-file (format "pict~a" suffix) bstr)])
(if descent (if descent
(printf "\\raisebox{-~abp}{\\makebox[~abp][l]{\\includegraphics[~atrim=~a ~a ~a ~a]{~a}}}" (printf "\\raisebox{-~abp}{\\makebox[~abp][l]{\\includegraphics[~atrim=~a ~a ~a ~a]{~a}}}"