From 544755315ca1bce5f43d29bf0844c8b0e6b0a686 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 25 Jan 2005 23:03:25 +0000 Subject: [PATCH] . original commit: 1f229ba7480238e9b7ac9545508bcd4eaa309ebe --- collects/mrlib/graph.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/mrlib/graph.ss b/collects/mrlib/graph.ss index 9bac69b4..20d4ab94 100644 --- a/collects/mrlib/graph.ss +++ b/collects/mrlib/graph.ss @@ -447,7 +447,7 @@ (update-polygon s4x s4y sx s4y) (let ([os (send dc get-smoothing)]) - ;(send dc set-smoothing 'aligned) + (send dc set-smoothing 'aligned) (cond [arrow-heads? (send dc draw-polygon points dx dy)] @@ -522,7 +522,7 @@ ;; the arrowhead is not overlapping the snips, so draw it ;; (this is only an approximate test, but probably good enough) (let ([os (send dc get-smoothing)]) - ;(send dc set-smoothing 'aligned) + (send dc set-smoothing 'aligned) (cond [arrow-heads? (send dc draw-polygon points dx dy)] @@ -538,7 +538,7 @@ [arrow-heads? (void)] [else (let ([os (send dc get-smoothing)]) - ;(send dc set-smoothing 'aligned) + (send dc set-smoothing 'aligned) (send dc draw-line (+ dx from-x) (+ dy from-y) (+ dx to-x) (+ dy to-y))