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

support eps-bytes+bounds for picts

Browse Source
This commit is contained in:
Robby Findler 2014-06-27 03:24:48 -05:00
parent 0179c9a9a5
commit 6dc0c40e24
1 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
pkgs/pict-pkgs/pict-lib/texpict/private/mrpict-extra.rkt
View File

@ -540,16 +540,22 @@
(define (convert-pict p format default)
(if (eq? format 'pdf-bytes+bounds)
(let ([xscale (box 1.0)]
[yscale (box 1.0)])
(cond
[(member format '(pdf-bytes+bounds eps-bytes+bounds))
(define xscale (box 1.0))
(define yscale (box 1.0))
(send (current-ps-setup) get-scaling xscale yscale)
(list (convert-pict/bytes p 'pdf-bytes default)
(list (convert-pict/bytes p
(if (equal? format 'pdf-bytes+bounds)
'pdf-bytes
'eps-bytes)
default)
(* (unbox xscale) (pict-width p))
(* (unbox yscale) (pict-height p))
(* (unbox yscale) (pict-descent p))
0))
(convert-pict/bytes p format default)))
0)]
[else
(convert-pict/bytes p format default)]))
(define (convert-pict/bytes p format default)
(case format
@ -570,7 +576,7 @@
[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%)
(let ([dc (new (if (equal? format 'eps-bytes) post-script-dc% pdf-dc%)
[interactive #f]
[as-eps #t]
[width (* (pict-width p) (unbox xs))]