fix thinko in polygonEdge() ?

git-svn-id: https://svn.r-project.org/R/trunk@74679 00db46b3-68df-0310-9c12-caf00c1e9a41
wch · May 2, 2018 · 9d4a378 · 9d4a378
1 parent e0b8474
commit 9d4a378
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/library/grid/src/grid.c b/src/library/grid/src/grid.c
@@ -1582,10 +1582,10 @@ static void polygonEdge(double *x, double *y, int n,
 	 * so check is more complicated
 	 */
 	if ((vangle1 >= vangle2 && 
-	     vangle1 >= angle && vangle2 < angle) || 
+	     vangle1 >= angle && vangle2 <= angle) || 
 	    (vangle1 < vangle2 && 
 	     ((vangle1 >= angle && 0 <= angle) ||
-	      (vangle2 < angle && 2*M_PI >= angle)))) {
+	      (vangle2 <= angle && 2*M_PI >= angle)))) {
 	    found = 1;
 	    break;
 	}