The R Project SVN R

Rev

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

Rev 5464 Rev 5483
Line 483... Line 483...
483 
    fprintf(fp, "/t   { 6 -2 roll moveto gsave rotate\n");
 483 
    fprintf(fp, "/t   { 6 -2 roll moveto gsave rotate\n");
484 
    fprintf(fp, "       ps mul neg 0 2 1 roll rmoveto\n");
 484 
    fprintf(fp, "       ps mul neg 0 2 1 roll rmoveto\n");
485 
    fprintf(fp, "       1 index stringwidth pop\n");
 485 
    fprintf(fp, "       1 index stringwidth pop\n");
486 
    fprintf(fp, "       mul neg 0 rmoveto show grestore } def\n");
 486 
    fprintf(fp, "       mul neg 0 rmoveto show grestore } def\n");
487 
#endif
 487 
#endif
- 
 
 488 
#ifdef OLD
488 
    fprintf(fp, "/cl  { initclip newpath 3 index 3 index moveto 1 index\n");
 489 
    fprintf(fp, "/cl  { initclip newpath 3 index 3 index moveto 1 index\n");
489 
    fprintf(fp, "	4 -1 roll lineto  exch 1 index lineto lineto\n");
 490 
    fprintf(fp, "	4 -1 roll lineto  exch 1 index lineto lineto\n");
490 
    fprintf(fp, "	closepath clip newpath } def\n");
 491 
    fprintf(fp, "	closepath clip newpath } def\n");
- 
 
 492 
#endif
491 
    fprintf(fp, "/rgb { setrgbcolor } def\n");
 493 
    fprintf(fp, "/rgb { setrgbcolor } def\n");
492 
    fprintf(fp, "/s   { scalefont setfont } def\n");
 494 
    fprintf(fp, "/s   { scalefont setfont } def\n");
493 
    fprintf(fp, "/R   { /Font1 findfont } def\n");
 495 
    fprintf(fp, "/R   { /Font1 findfont } def\n");
494 
    fprintf(fp, "/B   { /Font2 findfont } def\n");
 496 
    fprintf(fp, "/B   { /Font2 findfont } def\n");
495 
    fprintf(fp, "/I   { /Font3 findfont } def\n");
 497 
    fprintf(fp, "/I   { /Font3 findfont } def\n");