The R Project SVN R

Rev

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

Rev 29162 Rev 31630
Line 939... Line 939...
939 
static void clearwindow(void)
 939 
static void clearwindow(void)
940 
{
 940 
{
941 
    gfillrect(de, p->bg, rect(0, 0, WIDTH, HEIGHT));
 941 
    gfillrect(de, p->bg, rect(0, 0, WIDTH, HEIGHT));
942 
}
 942 
}
943 
 
 943 
 
944 
#if 0
 - 
 
945 
static void de_drawline(int fromx, int fromy, int tox, int toy)
 - 
 
946 
{
 - 
 
947 
    gdrawline(de, 1, 0, p->ufg, pt(fromx, fromy), pt(tox, toy));
 - 
 
948 
}
 - 
 
949 
#endif
 - 
 
950 
 
 944 
 
951 
static void drawrectangle(int xpos, int ypos, int width, int height,
 945 
static void drawrectangle(int xpos, int ypos, int width, int height,
952 
			  int lwd, int fore)
 946 
			  int lwd, int fore)
953 
{
 947 
{
954 
    /* only used on screen, so always fast */
 948 
    /* only used on screen, so always fast */
955 
    gdrawrect(de, lwd, 0, (fore==1)? p->ufg: p->bg,
 949 
    gdrawrect(de, lwd, 0, (fore==1)? p->ufg: p->bg,
956 
	      rect(xpos, ypos, width, height), 1);
 950 
	      rect(xpos, ypos, width, height), 1, PS_ENDCAP_SQUARE,
- 
 
 951 
	      PS_JOIN_BEVEL, 10);
957 
}
 952 
}
958 
 
 953 
 
959 
static void de_drawtext(int xpos, int ypos, char *text)
 954 
static void de_drawtext(int xpos, int ypos, char *text)
960 
{
 955 
{
961 
    gdrawstr(de, p->f, p->fg, pt(xpos, ypos), text);
 956 
    gdrawstr(de, p->f, p->fg, pt(xpos, ypos), text);