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

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

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