The R Project SVN R

Rev

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

Rev 33769 Rev 33789
Line 1816... Line 1816...
1816 
	       The idea here is to use a 0.01" square, but to be of
 1816 
	       The idea here is to use a 0.01" square, but to be of
1817 
	       at least one device unit in each direction,
1817 
	       at least one device unit in each direction,
1818 
	       assuming that corresponds to pixels. That may be odd if
 1818 
	       assuming that corresponds to pixels. That may be odd if
1819 
	       pixels are not square, but only on low resolution
1819 
	       pixels are not square, but only on low resolution
1820 
	       devices where we can do nothing better.
 1820 
	       devices where we can do nothing better.
- 
 
 1821 
 
- 
 
 1822 
	       For this option only, size is cex (see engine.c).
1821
1823
1822 
	       Prior to 2.1.0 the offsets were 0.5.
 1824 
	       Prior to 2.1.0 the offsets were always 0.5.
1823 
	    */
 1825 
	    */
1824 
	    xc = fabs(toDeviceWidth(0.005, GE_INCHES, dd));
 1826 
	    xc = size * fabs(toDeviceWidth(0.005, GE_INCHES, dd));
1825 
	    yc = fabs(toDeviceHeight(0.005, GE_INCHES, dd));
 1827 
	    yc = size * fabs(toDeviceHeight(0.005, GE_INCHES, dd));
1826 
	    if(xc < 0.5) xc = 0.5;
 1828 
	    if(size == 1 && xc < 0.5) xc = 0.5;
1827 
	    if(yc < 0.5) yc = 0.5;
 1829 
	    if(size == 1 && yc < 0.5) yc = 0.5;
1828 
	    GERect(x-xc, y-yc, x+xc, y+yc, gc, dd);
 1830 
	    GERect(x-xc, y-yc, x+xc, y+yc, gc, dd);
1829 
	} else {
 1831 
	} else {
1830 
#ifdef SUPPORT_MBCS
 1832 
#ifdef SUPPORT_MBCS
1831 
	    if(mbcslocale) {
 1833 
	    if(mbcslocale) {
1832 
		int cnt = wcrtomb(str, pch, NULL);
 1834 
		int cnt = wcrtomb(str, pch, NULL);