The R Project SVN R

Rev

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

Rev 76910 Rev 84680
Line 28... Line 28...
28 
 
 28 
 
29 
/* Copyright (C) 2004	The R Foundation
 29 
/* Copyright (C) 2004	The R Foundation
30 
 
 30 
 
31 
      Changes for R:  allow 32 contexts not 4
 31 
      Changes for R:  allow 32 contexts not 4
32 
      Remove assumption that current->dest is non-NULL
 32 
      Remove assumption that current->dest is non-NULL
- 
 
 33 
 
- 
 
 34 
   Copyright (C) 2023   The R Core Team
- 
 
 35 
 
- 
 
 36 
      Changes for R: avoid naming conflict with LLVM
33 
*/
 37 
*/
34 
 
 38 
 
35 
#include "internal.h"
 39 
#include "internal.h"
36 
 
 40 
 
37 
/*
 41 
/*
Line 40... Line 44...
40 
 
 44 
 
41 
PROTECTED drawstruct app_drawstate =
 45 
PROTECTED drawstruct app_drawstate =
42 
{
 46 
{
43 
    NULL,	/* drawing destination */
 47 
    NULL,	/* drawing destination */
44 
    Black,	/* colour */
 48 
    Black,	/* colour */
45 
    S,	/* drawing mode */
 49 
    GA_S,	/* drawing mode */
46 
    {0,0},	/* point */
 50 
    {0,0},	/* point */
47 
    1,	/* line width */
 51 
    1,	/* line width */
48 
    NULL,	/* font */
 52 
    NULL,	/* font */
49 
    NULL,	/* cursor */
 53 
    NULL,	/* cursor */
50 
};
 54 
};
Line 501... Line 505...
501 
    setrgb(Black);
 505 
    setrgb(Black);
502 
    setlinewidth(1);
 506 
    setlinewidth(1);
503 
    setcursor(ArrowCursor);
 507 
    setcursor(ArrowCursor);
504 
    moveto(pt(0,0));
 508 
    moveto(pt(0,0));
505 
    setfont(SystemFont);
 509 
    setfont(SystemFont);
506 
    setdrawmode(S);
 510 
    setdrawmode(GA_S);
507 
}
 511 
}
508 
 
 512 
 
509 
/*
 513 
/*
510 
 *  Return a new copy of the current drawing state.
 514 
 *  Return a new copy of the current drawing state.
511 
 */
 515 
 */