From 6e5cf70c95e5f45ad846e37d6ed4dbb837d7234d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 28 Mar 2012 06:41:00 -0600 Subject: [PATCH] draw picts in DrRacket with 'aligned smoothing --- collects/drracket/private/language.rkt | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/drracket/private/language.rkt b/collects/drracket/private/language.rkt index da4fd9a75f..bbbd7aca0f 100644 --- a/collects/drracket/private/language.rkt +++ b/collects/drracket/private/language.rkt @@ -476,6 +476,7 @@ (define a (dyn pict-ascent pict)) (define d (dyn pict-descent pict)) (define rdc (new record-dc%)) + (send rdc set-smoothing 'aligned) (dyn draw-pict pict rdc 0 0) (define recorded-datum (send rdc get-recorded-datum)) (new pict-snip:pict-snip% [w w] [h h] [d d] [a a] [recorded-datum recorded-datum]))