The R Project SVN R

Rev

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

Rev 46156 Rev 47106
Line 3954... Line 3954...
3954 
    void *vmaxsave;
 3954 
    void *vmaxsave;
3955 
    R_GE_gcontext gc;
 3955 
    R_GE_gcontext gc;
3956 
 
 3956 
 
3957 
    SEXP originalArgs = args;
 3957 
    SEXP originalArgs = args;
3958 
    pGEDevDesc dd = GEcurrentDevice();
 3958 
    pGEDevDesc dd = GEcurrentDevice();
3959 
    gcontextFromGP(&gc, dd);
 - 
 
3960 
 
 3959 
 
3961 
    GCheckState(dd);
 3960 
    GCheckState(dd);
3962 
 
 3961 
 
3963 
    if (length(args) < 6) error(_("too few arguments"));
 3962 
    if (length(args) < 6) error(_("too few arguments"));
3964 
    /* (x,y) is checked in R via xy.coords() ; no need here : */
 3963 
    /* (x,y) is checked in R via xy.coords() ; no need here : */
Line 3984... Line 3983...
3984 
    if(nborder > 1)
 3983 
    if(nborder > 1)
3985 
	warning(_("incorrect length for '%s' argument"), "border");
 3984 
	warning(_("incorrect length for '%s' argument"), "border");
3986 
 
 3985 
 
3987 
    GSavePars(dd);
 3986 
    GSavePars(dd);
3988 
    ProcessInlinePars(args, dd, call);
 3987 
    ProcessInlinePars(args, dd, call);
- 
 
 3988 
    /* Paul 2008-12-05
- 
 
 3989 
     * Convert GP to gcontext AFTER ProcessInlinePars
- 
 
 3990 
     */
- 
 
 3991 
    gcontextFromGP(&gc, dd);
3989 
 
 3992 
 
3990 
    GMode(1, dd);
 3993 
    GMode(1, dd);
3991 
 
 3994 
 
3992 
    x = REAL(sx);
 3995 
    x = REAL(sx);
3993 
    y = REAL(sy);
 3996 
    y = REAL(sy);