From 90ded4003f8dd7bba1e4e264d5823891f716c1a6 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 27 Nov 2010 07:36:12 -0700 Subject: [PATCH] bitmap% convertible to 'png-bytes; more Scribble Latex; pict in Slideshow docs original commit: e97414b7bfc5182702c946dc7fcd024a19f7b191 --- collects/scribble/latex-render.rkt | 6 ++++++ collects/scribble/racket.rkt | 4 +++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/collects/scribble/latex-render.rkt b/collects/scribble/latex-render.rkt index 459deac0..7fa0e56b 100644 --- a/collects/scribble/latex-render.rkt +++ b/collects/scribble/latex-render.rkt @@ -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))]))] diff --git a/collects/scribble/racket.rkt b/collects/scribble/racket.rkt index 06364208..a42247c8 100644 --- a/collects/scribble/racket.rkt +++ b/collects/scribble/racket.rkt @@ -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)]