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

Scribble: fix Latex-renderer bug introduced by 67b7c8f3f4e54

Browse Source 
original commit: ba70e05ae24728a30e85618657b52c8da8d08b4a
This commit is contained in:
Matthew Flatt 2011-03-29 08:31:10 -06:00
parent 32be99330c
commit 1f7cb9b151
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -259,8 +259,9 @@
(let* ([bstr (list-ref (list-ref bstr+info+suffix 0) 0)] (let* ([bstr (list-ref (list-ref bstr+info+suffix 0) 0)]
[suffix (list-ref bstr+info+suffix 1)] [suffix (list-ref bstr+info+suffix 1)]
[height (list-ref (list-ref bstr+info+suffix 0) 2)] [height (list-ref (list-ref bstr+info+suffix 0) 2)]
[descent (+ (list-ref (list-ref bstr+info+suffix 0) 3) [descent (and height
(- (ceiling height) height))] (+ (list-ref (list-ref bstr+info+suffix 0) 3)
(- (ceiling height) height)))]
[fn (install-file (format "pict~a" suffix) bstr)]) [fn (install-file (format "pict~a" suffix) bstr)])
(if descent (if descent
(printf "\\raisebox{-~apx}{\\includegraphics{~a}}" descent fn) (printf "\\raisebox{-~apx}{\\includegraphics{~a}}" descent fn)