The R Project SVN R

Rev

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

Rev 44201 Rev 44575
Line 208... Line 208...
208 
    int cc, rr, fh, page, linep, i, j, istartline;
 208 
    int cc, rr, fh, page, linep, i, j, istartline;
209 
    int top, left;
 209 
    int top, left;
210 
 
 210 
 
211 
    if (!(lpr = newprinter(0.0, 0.0, ""))) return;
 211 
    if (!(lpr = newprinter(0.0, 0.0, ""))) return;
212 
    f = gnewfont(lpr, strcmp(fontname, "FixedFont") ? fontname : "Courier New",
 212 
    f = gnewfont(lpr, strcmp(fontname, "FixedFont") ? fontname : "Courier New",
213 
		 fontsty, pointsize, 0.0);
 213 
		 fontsty, pointsize, 0.0, 1);
214 
    top = devicepixelsy(lpr) / 5;
 214 
    top = devicepixelsy(lpr) / 5;
215 
    left = devicepixelsx(lpr) / 5;
 215 
    left = devicepixelsx(lpr) / 5;
216 
    fh = fontheight(f);
 216 
    fh = fontheight(f);
217 
    rr = getheight(lpr) - top;
 217 
    rr = getheight(lpr) - top;
218 
    cc = getwidth(lpr) - 2*left;
 218 
    cc = getwidth(lpr) - 2*left;