The R Project SVN R

Rev

Rev 52280 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 52280 Rev 52406
Line 1348... Line 1348...
1348 
	}
 1348 
	}
1349 
    }
 1349 
    }
1350 
}
 1350 
}
1351 
 
 1351 
 
1352 
/****************************************************************
 1352 
/****************************************************************
- 
 
 1353 
 * GEPath
- 
 
 1354 
 ****************************************************************
- 
 
 1355 
 */
- 
 
 1356 
 
- 
 
 1357 
void GEPath(double *x, double *y,
- 
 
 1358 
            int npoly, int *nper,
- 
 
 1359 
            Rboolean winding,
- 
 
 1360 
            const pGEcontext gc, pGEDevDesc dd)
- 
 
 1361 
{
- 
 
 1362 
    /* FIXME: what about clipping? (if the device can't)
- 
 
 1363 
    */
- 
 
 1364 
    if (gc->lty == LTY_BLANK)
- 
 
 1365 
	gc->col = R_TRANWHITE;
- 
 
 1366 
    if (npoly > 0) {
- 
 
 1367 
        int i;
- 
 
 1368 
        int draw = 1;
- 
 
 1369 
        for (i=0; i < npoly; i++) {
- 
 
 1370 
            if (nper[i] < 2) {
- 
 
 1371 
                draw = 0;
- 
 
 1372 
            }
- 
 
 1373 
        }
- 
 
 1374 
        if (draw) {
- 
 
 1375 
            dd->dev->path(x, y, npoly, nper, winding, gc, dd->dev);
- 
 
 1376 
        } else {
- 
 
 1377 
	    error(_("Invalid graphics path"));
- 
 
 1378 
        }
- 
 
 1379 
    }
- 
 
 1380 
}
- 
 
 1381 
 
- 
 
 1382 
/****************************************************************
1353 
 * GERaster
 1383 
 * GERaster
1354 
 ****************************************************************
 1384 
 ****************************************************************
1355 
 */
 1385 
 */
1356 
 
 1386 
 
1357 
void GERaster(unsigned int *raster, int w, int h,
 1387 
void GERaster(unsigned int *raster, int w, int h,