The R Project SVN – R – Diff – /branches/djm-source/src/main/plot.c



 */
    SEXP sxy, sx, sy, pch, cex, col, bg, lty, lwd;
    double *x, *y, xold, yold, xx, yy, thiscex, thislwd;
    int i, n, npch, ncex, ncol, nbg, /*nlty,*/ nlwd,
	type=0, start=0, thispch, thiscol;
    void *vmax = NULL /* -Wall */;
 
    SEXP originalArgs = args;
    DevDesc *dd = CurrentDevice();
 
    /* Basic Checks */

SEXP attribute_hidden do_dendwindow(SEXP call, SEXP op, SEXP args, SEXP env)
{
    int i, imax, n;
    double pin, *ll, tmp, yval, *y, ymin, ymax, yrange, m;
    SEXP originalArgs, merge, height, llabels, str;
    void *vmax;
    DevDesc *dd;
 
    dd = CurrentDevice();
    GCheckState(dd);
    originalArgs = args;

    SEXP x, y, p, fg, bg;
    int i, j, nr, nc, nbg, nfg, type;
    double pmax, pmin, inches, rx, ry;
    double xx, yy, p0, p1, p2, p3, p4;
    double *pp, *xp, *yp;
    void *vmax;
 
    SEXP originalArgs = args;
    DevDesc *dd = CurrentDevice();
    GCheckState(dd);
 

    int ncol, nborder;
    double *x, *y;
    Rboolean open, repEnds, draw;
    double *xx;
    double *yy;
    void *vmaxsave;
    R_GE_gcontext gc;
 
    SEXP originalArgs = args;
    DevDesc *dd = CurrentDevice();
    gcontextFromGP(&gc, dd);

Rev 41894	Rev 41901
Line 1504...	Line 1504...
1504	`*/`	1504	`*/`
1505	`SEXP sxy, sx, sy, pch, cex, col, bg, lty, lwd;`	1505	`SEXP sxy, sx, sy, pch, cex, col, bg, lty, lwd;`
1506	`double x, y, xold, yold, xx, yy, thiscex, thislwd;`	1506	`double x, y, xold, yold, xx, yy, thiscex, thislwd;`
1507	`int i, n, npch, ncex, ncol, nbg, /nlty,/ nlwd,`	1507	`int i, n, npch, ncex, ncol, nbg, /nlty,/ nlwd,`
1508	`type=0, start=0, thispch, thiscol;`	1508	`type=0, start=0, thispch, thiscol;`
1509	`char vmax = NULL / -Wall */;`	1509	`void vmax = NULL / -Wall */;`
1510		1510
1511	`SEXP originalArgs = args;`	1511	`SEXP originalArgs = args;`
1512	`DevDesc *dd = CurrentDevice();`	1512	`DevDesc *dd = CurrentDevice();`
1513		1513
1514	`/* Basic Checks */`	1514	`/* Basic Checks */`
Line 3563...	Line 3563...
3563	`SEXP attribute_hidden do_dendwindow(SEXP call, SEXP op, SEXP args, SEXP env)`	3563	`SEXP attribute_hidden do_dendwindow(SEXP call, SEXP op, SEXP args, SEXP env)`
3564	`{`	3564	`{`
3565	`int i, imax, n;`	3565	`int i, imax, n;`
3566	`double pin, ll, tmp, yval, y, ymin, ymax, yrange, m;`	3566	`double pin, ll, tmp, yval, y, ymin, ymax, yrange, m;`
3567	`SEXP originalArgs, merge, height, llabels, str;`	3567	`SEXP originalArgs, merge, height, llabels, str;`
3568	`char *vmax;`	3568	`void *vmax;`
3569	`DevDesc *dd;`	3569	`DevDesc *dd;`
3570		3570
3571	`dd = CurrentDevice();`	3571	`dd = CurrentDevice();`
3572	`GCheckState(dd);`	3572	`GCheckState(dd);`
3573	`originalArgs = args;`	3573	`originalArgs = args;`
Line 3816...	Line 3816...
3816	`SEXP x, y, p, fg, bg;`	3816	`SEXP x, y, p, fg, bg;`
3817	`int i, j, nr, nc, nbg, nfg, type;`	3817	`int i, j, nr, nc, nbg, nfg, type;`
3818	`double pmax, pmin, inches, rx, ry;`	3818	`double pmax, pmin, inches, rx, ry;`
3819	`double xx, yy, p0, p1, p2, p3, p4;`	3819	`double xx, yy, p0, p1, p2, p3, p4;`
3820	`double pp, xp, *yp;`	3820	`double pp, xp, *yp;`
3821	`char *vmax;`	3821	`void *vmax;`
3822		3822
3823	`SEXP originalArgs = args;`	3823	`SEXP originalArgs = args;`
3824	`DevDesc *dd = CurrentDevice();`	3824	`DevDesc *dd = CurrentDevice();`
3825	`GCheckState(dd);`	3825	`GCheckState(dd);`
3826		3826
Line 4092...	Line 4092...
4092	`int ncol, nborder;`	4092	`int ncol, nborder;`
4093	`double x, y;`	4093	`double x, y;`
4094	`Rboolean open, repEnds, draw;`	4094	`Rboolean open, repEnds, draw;`
4095	`double *xx;`	4095	`double *xx;`
4096	`double *yy;`	4096	`double *yy;`
4097	`char *vmaxsave;`	4097	`void *vmaxsave;`
4098	`R_GE_gcontext gc;`	4098	`R_GE_gcontext gc;`
4099		4099
4100	`SEXP originalArgs = args;`	4100	`SEXP originalArgs = args;`
4101	`DevDesc *dd = CurrentDevice();`	4101	`DevDesc *dd = CurrentDevice();`
4102	`gcontextFromGP(&gc, dd);`	4102	`gcontextFromGP(&gc, dd);`

The R Project SVN R

(root)/branches/djm-source/src/main/plot.c @ 63243 – Rev 41894 → 41901