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

bitmap% convertible to 'png-bytes; more Scribble Latex; pict in Slideshow docs

Browse Source 
original commit: e97414b7bfc5182702c946dc7fcd024a19f7b191
This commit is contained in:
Matthew Flatt 2010-11-27 07:36:12 -07:00
parent 77e9dca243
commit 90ded4003f
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -253,6 +253,12 @@
=> (lambda (bstr)
(let ([fn (install-file "pict.pdf" bstr)])
(printf "\\includegraphics{~a}" fn)))]
[(and (convertible? e)
(not (disable-images))
(convert e 'png-bytes))
=> (lambda (bstr)
(let ([fn (install-file "pict.png" bstr)])
(printf "\\includegraphics{~a}" fn)))]
[else
(parameterize ([rendering-tt (or tt? (rendering-tt))])
(super render-content e part ri))]))]

4
collects/scribble/racket.rkt
View File

@ -1099,7 +1099,9 @@
(vector? v)
(and (struct? v)
(or (and qq
;; Watch out for partially transparent subtypes of `element':
;; Watch out for partially transparent subtypes of `element'
;; or convertible values:
(not (convertible? v))
(not (element? v)))
(prefab-struct-key v))))
(let ([orig-ht (unbox ht)]