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

coerce picts to PS/PDF in 'smoothed mode

Browse Source
This commit is contained in:
Matthew Flatt 2012-03-24 10:55:44 -06:00
parent 4469b669fc
commit ed05c385e8
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -491,6 +491,7 @@
[width (* (pict-width p) (unbox xs))] [width (* (pict-width p) (unbox xs))]
[height (* (pict-height p) (unbox ys))] [height (* (pict-height p) (unbox ys))]
[output s])]) [output s])])
(send dc set-smoothing 'smoothed)
(send dc start-doc "pict") (send dc start-doc "pict")
(send dc start-page) (send dc start-page)
(draw-pict p dc 0 0) (draw-pict p dc 0 0)