bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 32be99330cc744e7ccd3773f66a7a086cb1f6c2f
parent df42879d73d9baf6b409dfe34d001485b1c0c3e5
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sun, 27 Mar 2011 16:09:38 -0600

adjust inline-PDF descent to account for rounding
 of the PDF bounding box

original commit: a20a77508fe8bba052b15574b9601ef6a204f7f7

Diffstat:
M
collects/scribble/latex-render.rkt
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/collects/scribble/latex-render.rkt b/collects/scribble/latex-render.rkt
@@ -258,7 +258,9 @@
                                   => (lambda (bstr+info+suffix)
                                        (let* ([bstr (list-ref (list-ref bstr+info+suffix 0) 0)]
                                               [suffix (list-ref bstr+info+suffix 1)]
-                                              [descent (list-ref (list-ref bstr+info+suffix 0) 3)]
+                                              [height (list-ref (list-ref bstr+info+suffix 0) 2)]
+                                              [descent (+ (list-ref (list-ref bstr+info+suffix 0) 3)
+                                                          (- (ceiling height) height))]
                                               [fn (install-file (format "pict~a" suffix) bstr)])
                                          (if descent
                                              (printf "\\raisebox{-~apx}{\\includegraphics{~a}}" descent fn)