forked from pool/transfig
ee25f1fd38
OBS-URL: https://build.opensuse.org/package/show/Publishing/transfig?expand=0&rev=8ecbebab05db2ff77aae651a03c85fab
41 lines
1.4 KiB
Plaintext
41 lines
1.4 KiB
Plaintext
--- fig2dev/dev/genps.c
|
|
+++ fig2dev/dev/genps.c 2008-10-08 13:27:05.000000000 +0000
|
|
@@ -661,6 +661,8 @@ F_compound *objects;
|
|
height = userury-userlly+1;
|
|
}
|
|
|
|
+ /* put in the magnification for information purposes */
|
|
+ fprintf(tfp, "%%Magnification: %.4f\n",metric? mag*76.2/80.0 : mag);
|
|
/* only include a pagesize command if PS */
|
|
if (!epsflag && !pdfflag) {
|
|
/* add comment for ghostview to recognize the page size */
|
|
@@ -669,6 +671,9 @@ F_compound *objects;
|
|
for (i=strlen(psize)-1; i>=0; i--)
|
|
psize[i] = tolower(psize[i]);
|
|
fprintf(tfp, "%%%%DocumentPaperSizes: %s\n",psize);
|
|
+ }
|
|
+ fprintf(tfp, "%%%%EndComments\n");
|
|
+ if (!epsflag && !pdfflag) {
|
|
fprintf(tfp, "%%%%BeginSetup\n");
|
|
fprintf(tfp, "[{\n");
|
|
fprintf(tfp, "%%%%BeginFeature: *PageRegion %s\n", papersize);
|
|
@@ -686,10 +691,6 @@ F_compound *objects;
|
|
}
|
|
|
|
|
|
- /* put in the magnification for information purposes */
|
|
- fprintf(tfp, "%%Magnification: %.4f\n",metric? mag*76.2/80.0 : mag);
|
|
- fprintf(tfp, "%%%%EndComments\n");
|
|
-
|
|
/* if the user wants an ASCII preview, route the rest of the eps to a temp file */
|
|
if (asciipreview) {
|
|
saveofile = tfp;
|
|
@@ -729,6 +730,7 @@ F_compound *objects;
|
|
fprintf(tfp,"%%%%BeginProlog\n");
|
|
if (pats_used)
|
|
fprintf(tfp,"/MyAppDict 100 dict dup begin def\n");
|
|
+ fprintf(tfp, "%%%%BeginProlog\n");
|
|
fprintf(tfp, "%s", BEGIN_PROLOG1);
|
|
/* define the standard colors */
|
|
genps_std_colors();
|