suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

adjust inline-PDF descent to account for rounding

Browse Source 
of the PDF bounding box

original commit: a20a77508fe8bba052b15574b9601ef6a204f7f7
This commit is contained in:
Matthew Flatt 2011-03-27 16:09:38 -06:00
parent df42879d73
commit 32be99330c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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)