The R Project SVN – R – Diff – /trunk/src/gnuwin32/graphapp/gdraw.c

 	else
 	    gpen = ExtCreatePen(PS_GEOMETRIC|PS_SOLID|lend|ljoin,
 				width, &lb, 0, NULL);
 	SelectObject(dc, gpen);
 	SetROP2(dc, R2_COPYPEN);
+	npieces = 0;
 	BeginPath(dc);
         MoveToEx(dc, p[0].x, p[0].y, NULL);
-        for (i = 1; i < n ; i++)
+        for (i = 1; i < n ; i++) {
-	      LineTo(dc, p[i].x, p[i].y);
+	    LineTo(dc, p[i].x, p[i].y);
+	    npieces++;
+	    if(npieces > 1000) {
+		EndPath(dc);
+		StrokePath(dc);
+		npieces = 0;
+		BeginPath(dc);
+	    }
+	}
         if (closepath) LineTo(dc, p[0].x, p[0].y);
 	EndPath(dc);
 	StrokePath(dc);
 	SelectObject(dc, GetStockObject(NULL_PEN));
 	DeleteObject(gpen);
 	      tmp = tmpx*tmpx + tmpy*tmpy;
 	      a.len2 = a.len2 + tmp - 2*sqrt((double)(tmp*a.len2));
 	      a.curx = p[i].x;
 	      a.cury = p[i].y;
+	  }
+	  npieces++;
-	  if(npieces > 5000) {
+	  if(npieces > 1000) {
 	      EndPath(dc);
 	      StrokePath(dc);
 	      npieces = 0;
 	      BeginPath(dc);
+	  }

The R Project SVN R