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

Slideshow/Scribble: fix size of PDF generated for pict in a doc

Browse Source
This commit is contained in:
Matthew Flatt 2011-02-15 13:16:27 -07:00
parent 3358b40377
commit 21c6a9f5c8
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/texpict/private/mrpict-extra.rkt
View File

@ -457,12 +457,15 @@
(send bm save-file s 'png)
(get-output-bytes s)))]
[(eps-bytes pdf-bytes)
(let ([s (open-output-bytes)])
(let ([s (open-output-bytes)]
[xs (box 1)]
[ys (box 1)])
(send (current-ps-setup) get-scaling xs ys)
(let ([dc (new (if (eq? format 'eps-bytes) post-script-dc% pdf-dc%)
[interactive #f]
[as-eps #t]
[width (pict-width p)]
[height (pict-height p)]
[width (* (pict-width p) (unbox xs))]
[height (* (pict-height p) (unbox ys))]
[output s])])
(send dc start-doc "pict")
(send dc start-page)