luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

avoid %%BeginSetup, %%BeginPageSetup if doing eps

This commit is contained in:
stefan schippers 2023-12-12 02:18:31 +01:00
parent 78b26fc36d
commit 2a8c5e487a
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/psprint.c
View File

@ -1169,13 +1169,15 @@ void create_ps(char **psfile, int what, int fullzoom, int eps)
if(what & 2) { /* page */
++numpages;
fprintf(fd, "%%%%BeginSetup\n");
fprintf(fd, "<< /PageSize [%g %g] /Orientation 0 >> setpagedevice\n", pagex, pagey);
fprintf(fd, "%%%%EndSetup\n");
fprintf(fd, "%%%%Page: %d %d\n\n", numpages, numpages);
fprintf(fd, "%%%%BeginPageSetup\n");
fprintf(fd, "%%%%EndPageSetup\n");
if(!eps) {
fprintf(fd, "%%%%BeginSetup\n");
fprintf(fd, "<< /PageSize [%g %g] /Orientation 0 >> setpagedevice\n", pagex, pagey);
fprintf(fd, "%%%%EndSetup\n");
fprintf(fd, "%%%%Page: %d %d\n\n", numpages, numpages);
fprintf(fd, "%%%%BeginPageSetup\n");
fprintf(fd, "%%%%EndPageSetup\n");
}
/* add small page title */
if(tclgetboolvar("ps_page_title") && fullzoom != 2)
fprintf(fd, "/Helvetica FF 10 SCF SF NP 20 %g MT (%s) show\n", pagey - 20, xctx->current_name);