added smoothing to image.ss

svn: r2297
2006-02-22 00:34:29 +00:00 · 2006-02-22 00:34:29 +00:00 · 8b42147871
commit 8b42147871
parent 565cd73b28
1 changed files with 5 additions and 1 deletions
--- a/collects/mrlib/cache-image-snip.ss
+++ b/collects/mrlib/cache-image-snip.ss
@ -111,7 +111,11 @@
                  (send dc draw-bitmap bitmap x y 'solid 
                        (send the-color-database find-color "black")
                        (send bitmap get-loaded-mask)))]
-          [dc-proc (dc-proc dc x y)]
+          [dc-proc 
+           (let ([smoothing (send dc get-smoothing)])
+             (send dc set-smoothing 'aligned)
+             (dc-proc dc x y)
+             (send dc set-smoothing smoothing))]
          [else (void)]))
      
      (define/override (write f)