From 8b421478714716ab94726c753fbd9355c7d3f50e Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 22 Feb 2006 00:34:29 +0000 Subject: [PATCH] added smoothing to image.ss svn: r2297 --- collects/mrlib/cache-image-snip.ss | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/mrlib/cache-image-snip.ss b/collects/mrlib/cache-image-snip.ss index e3ea6b72e6..8197795080 100644 --- 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)