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

racket/draw: fix bounding box in post-script-dc% EPS output

Browse Source 
Write the requested size instead of the actual bounding box
of the drawn image.
This commit is contained in:
Matthew Flatt 2014-06-27 11:05:28 +01:00
parent 6af3e1568e
commit 970b040d17
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/draw-pkgs/draw-lib/racket/draw/private/post-script-dc.rkt
View File

@ -123,7 +123,12 @@
(unless pdf? (unless pdf?
(when (and s as-eps) (when (and s as-eps)
(cairo_ps_surface_set_eps s #t)) (cairo_ps_surface_set_eps s #t)
;; Cairo writes a %%BoundingBox that covers only the drawn points,
;; which arguably matches the EPS spec, but that isn't what we want.
;; Fortunately, Cairo will suppress its own %%BoundingBox if we
;; write one:
(cairo_ps_surface_dsc_comment s (format "%%BoundingBox: ~a ~a ~a ~a" 0 0 width height)))
(when (and s landscape?) (when (and s landscape?)
(cairo_ps_surface_dsc_comment s "%%Orientation: Landscape"))) (cairo_ps_surface_dsc_comment s "%%Orientation: Landscape")))