The R Project SVN R

Rev

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

Rev 51274 Rev 51600
Line 1920... Line 1920...
1920 
    raster = CAR(args); args = CDR(args);
 1920 
    raster = CAR(args); args = CDR(args);
1921 
    n = LENGTH(raster);
 1921 
    n = LENGTH(raster);
1922 
    dim = getAttrib(raster, R_DimSymbol);
 1922 
    dim = getAttrib(raster, R_DimSymbol);
1923 
 
 1923 
 
1924 
    vmax = vmaxget();
 1924 
    vmax = vmaxget();
- 
 
 1925 
    /* raster is rather inefficient so allow a native representation as
- 
 
 1926 
       an integer array which requires no conversion */
- 
 
 1927 
    if (inherits(raster, "nativeRaster") && isInteger(raster))
- 
 
 1928 
	image = (unsigned int*) INTEGER(raster);
- 
 
 1929 
    else {
1925 
    image = (unsigned int*) R_alloc(n, sizeof(unsigned int));
 1930 
	image = (unsigned int*) R_alloc(n, sizeof(unsigned int));
1926 
    for (i=0; i<n; i++) {
 1931 
	for (i=0; i<n; i++)
1927 
        image[i] = RGBpar3(raster, i, R_TRANWHITE);
 1932 
	    image[i] = RGBpar3(raster, i, R_TRANWHITE);
1928 
    }
 1933 
    }
1929 
 
 1934 
 
1930 
    xypoints(call, args, &n);
 1935 
    xypoints(call, args, &n);
1931 
    if(n == 0) return R_NilValue;
 1936 
    if(n == 0) return R_NilValue;
1932 
 
 1937