The R Project SVN R

Rev

Rev 8971 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8971 Rev 9180
Line 1680... Line 1680...
1680 
    gadesc *xd = (gadesc *) dd->deviceSpecific;
 1680 
    gadesc *xd = (gadesc *) dd->deviceSpecific;
1681 
 
 1681 
 
1682 
    size = dd->gp.cex * dd->gp.ps + 0.5;
 1682 
    size = dd->gp.cex * dd->gp.ps + 0.5;
1683 
    GConvert(&x, &y, coords, DEVICE, dd);
 1683 
    GConvert(&x, &y, coords, DEVICE, dd);
1684 
    SetFont(dd->gp.font, size, 0.0, dd);
 1684 
    SetFont(dd->gp.font, size, 0.0, dd);
1685 
    pixs = fontascent(xd->font) + fontdescent(xd->font) - 1;
 1685 
    pixs = - 1;
1686 
    xl = 0.0;
 1686 
    xl = 0.0;
1687 
    yl = -pixs;
 1687 
    yl = -pixs;
1688 
    rot1 = rot * DEG2RAD;
 1688 
    rot1 = rot * DEG2RAD;
1689 
    x += -xl * cos(rot1) + yl * sin(rot1);
 1689 
    x += -xl * cos(rot1) + yl * sin(rot1);
1690 
    y -= -xl * sin(rot1) - yl * cos(rot1);
 1690 
    y -= -xl * sin(rot1) - yl * cos(rot1);
1691 
    SetFont(dd->gp.font, size, rot, dd);
 1691 
    SetFont(dd->gp.font, size, rot, dd);
1692 
    SetColor(dd->gp.col, dd);
 1692 
    SetColor(dd->gp.col, dd);
1693 
#ifdef NOCLIPTEXT
 1693 
#ifdef NOCLIPTEXT
1694 
    gsetcliprect(xd->gawin, getrect(xd->gawin));
 1694 
    gsetcliprect(xd->gawin, getrect(xd->gawin));
1695 
    gdrawstr(xd->gawin, xd->font, xd->fgcolor, pt(x, y), str);
 1695 
    gdrawstr1(xd->gawin, xd->font, xd->fgcolor, pt(x, y), str, hadj);
1696 
    if (xd->kind==SCREEN) {
 1696 
    if (xd->kind==SCREEN) {
1697 
	gsetcliprect(xd->bm, getrect(xd->bm));
 1697 
	gsetcliprect(xd->bm, getrect(xd->bm));
1698 
	gdrawstr(xd->bm, xd->font, xd->fgcolor, pt(x, y), str);
 1698 
	gdrawstr1(xd->bm, xd->font, xd->fgcolor, pt(x, y), str, hadj);
1699 
    }
 1699 
    }
1700 
#else
 1700 
#else
1701 
    DRAW(gdrawstr(_d, xd->font, xd->fgcolor, pt(x, y), str));
 1701 
    DRAW(gdrawstr1(_d, xd->font, xd->fgcolor, pt(x, y), str, hadj));
1702 
#endif
 1702 
#endif
1703 
}
 1703 
}
1704 
 
 1704 
 
1705 
	/********************************************************/
 1705 
	/********************************************************/
1706 
	/* device_Locator should return the location of the next*/
 1706 
	/* device_Locator should return the location of the next*/
Line 1896... Line 1896...
1896 
    dd->dp.canResizePlot = 1;
 1896 
    dd->dp.canResizePlot = 1;
1897 
    dd->dp.canChangeFont = 0;
 1897 
    dd->dp.canChangeFont = 0;
1898 
    dd->dp.canRotateText = 1;
 1898 
    dd->dp.canRotateText = 1;
1899 
    dd->dp.canResizeText = 1;
 1899 
    dd->dp.canResizeText = 1;
1900 
    dd->dp.canClip = 1;
 1900 
    dd->dp.canClip = 1;
1901 
    dd->dp.canHAdj = 0;
 1901 
    dd->dp.canHAdj = 1; /* 0, 0.5, 1 */
1902 
 
 1902 
 
1903 
    /* initialise device description (most of the work */
 1903 
    /* initialise device description (most of the work */
1904 
    /* has been done in GA_Open) */
 1904 
    /* has been done in GA_Open) */
1905 
 
 1905 
 
1906 
    xd->resize = 0;
 1906 
    xd->resize = 0;