Enable smoothing for svgs

2013-10-16 18:26:09 +02:00 · 2013-10-16 18:26:09 +02:00 · 97165df3b4
commit 97165df3b4
parent 5e29f6fbfa
1 changed files with 1 additions and 0 deletions
--- a/pkgs/pict-pkgs/pict-lib/texpict/private/mrpict-extra.rkt
+++ b/pkgs/pict-pkgs/pict-lib/texpict/private/mrpict-extra.rkt
@ -588,6 +588,7 @@
                             [width  (pict-width p)]
                             [height (pict-height p)]
                             [output s]))
+             (send dc set-smoothing 'smoothed)
             (send dc start-doc "Generating svg")
             (send dc start-page)
             (draw-pict p dc 0 0)