From 93a13222dc02fecd371e8269e3919f3f0f4f3ff7 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 20 Nov 2008 13:48:48 +0000
Subject: [PATCH] Mac: change draw-point to use Quartz in smoothed mode

svn: r12538
---
 src/wxmac/src/mac/wx_dccan2.cc | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/src/wxmac/src/mac/wx_dccan2.cc b/src/wxmac/src/mac/wx_dccan2.cc
index cd46d06c0b..a64e91ef88 100644
--- a/src/wxmac/src/mac/wx_dccan2.cc
+++ b/src/wxmac/src/mac/wx_dccan2.cc
@@ -533,6 +533,32 @@ void wxCanvasDC::DrawPoint(double x, double y)
   if (!current_pen || current_pen->GetStyle() == wxTRANSPARENT)
     return;
 
+  if (anti_alias) {
+    double xx, yy;
+    CGContextRef cg;
+
+    SetCurrentDC(TRUE);
+    cg = GetCG();
+
+    CGContextSaveGState(cg);
+
+    xx = SmoothingXFormX(x);
+    yy = SmoothingXFormY(y);
+
+    CGContextMoveToPoint(cg, xx, yy);
+    CGContextAddLineToPoint(cg, xx, yy);
+    
+    wxMacSetCurrentTool(kPenTool);
+    CGContextStrokePath(cg);
+    wxMacSetCurrentTool(kNoTool);
+
+    CGContextRestoreGState(cg);
+
+    ReleaseCurrentDC();
+
+    return;
+  }
+
   SetCurrentDC();
   wxMacSetCurrentTool(kPenTool);
   wxMacDrawPoint(XLOG2DEV(x), YLOG2DEV(y));